WS1 TUDD/WS1 Teilnehmer20

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
hier entsteht eine neue seite

<code id="51406bf2ecff5">

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;

</code>



<run id="51406defef0de">  
writeln(intToStr(fib(8)));
</run>