Hai, hari ini akan saya posting contoh bahasa pemrograman Pascal mengenai looping for-to-do...
:D
uses crt;
var a : integer;
begin
clrscr;
write('selamat datang dalam acara looping, silahkan tekan enter untuk melanjutkan');
readln;
for a:= 1 to 10 do
writeln('dayakomputerku.blogspot.com');
readln;
write('terima kasih');readln;
end.
kemudian Run, tekan Ctrl+F9
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 a : integer;
begin
clrscr;
write('selamat datang dalam acara looping, silahkan tekan enter untuk melanjutkan');
readln;
for a:= 1 to 10 do
writeln('dayakomputerku.blogspot.com');
readln;
write('terima kasih');readln;
end.
kemudian Run, tekan Ctrl+F9
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