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