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..
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
