DERET BILANGAN FIBONACCI

Dalam matematika, Bilangan Fibonacci adalah barisan yang didefinisikan secara rekursif sebagai berikut :

 
Penjelasan :
Barisan ini berawal dari 0 dan 1, kemudian angka berikutnya didapat dengan cara menambahkan kedua bilangan yang berurutan sebelumnya. Dengan aturan ini, maka barisan bilangan Fibonacci yang pertama adalah :

0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946...

 

Naah, bagaimana jika bilangan Fibonacci ini diterapkan pada pemrograman Pascal?
Berikut adalah koding dari bahasa pemrograman Pascal :
 

uses crt;

var

n,i : integer;

a : array [0..100] of integer;

begin

clrscr;

gotoxy (25,05); write ('____________________________');

gotoxy (25,06); write ('                            ');

gotoxy (25,07); write ('  DERET BILANGAN FIBONACCI  ');

gotoxy (25,08); write ('____________________________');

gotoxy (25,12); write ('Masukkan angka pembatas :  '); readln (n);

gotoxy (25,15);
for i := 0 to n-1 do
   begin  
      if (i=0) or (i=1) then
         begin
            a [i] := 1;
            write (a [i],' ');
         end
      else
         begin
            a [i] := a [i-1] + a [i-2];
            write (a [i],' ');
         end;
    end;
readkey;
end.



Jika kita Masukkan angka pembatasnya adalah 12,  output yang dihasilkan sebagai berikut.