Informatika gyűjtemény

Egy szinttel feljebb fibo2.dpr

2004050607080910

<<  1. óra  >>

<<  Feladatok  >>

NézetNyomtat

fibo2.dpr (Vissza)
Az alábbi letöltési lehetőségek közül választhatsz: (segítség)
Karakterkódolás:
Sortörés:
Típus: text/plain
Tartalmaz szöveget
Karakterkódolás: us-ascii
Méret: 398 byte
{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q+,R+,S-,T-,U+,V+,W+,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE CONSOLE}

PROGRAM fibo2;
USES SysUtils;
VAR
    a, b, c, i: INTEGER;
BEGIN
    a:= 1;
    b:= 1;
    FOR i:= 3 TO 44 DO
    BEGIN
        c:= a+b;
        WriteLn('fib(',i,')= ', c);
        a:= b; b:= c;
    END;
    ReadLn;
END.
 
(Vissza)