Program fibonacci_iterasi; (pasca)l

    Program fibonacci_iterasi;

    Uses crt;

    Const max=50;

    Var

    f :array[1..max] of integer;

    (*mendefinisikan variabel f yang berisi 1 sampai max elemen

    bertipe integer*)

    n :integer;

    (*variabel banyaknya bil prima yang di tampilkan*)

    i : integer;

    (*variabel bantu untuk indeks perulangan, menyatakan elemen

    array ke *)

    Begin

    f[1]:=1;

    (*bilangan pada suku pertama didefinisikan sama dengan 1*)

    f[2]:=1;

    (*bilangan pada suku kedua didefinisikan sama dengan 1*)

    write('Cetak bilangan fibonacci sampai suku ke: ');

    readln(n);

    (*memasukkan jumlah bilangan fibonacci yang akan

    ditampilkan*)

    writeln;

    writeln('Bilangan fibonacci sampai suku ke ',n, ' sbb: ');

    write(f[1],' ');

    (*mencetak bilangan fibonacci suku ke 1*)

    write(f[2],' ');

    (*mencetak bilangan fibonacci suku ke 2*)

    For i:=3 to n do

    Begin

    f[i]:=f[i-1]+f[i-2];

    (*bilangan fibonacci pada suku ke i merupakan suku ke-

    penjumlahan bilangan fibonacci pada suku ke-(i-1) dan

    (i-2)*)

    write(f[i],' ');

    (*mencetak bilangan fibonacci suku ke-3 sampai ke-n*)

    end;

    writeln;

    writeln;

    writeln('Suku ke ',i,' : ',f[i]);

    (*mencetak bil fibonacci suku ke n*)
    readln;
    end.