Benutzer:GreT

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
zweiter Versuch

<eval id="4afbcd36cc864">
function addition(a,b:real):real;
begin
a:=5;
b:=2;
result:=a+b;
end;
</eval>



===Fibonacci-Berechnung===

<code id="4afbcf73a7971">
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>

<eval id="4afbcf73a8147">
begin
  writeln(intToStr(fib(8)));
end.
</eval>