Program Array (Fibbonaci Generator)

Fungsi: Kode untuk Menghasilkan deret fibbonaci

Hint : Fibbonaci adalah deret yang angka selanjutnya adalah penjumlahan 2 angka sebelumnya.

Misal : 1 1 2 3 5 8 13 21 ….dst

Screen Shot:

uses crt;

var a:array[1..1000] of longint;

i,k:integer;

begin

clrscr;

write('Input banyaknya fibbonaci: ');readln(i);

{fibbonacigenerator}

a[1]:=1;

a[2]:=1;

for k:=2 to i do

begin

a[k+1]:=a[k]+a[k-1];

end;

writeln;

writeln;

{menulis fibbonaci}

for k:=1 to i do

begin

write(a[k],' ');

end;

writeln;

readln;

end.