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