Program: liczący dany wyraz ciągu Fibonacciego.
Użytkownik podaję numer wyrazu do obliczenia, przy użyciu zdefiniowanej funkcji.
Kompilator: Turbo Pascal
Galeria:
Kod programu:
program ciag;
uses crt;
var
i,n:integer;
function Fib(n:integer):longint;
var
i,poprzedni1,poprzedni2:longint;
wynik:longint;
begin
if n<3 then
Fib:=1
else
begin
poprzedni1:=1;
poprzedni2:=1;
for i:=3 to n do
begin
wynik:=poprzedni1+poprzedni2;
poprzedni2:=poprzedni1;
poprzedni1:=wynik;
end;
Fib:=wynik;
end;
end;
begin
clrscr;
writeln('Ile ciagow ma obliczyc?');
readln(n);
for i:=1 to n do
writeln('F(',i,')=',Fib(i));
readln;
end.Słowniczek pojęć:
Ciąg liczb naturalnych określony rekurencyjnie w sposób następujący: Pierwszy wyraz jest równy 0, drugi jest równy 1, każdy następny jest sumą dwóch poprzednich.