Seminar/Franzi

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
= Testüberschrift =
Testtext auf Testseite in einem Testwiki zum Testen

Eine Datei wurde hochgeladen:
<document>J schuster_LP_GY_Informatik.pdf</document>

<code id="4f200d192ba2d">
var e,f: integer;var ausgabe: double;function fak(e: integer): double;begin  if e = 0 then result:= 1  else  begin    result:= e * fak(e-1);  end;end;function fibo(f: integer): integer;begin  if f = 1 then result:= 1  else  begin    result:= fibo(f-1) + fibo(f-2);  end;end;
</code>

<run id="4f2007395fdc7">
  writeln(fibo(4));
</run>