Menjumlahkan Deret Menggunakan Repeat Until

Posted by : Unknown Minggu, 04 Januari 2015

Menghitung sebuah deret terkadang gak sesuai dengan hasil yang sebenarnya, karna terkadang kita melewatkan salah satu angka. Meskipun memakai kalkulator sekalipun apabila ada angka yang tertinggal, maka hasilnya juga gak akan sesuai. Nah, maka dari itu kali ini aku berbagi program untuk menjumlahkan sederet angka. Jadi bisa meneliti apabila ada angka yang tertinggal. Kan kasian kalo ditinggal?

Aku pilih contoh penjumlahan yang mudah saja, yaitu penjumlahan 1 sampai 10 hehe..
Berikut scriptnya..

uses

SysUtils;

var

I,A,JUM:integer;

begin

writeln('PENJUMLAHAN DERET MENGGUNAKAN REPEAT UNTIL');

writeln('==========================================');

I :=1;

JUM :=0;

repeat

A :=I;

JUM :=JUM+A;

writeln(A);

I :=I+1;

until I>10;

writeln('HASIL PENJUMLAHAN DERET 1+2+3...',JUM);

readln;

end.

Ketik atau kalian juga bisa copy script aku ke delphi kalian.

Setelah selesai langsung jalankan program tersebut dan tekan Enter pada keyboard kalian.
Hasilnya akan tampil seperti berikut ini..

Lebih mudah dari menghitung dengan kalkulator kan? Bisa diteliti juga kalo ada yang tertinggal...
Jadi hasilnya sesuai dengan yang diharapkan.

Sekian duluu yah? Maaf bila ada kesalahan, maklum nmanya juga belajar hehe...
Lain kali akan lebih baik lagiii.... Terimakasih
Semoga bermanfaat buat semuanya