Berikut ini
adalah program yang menghasilkan tabel perkalian dari angka 1 sampai angka 5.
Program ini menggunakan while dalam while atau sering disebut juga dengan while
bersarang.
Kode Program:
program buat_kolom_baris; {while dalam while}{while bersarang}
var
a,b : integer;
begin
writeln('_____________________________________________________');
writeln('-----------------------------------------------------');
a := 1;
while a <= 10 do
begin
b := 1;
while b <= 5 do
begin
write
(a:5,'*',b,'=',(a*b):2);
b := b + 1;
end;
writeln;
a := a + 1;
end;
writeln('-----------------------------------------------------');
writeln('_____________________________________________________');
readln;
end.
Hasil Program:
Semoga
artikel Contoh Program Perkalian Menggunakan WHILE BERSARANG Pada Turbo
Pascal ini bermanfaat. Selamat mencoba dan semoga berhasil... ^_^
0 komentar:
Post a Comment
Silahkan tinggalkan komentar anda tentang tulisan ini...