Ketemu lagi di dokter matematika. :)
Kali ini kita akan membahas penggunaan Pascal untuk melakukan penjumlahan 1 hingga n (aritmatika). Jadi, jika kita memasukan penjumlahan sebanyak 5, maka program akan melakukan penjumlahan 1 hingga n (1+2+3+4+5). Untuk output programnya, seperti berikut ini.
Nah, untuk membuat program diatas akan membutuhkan enkripsi sebagai berikut:
program penjumlahan;
uses wincrt;
var batas,jumlah,I:integer;
begin
clrscr;
writeln('Menjumlahkan bilangan 1+2+3+..+n');
writeln;
write('menjumlahkan sampai berapa:');readln(batas);
jumlah:=0;
for I := 1 to batas do
jumlah:=jumlah+I;
writeln('jumlah bilangan 1 sampai',batas,'=',jumlah);
readln;
write('oke');
end.
selamat mencoba,
salam hangat dari dokter matematika. :)
