Thursday 6 December 2012


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...

Mutiara Hati

"Maha Suci Allah yang menjadikan di langit gugusan bintang-bintang dan Dia juga menjadikan padanya matahari dan bulan yang bersinar" (QS. Al-Furqan 25 : 61)

Your System

IP
"Mohon maaf.. Lagi maintenance..."

Popular Posts