29 (621)

Przypomnijmy wzór na N-ty wyraz ciągu:

N = 0 N = \ N>\

0    gdy

f(n) = -

1    gdy F(N-\)+F(N-2) gdy

Jak widać, do policzenia wartości ciągu potrzebna jest znajomość jedynie dwóch po przednich. Przypomnijmy sobie schemat blokowy (ćwiczenie 2.5) i... piszmy.

program cw3_36;

{ Program oblicza N-ty wyraz ciągu Fibonacciego. }

{ Katalog r3_08 : 3_36.pas    }

var

N, I : Byte;

Poprzedni, Przedpoprzedni, Pomoc : Longint;

begin

Write ('Podaj numer wyrazu ciągu do wyliczenia:    Readln (N);

if (N<0) then

Writeln ('Nie można policzyć ', N, ' wyrazu ciągu Fibonacciego.') else

if (N=0) then

Writeln ('F(', N, ')-0') else

if (N-l) then

Writeln ( ' F(', N, ')-l' ) else begin

Przedpoprzedni 0;

Poprzedni 1; for I 2 to N do begin

Pomoc Przedpoprzedni;

Przedpoprzedni Poprzedni;

Poprzedni Poprzedni + Pomoc; end;

Writeln ('F(', N, ')-', Poprzedni) end;

Readln; end.

Pomimo tego, że do zapamiętania kolejnych wyrazów ciągu używamy zmiennych typi Longint (a więc o większym niż Integer zakresie), ciąg dość szybko rośnie i już dla kilku dziesięciu zakres zostanie przekroczony.

ĆWICZĘ

3.37

Obliczenie silni

Napisz program, który obliczy i wyświetli NL

Znów przypomnijmy sobie ćwiczenia (tym razem 1.6 i 2.2) i spróbujmy zapisać algoryb w postaci programu:    I

program cw3_37;

{ Program oblicza N!    }

{ Katalog r3_08 : 3_37.pas } var

N, I : Byte;

Silnia : Longint;