Informatika gyűjtemény

Egy szinttel feljebb fibo.dpr

2004050607080910

<<  1. óra  >>

<<  Feladatok  >>

NézetNyomtat

fibo.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: 727 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 fibo;
USES SysUtils;
CONST
    maxn = 44;

VAR
    i: INTEGER;
    cache: ARRAY [1..maxn] OF INTEGER;

FUNCTION RFibo(n: INTEGER): INTEGER;
VAR
    ret: INTEGER;
BEGIN
    IF cache[n] = 0 THEN
    BEGIN
        IF n <= 2 THEN ret:= 1
        ELSE ret:= RFibo(n-1)+RFibo(n-2);
        cache[n]:= ret;
    END
    ELSE ret:= cache[n];
    RFibo:= ret;
END; {RFibo}

BEGIN
    FOR i:= 1 TO maxn DO cache[i]:= 0;

    Write('hanyadik fib. szam kell? '); ReadLn(i);
    IF i > maxn THEN WriteLn('i < maxn')
    ELSE WriteLn('fib(',i,')= ', RFibo(i) );
    ReadLn;
END.
(Vissza)