Pemograman Pascal
ada yang bisa ngubah hasilnya jadi nurun ga? ini kan mendatar dibuat menurun gitu
ini scriptnya

program deret_fibonacci;
uses crt;
var
i,a,b,c,d,e:longint;
z:char;
begin
repeat
clrscr;
writeln('Deret Fibbonaci');
writeln('===============');
writeln;
write('Masukan Jumlah deret :');readln(a);
write('Deret fibbonaci ',a,' Deret:');
for b:=1 to a do
begin
d:=0;
e:=1;
c:=0;
for a:=1 to b do
c:=c+d;
d:=d;
e:=e;
write(c:4); write(' ');
end;
readln;
write('handak lagi kah? (y/n)');readln(z);
until upcase (z) <> 'Y';
readln;
end.

sekalian sama penjelasannya ya
sebelumnya terimakasih

1

Jawabanmu

2014-04-10T22:13:55+07:00
Ini saya buat sendiri barusan dan work. Semoga membantu!
Harap Pilih Yang Terbaik ( Untuk Indonesia! [?] )

Program telah disediakan di lampiran...
Jika ingin penjelasan mohon kirim pesan kedapa saya!

Sekali lagi, semoga bermanfaat!

makasih, bisa hasilnya juga menurun
oh iy mas, bisa kasih maksudnya ga?
saya yang kurang ngerti di for b:=1 to a do
begin
d:=0;
e:=1;
c:=0;
for a:=1 to b do
c:=c+d;
d:=d;
e:=e;
writeln(c:4);
end;
Wah, gan.. kalau yang pertama memang mungkin ada kesalahan...
Yang sudah saya ralat ini lebih mudah dimengerti.. Selamat dipelajari! :)
Jika tidak mengerti, comment aja di sini.. :D