Pascal

Aus ProgrammingWiki

Archivierte Version vom 2010-04-12T14:41:37+00:00. Aktuelle Version

An welchem Datum war Ostern in den vergangenen Jahren?

<eval id="4bc33121abedd" rows="10" rrows="10"> begin</eval>

 year := random(1000)+1900;
 writeln('In year '+intToStr(year)+' was eastern sunday on '+EasterSunday(year));

end.

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="4bc33121ac6ae"> begin</eval>

 writeln(intToStr(fib(8)));

end.

Pascal

An welchem Datum war Ostern in den vergangenen Jahren?

Fibonacci-Berechnung

Suche