home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 02 / t1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-05  |  419 b   |  20 lines
  1. program kaninchenparre;
  2. var n:integer;
  3.  
  4. function fibonacci(n:integer):integer;
  5. (* liefert die n-te Fibonaccizahl *)
  6. begin
  7.   if n<=2 then fibonacci:=1
  8.           else fibonacci:=fibonacci(n-1)+fibonacci(n-2)
  9. end;
  10.  
  11. begin
  12.   repeat
  13.     writeln('Kaninchenpaare');
  14.     write('gefragter',' Monat : ');
  15.     readln(n);
  16.     writeln('Im ',n,'. Monat gibt es ',fibonacci(n),' Kaninchenpaare');
  17.   until n<0;
  18. end.
  19.  
  20.