Benutzer:GreT

Aus ProgrammingWiki

Archivierte Version vom 2009-11-12T09:06:52+00:00. Aktuelle Version

zweiter Versuch

function addition(a,b:integer):integer;
begin
result:=a+b;
end;

<eval id="4afbcd36cc864"> begin writeln(intToStr(addition(4,5))); end. </eval>

Fibonacci-Berechnung

function fib(n: integer): integer;
  var tmp: integer;
  begin
    if n=1 then result := 1
    else if n=2 then result := 1
    else begin
      tmp := fib(n-1);
      result := tmp + fib(n-2);
    end;
  end;

<eval id="4afbcf73a8147"> begin</eval>

 writeln(intToStr(fib(8)));

end.

Benutzer:GreT

Fibonacci-Berechnung

Suche