{ 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.