Friday 7 December 2012


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

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