Rabu, 16 Juni 2010
0
[Pascal] n Deret Fibonacci
uses crt;
var
N, i : integer;
function fibo(n:integer):integer;
var
A : array[1..100] of integer;
i : integer;
begin
for i:=1 to n do
begin
if (i=1) or (i=2) then
begin
A[i]:=1;
end else
begin
A[i]:=A[i-1]+A[i-2];
end;
end;
fibo:=A[i];
end;
{main program}
begin
clrscr;
write('Masukan N = ');
read(N);
write('Deret Fibo = ');
for i:=1 to N do
begin
write(fibo(i),' ');
end;
end.
Langganan:
Posting Komentar (Atom)
0 Komentar Untuk “[Pascal] n Deret Fibonacci”
Posting Komentar
Berikan komentar positif tentang artikel yang sederhana ini niscaya sobat akan mendapatkan balasannya. Hehehe