Algoritma; Procedure Fibonaci

PROSEDURE FIBONACCI :

PROGRAM PROSEDUR_FIBO;

USES WINCRT;

PROCEDURE FIBO ( KEY : STRING ; K : INTEGER );

VAR

X,Y,Z,I,N : LONGINT ;

BARIS : INTEGER ;

BEGIN

X:= 1;

Y:= 1;

WRITELN(' * ',KEY,' *');

FOR BARIS :=1 TO K DO

BEGIN

WRITELN;

END;

WRITE(' MASUKAN BANYAK BILANGAN FIBONACI : ');

READLN(N);

WRITE(X, ' ');

WRITE(Y, ' ');

FOR I:= 1 TO N-2 DO

BEGIN

Z := X + Y ;

X := Y ;

Y := Z ;

WRITE(Z, ' ' );

END;

END;

{MODUL UTAMA}

BEGIN

FIBO(' DERET FIBONACI',2);

END.