Algoritma Bilangan Fibonacci

Sejarah singkat :

Barisan ini pertama kali dijelaskan oleh matematikawan India, Gopala dan Hemachandra pada tahun 1150, ketika menyelidiki berbagai kemungkinan untuk memasukkan barang-barang ke dalam kantong. Di dunia barat, barisan ini pertama kali dipelajari oleh Leonardo da Pisa, yang juga dikenal sebagai Fibonacci (sekitar 1200), ketika membahas pertumbuhan ideal dari populasi kelinci.

Source 

Berikut adalah code program untuk bilangan fibonacci dalam bahasa Pascal

Program fibonacci;

uses crt;

var

penambah1, penambah2, deret, j, i: integer;

begin
clrscr;

penambah1:=0;

penambah2:=1;
readln(i);         //inisialisasi banyaknya deret
     
if i=1 then
  write (penambah1,' ')
else
   if i=2 then
      begin
         write(penambah1,' ');
         write(penambah2,' ');
      end
   else
      if i>2 then
        begin
          write(penambah1,' ');
          write(penambah2,' ');
          
          for j:=1 to i-2 do
            begin
               deret:=penambah1+penambah2;
               write(deret,' ');
               penambah1:=penambah2;
               penambah2:=deret;
           end;
        end;
end.