Franzi

Aus ProgrammingWiki

Archivierte Version vom 2012-01-25T14:00:51+00:00. Aktuelle Version

Testüberschrift

Testtext auf Testseite in einem Testwiki zum Testen

Eine Datei wurde hochgeladen:

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;

var f: integer;

function fibo(f: integer): integer;
begin
  if f = 1 then result := 1
  else
  begin
    result := fibo(f-1) + fibo(f-2);
  end;
end;

writeln(fibo(4));

Franzi

Testüberschrift

Suche