Deret Fibbonacci Pascal



program fibonacci;
uses wincrt;
var a:array[1..1000] of integer;
i,k:integer;
begin
clrscr;
write('Input banyaknya fibbonaci: ');readln(i);

a[1]:=1;
a[2]:=1;
for k:=2 to i do
begin
a[k+1]:=a[k]+a[k-1];
end;
writeln;

for k:=1 to i do
begin
write(a[k],' ');
end;
writeln;
readln;
end.

Apabila anda menginginkan PAS Type File silahkan download link dibawah ini :
Download

Share this post!

Bookmark and Share

My Blog List