uses wincrt;
var x:array[1..50] of integer;
i,n:integer;
{--------------------------------------------------------------------}
function fibo(n:integer):integer;
begin
if (n=1) or (n=2) then
fibo:=1
else
fibo:=fibo(n-1)+fibo(n-2);
end;
{--------------------------------------------------------------------}
begin
write('Anda mencari suku ke : ');readln(n);
writeln('Suku ke ',n,' = ',fibo(n));
end.
Output :
0 komentar:
Posting Komentar