home *** CD-ROM | disk | FTP | other *** search
/ Compy Shop Magazin 1989 May / Compy_Shop_Magazin_1989_05___de_Side_B.atr / fibonacr.pas < prev    next >
Pascal/Delphi Source File  |  2023-02-26  |  557b  |  1 lines
  1. PROGRAM fibonacci_rekursiv                      (INPUT,OUTPUT);¢¢VAR      elementzahl  : INTEGER;¢¢¢  FUNCTION fibonacci(wert:INTEGER)                 :INTEGER;¢¢  BEGIN¢    IF wert>1 THEN                            fibonacci:=fibonacci(wert-1)+           fibonacci(wert-2)¢    ELSE¢      IF wert=1 THEN fibonacci:=1¢                ELSE fibonacci:=0¢  END;¢¢¢BEGIN¢  WRITELN(CHR(125));¢  REPEAT¢    WRITE('Elementnummer --> ');¢    READLN(elementzahl)¢  UNTIL elementzahl>=0;¢  WRITELN('Fibonacci-Zahl = '                     ,fibonacci(elementzahl))¢END.¢