Schreibe morgen Klausur

[atreju2oo0]

Zitat von jfheins:

Um auch die letzte Möglichkeit aufzuzählen:

Delphi-Quellcode:

procedure StrRev (var Str: String);
var
  str2: String;
  i: integer;
begin
str2 := str;
for i := length (str2) downto 1 do
  str := str2[i];

Ich hätte da noch eine...

Delphi-Quellcode:

function reku(wort:string;i:integer):string;
  begin
    if i<length(wort) then result:=reku(wort,i+1)+wort[i]
     else result:='';
  end;

Aufgerufen wird das dann über

reku(meinWort,1);


Is zwar nicht die beste Möglichkeit aber Lehrer mögen Rekursionen!