Program pascal deret Fibonaci

Program Deret_Fibonacci ;
Uses wincrt ;
Var Suku1, Suku2, N, Banyaksuku, Hitung : integer ;
Begin
  Writeln ('Banyak bilangan fibonacci yang ingin ditampilkan ') ;
  Readln  (Banyaksuku) ;
  Suku1:=1 ;
  Suku2:=2 ;
  Writeln ;
  Write (suku1) ;
  write (' ',suku2) ;
  Hitung:= 0 ;

  While (Hitung<Banyaksuku-2) do
  Begin
    N:=Suku1+Suku2 ;
    Write (' ',N) ;
    Suku1:=Suku2 ;
    Suku2:=N ;
    Hitung:=Hitung+1 ;
  End ;
End.

Tweet