uses crt;
var
x,y,z:integer;
fibo:array[1..100]of integer;
begin
clrscr;
write(‘masukan banyak deret: ‘);
readln(x);
clrscr;
writeln(‘deret fibonacci: ‘);
for y:=1 to x do
begin
if y<3 then
begin
fibo[y]:=1;
end
else
begin
fibo[y]:=fibo[y-1]+fibo[y-2];
end;
write(fibo[y],’ ’);
end;
readln();
end.
* * *
Tidak ada komentar:
Posting Komentar
Terima Kasih telah melihat dan membaca artikel di atas.
Jika ada yang kurang dimengerti, silahkan tinggalkan komentar anda dengan bahasa yang baik dan bijak. bukan SARA, SPAM, SAMPAH, dan berbau PORNOGRAFI..
Anda Juga dapat memberikan kritik dan saran kepada blog ini demi terciptanya kemajuan dan perkembangan blog ini
Semoga Bermanfaat.