program fibonachi;
uses wincrt;
var
a:array[1..100] of real;
i,n:integer;
begin
write ( 'Masukkan suku keberapa deret fibonacci: ');readln(n);
a[1]:=1;
a[2]:=1;
for i:=2 to n do
a[i+1]:=a[i]+a[i-1];
for i:=1 to n do
write (a[i]:2:0,' ');
end.
selamat mencoba!!!!!!!!!
Minggu, 13 Desember 2009
program deret fibonacci
Posted in |
17.22 | by ClubPoker-DNA
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar