Berikut ini
adalah program yang menghasilkan tabel perkalian dari angka 1 sampai angka 5.
Program ini menggunakan for dalam for atau sering disebut juga dengan for
bersarang.
Kode Program:
program buat_kolom_baris; {for bersarang}
var
a,b : integer;
begin
writeln('_____________________________________________________');
writeln('-----------------------------------------------------');
a := 0;
for a := 1 to 10 do
begin
for b := 1 to 5 do
begin
write
(a:5,'*',b,'=',(a*b):2);
end;
writeln;
end;
writeln('-----------------------------------------------------');
writeln('_____________________________________________________');
readln;
end.
Hasil Program:
Selamat
Mencoba,, semoga berhasil... ^_^
0 komentar:
Post a Comment
Silahkan tinggalkan komentar anda tentang tulisan ini...