Kamis, 23 Mei 2013
PROGRAM FIBONACCI PADA PASCAL
12:02:00 AM
3 comments
program fibonacci;
uses crt;
var
x,y,z,n,i:integer;
begin
clrscr;
write(masukkan nilai:');readln(n)
x:=0;
y:=1;
z:=1;
i:=1;
while (i<=n) do
begin
write(z,' ');
i:=i+1;
z:=x+y;
x:=y;
y:=z;
readln;
end.
Langganan:
Komentar (Atom)











