Jumat, 11 November 2011

Program Fibonacci pada Pascal

Posted on 09.45 by Agung Mulyawan

 Fibonacci adalah deretan angka yang dimulai dari angka 0 dan 1 , kemudian angka berikutnya didapat dengan cara menjumlahkan dua angka di belakangnya.

0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610...

Pada kesempatan kali ini saya akan memberikan contoh program fibonacci dengan menggunakan bahasa pemrograman pascal.

Ketentuan
  • User menginputkan jumlah deret fibonacci yang akan di tampilkan kelayar

Code : 
program contoh;
uses crt;
var
x,y,z,n,i:integer;
begin
clrscr;
write('masukan nilai : ');readln(n);
x:=0;
y:=1;
z:=1;
i:=1;
while (i<= n) do
      begin
           write(z,' ');
           i:=i+1;
           z:=x+y;
           x:=y;
           y:=z;
      end;
readln;

end.
Hasil :

Posted in |