Contoh Program Perkalian Menggunakan FOR BERSARANG Pada Turbo Pascal

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