Program nájde prvých 20 členov tejto postupnosti postupnou iteráciou a vypíše ich

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Uchaľe

Zrobil: Danciwo
Program: Fibonaci.pas
Subor exe: Fibonaci.exe

Program nájde prvých 20 členov tejto postupnosti postupnou iteráciou a vypíše ich. Prvé členy tejto postupnosti sú 0 a 1. Každý ďalsí člen je rovný súčtu 2 predchádzajúcich.
{ 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.