Hai, hari ini akan saya posting contoh bahasa pemrograman Pascal mengenai Looping while-do...
:D
uses crt;
var i, n, jumlah: integer;
begin
clrscr;
writeln('menjumlahkan deret 1+2+3+..+n');
writeln;
write('masukkan nilai n: ');readln(n);
jumlah:=0;
i:=1;
while i<=n do
begin
jumlah:=jumlah+i;
i:=i+1;
end;
write('deret dari 1 sampai : ',n,' = ',jumlah);
readln;
end.
kemudian Run, tekan Ctrl+F9
input bilangan kedalam program...
dan hasilnya :
jika terjadi kesalahan dalam program, mohon di komen agar bisa kami perbaiki, oce kawan :D
Silahkan dikembangkan lebih jauh lagi, karna kami hanya menyediakan program-program sederhana untuk dikembangkan oleh para pembaca sekalian...
mohon maaf apabila ada salah-salah kata dari kami ya!!
Terima Kasih :D
:D
uses crt;
var i, n, jumlah: integer;
begin
clrscr;
writeln('menjumlahkan deret 1+2+3+..+n');
writeln;
write('masukkan nilai n: ');readln(n);
jumlah:=0;
i:=1;
while i<=n do
begin
jumlah:=jumlah+i;
i:=i+1;
end;
write('deret dari 1 sampai : ',n,' = ',jumlah);
readln;
end.
kemudian Run, tekan Ctrl+F9
input bilangan kedalam program...
dan hasilnya :
jika terjadi kesalahan dalam program, mohon di komen agar bisa kami perbaiki, oce kawan :D
Silahkan dikembangkan lebih jauh lagi, karna kami hanya menyediakan program-program sederhana untuk dikembangkan oleh para pembaca sekalian...
mohon maaf apabila ada salah-salah kata dari kami ya!!
Terima Kasih :D
Komentar :
Post a Comment