einfache klassische Verfahren

Aus ProgrammingWiki

< Gymnasium Zittau < Langer < Verschluesselung

Archivierte Version vom 2011-10-20T14:00:13+00:00. Aktuelle Version

Beispiel 1: Rückwärtsschrift

var k:string;

function rueck_test(klar:string):string;
var l,i:integer; wort:string;
begin
  l:=length(klar);
  wort:='';
  for i:=1 to l do wort:=klar[i]+wort;
  result:=wort;
end;

writeln(rueck_test(testen))

Schreibe eine Funktion, die einen eingegebenen Text rückwärts ausgibt.

function rueck(klar:string):string;
var wort:string; 
    //vervollständige hier die Variablendeklaration
begin
    //ergänze hier die Anweisungen 
  result:=wort;
end;

Beispiel 2: Vokale ersetzen

Ihr kennt sicher aus eurer Kinderzeit das Lied "Drei Chinesen mit dem Kontrabass". Entsprechend diesem musikalischen Spiel ersetzen wir im nächsten Beispiel die Vokale eines Textes durch den Buchstaben, der für v eingegeben wird.
Vervollständige für dieses Beispiel den Quelltext.

Function vokale(klar,v:string;):string;
var wort:string;
  //vervollständige hier die Variablendeklaration
begin
  // ergänze hier die Anweisungen
  result:=wort;
end;

Beispiel 3: Zickzackschrift

Eine etwas kompliziertere Variante der Verschlüsselung ist die Zickzackschrift.
Die Buchstaben werden nicht durch andere Zeichen oder Symbole ersetzt, sondern einfach neu gemischt. Dieses Prinzip nennt man auch "Anagramm". Zerlege den Text in zwei gleich lange Zeilen und lies dann im Zickzack:
n t e i t n i b i e w r e s c t a w r e u z t n e d e e m r ä m n i h b r e d n
wird zu
n t e i t n i b i e w r e s c t a w r e
u z t n e d e e m r ä m n i h b r e d n

im Zickzack gelesen: nutzetintendiebeimerwärmensichtbarwerden

Vervollständige nun den Quelltext.

Function zickzack(klar:string;):string;
var wort:string;
    //vervollständige hier die Variablendeklaration
begin
  // ergänze hier die Anweisungen
  result:=wort;
end;

einfache klassische Verfahren

Beispiel 1: Rückwärtsschrift

Beispiel 2: Vokale ersetzen

Beispiel 3: Zickzackschrift

Suche