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="4f2007395fd58">
var e: 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;
</code>

<code id="4f200a6492c6e">
var f: integer;

function fibo(f: integer): integer;
begin
  if e = 1 then result := 1
  else
  begin
    result := fibo(f-1)+fibo(f-2);
  end;
end;
</code>

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