BILANGAN FIBONACCI

     Bilangan fibonacci merupakan suatu bilangan yang unik dan menunjukan bahwa Allah SWT menciptakan segala sesuatu dengan keteraturan. Dengan menggunakan software Delphi, kita dapat menunjukkan bilangan fibonacci yang kurang dari suatu nilai dari yang kita tentukan.

procedure TDERET_BILANGAN.ButtonFibonacci(Sender: TObject);

//memunculkan bilangan Fibonacci kurang dari p

var

  p,c,d,b,g,e : integer;

begin                         

 listbox1.Clear;

 p := StrToInt (edit1.Text);

 g := 0;

 c := 1 ;

 e := 1;

 while g+c < p do

    begin

    g := g + c ;

    listbox1.Items.Add('Bil. fibonacci ke ' + IntToStr (e)+ '=' + IntToStr (g)) ;

    c := g - c ;

    e := e + 1;

    end;

end;