Menjumlahkan Deret Menggunakan Repeat Until

Menghitung sebuah deret terkadang gak sesuai dengan hasil yang sebenarnya, karna terkadang 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? HAHAH xD



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 :):):)
Wassalamu'alaikum....