Dze je subor www.TrSek.com/beginner/danciwo/fibonaci.pas{ FIBONACI.PAS Copyright (c) Danciwo }
{ Specifikujte algoritmus na vypocet N-teho clcena Fibonacciho radu }
{ postupnou iteraciou a zebezpecte vìpis jeho prvìch 20 clenov. }
{ Prvì a druhì clen tohto radu su cisla 0 a 1. Kazdy nasledujuci }
{ clen je rovny suctu predchadzajucich dvoch clenov radu. }
{ }
{ Author: Danciwo }
{ Date : 15.02.2008 http://www.trsek.com }
program fibonaci;
uses crt;
procedure fibonacci;
var pole: array[1..20] of integer;
i: integer;
begin
pole[1]:=0;
pole[2]:=1;
for i:=3 to 20 do begin
pole[i]:= pole[i-1]+pole[i-2];
end;
for i:=1 to 20 do
writeln(pole[i]);
end;
begin
writeln('Prvych dvadsat clenov Fibonnaciho radu:');
fibonacci;
readln;
end.