Bilangan Fibonaci

Bilangan Fibonaci Pada Pascal

Seperti yang kita ketahui bahwa Bilangan Fibonaci adalah bilangan yang di dapat dari hasil penjumlahan dua bilangan sebelumnya.

berikut adalah program fibonaci pada pascal.

Uses crt;
Var i,j : integer;

Procedure fibonaci;
var a,b,c : integer;
begin

a:=1:
b:=0;

writeln(' masukkan nilai : '); readln(j);
for i:= 1 to j do
begin
c:=a+b;
write(c);
a:=b;
b:=c;
end;
end;

Begin

clrscr;
writeln(' Bilangan Fibonaci' );
writeln;
fibonaci;
readln;

End.

Selamat mencoba......