REKURSIF FIBONACCI

uses wincrt;
var
i, a : integer;

function fib(i : integer) : integer;
begin
if (i=0) or (i=1) then
fib :=i
else
fib:= fib(i-1)+fib(i-2);
end;


begin
writeln('Program Rekursif Fibonacci ');
writeln('========================== ');
writeln(' oleh Syarif Hidayatullah ');
writeln;
writeln(' =========================');
write(' |');
for i:= 1 to 10 do
begin
fib(i);
write(fib(i),'|');
end;
writeln;
writeln(' =========================');
end.

Related Posts by Categories

Posted in: Pemrograman