Gymnasium Zittau/Langer/Verschluesselung/einfache klassische Verfahren

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
== Beispiel 1: Rückwärtsschrift ==

<code id="4ea012a03c05d" hidden>

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>

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

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

<check> result:=rueck_test(rückwärts testen) = rueck(rückwärts testen) </check>

== Vokale ersetzen ==

<code id="4ea012a03c125" hidden>

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.
Vervollständige für dieses Beispiel den Quelltext.

<code id="4ea012a03c180">

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

</code>