program fibonacci;
uses wincrt;
var bil:byte;
f,f1,f2,i,n:integer;
function fibonaci(n : integer):integer;
begin
writeln;
writeln('Suku ke- 1 = ',1);
writeln('Suku ke- 2 = ',1);
f1 :=1; f2:=1;
for i:=3 to n do
begin
f:=f1+f2;
writeln('Suku ke- ',i:2,' = ',F:3);
f2:=f1; f1:=f;
end;
end;
Begin
writeln;
writeln(' |==|Bilangan Fibonacci|==|');
writeln;
Write('n jumlah bilangan fibonacci : ');readln(bil);
Writeln(bil:4,' bilangan fibonacci adalah= ', fibonaci(bil):6);
End.
Belum ada tanggapan untuk "Fibonacci Numbers With Pascal Program"
Post a Comment