PMG/Kurs 11/klassische Verfahren I

Wiki-Quelltext dieser Seite.

Alle bis etwa 1950 entwickelten und benutzten Verfahren gehören zu den klassischen Verfahren. <br>
Dabei werden Substitutionsverfahren (jedes Zeichen des Klartextes wird durch ein anderes ersetzt) und Transpositionsverfahren (die Zeichen bleiben gleich, ändern aber durch Tauschen ihre Position) unterschieden.<br>
'''Aufgabe 1: '''Entscheide für jedes Beispiel, ob es sich um ein Substitutions- oder Transpositionsverfahren handelt.<br>
== Beispiel 1: Rückwärtsschrift ==
<code id="4ea038bfd6ac2" hidden>
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;
</code>

'''Aufgabe 2: '''Schreibe eine Funktion, die einen eingegebenen Text rückwärts ausgibt.

<code id="4ea038bfd6b83">
function rueck(klar:string):string;
var wort:string; 
  //vervollständige hier die Variablendeklaration
begin
  wort:='';
  // ergänze hier weitere Anweisungen 
  result:=wort;
end;
</code>

<br> Jetzt kannst du den Quelltext erst mal für ein paar Beispiele testen. <br>
<run id="4ea038bfd6da6">writeln(rueck('testen'));</run>

Zur Sicherheit drücke jetzt den check-Button. <br>
<check> result:=rueck_test('rückwärts testen') = rueck('rückwärts testen') </check>

== Beispiel 2: Vokale ersetzen ==

<code id="4ea038bfd6bf8" hidden>
var z:string;

function vokale_test(klar,v:string;):string;
var wort:string; 
    l,i:integer;
begin
  l:=length(klar);
  wort:='';
  for i:=1 to l do
     begin
       if (klar[i]='a') or (klar[i]='e') or (klar[i]='i') or (klar[i]='o') or (klar[i]='u')
       then wort:=wort+v
       else wort:=wort+klar[i];
     end;
  result:=wort;
end;      

</code>

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. <br>
'''Aufgabe 3: '''Vervollständige für dieses Beispiel den Quelltext.

<code id="4ea038bfd6c4a">

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

</code>

<check> result:=vokale_test('drei chinesen','i') = vokale('drei chinesen','i') </check>

<br> Jetzt kannst du den Quelltext wieder an ein paar Beispielen testen. <br>
<run id="4ea038bfd6e0a">writeln(vokale('drei Chinesen','i'));</run>

== Beispiel 3: Zickzackschrift ==

<code id="4ea038bfd6cb5" hidden>

function zickzack_test(klar:string;):string;
var l,i,n:integer; wort:string;
begin
  wort:='';
  l:=length(klar);
  if l mod 2 = 0 then n:=l div 2
                 else n:=l div 2 +1;
  for i:=1 to n do wort:=wort+klar[i]+klar[n+i];
  result:=wort;
end; 

</code>

Eine etwas kompliziertere Variante der Verschlüsselung ist die Zickzackschrift. <br>
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: <br>
''Beispiel:''<br>
 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 <br>
 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 <br>

'''Aufgabe 4: '''Vervollständige nun den Quelltext.

<code id="4ea038bfd6d21">

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

</code>

<check> result:=zickzack_test('neuer test') = zickzack('neuer test') </check>

<br> Und nun wieder ein Test. <br>
<run id="4ea038bfd6e8b">writeln(zickzack('Testergebnis'));</run>