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>