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