8.1.. Ispisati 5 članova Fibonačijevog /FIBONACCI/ niza. Fibonačijev niz je niz u kome su prva dva člana jednaka jedan, a svaki sljedeći član je suma prethodna dva člana niza (1, 1, 2, 3, 5).
Opis rješenja:
Opis programa:
Listing programa:
PROGRAM p08111072;
{ Suma Fibonacijevog niza do n}
VAR { deklarisanje promjenljivih }
i, prvi, drugi, treci, n : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITELN(' Suma Fibonacijevog niza do n');
{ pocetne vrijednosti }
WRITE('broj clanova niza ');
READLN( n );
prvi := 1;
Write(prvi);
drugi := 1;
Write(' ,', drugi);
treci := prvi + drugi;
Write(' ,', treci);
FOR i:= 4 TO n DO { ponavljaj za i=k do n - pocetak petlje }
BEGIN
prvi := drugi;
drugi := treci;
treci := prvi + drugi; { cifra jedinica je 7, kumulativna suma }
WRITE(' ,', treci); { suma }
END;
READLN;
END.
Ispis na ekranu:
Index
|
|