Benutzer:GreT

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
zweiter Versuch

<code id="4afbcfcecafb3">
function addition(a,b:integer):integer;
begin
result:=a+b;
end;
</code>

<run id="4d2c004c1642e">
writeln(intToStr(addition(4,5)));
</run>

<code id="4afc2b81027ea">

</code>

===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>


<run id="4d2c004c16496">
writeln(intToStr(fib(8)));
</run>