Program Perkalian di Pascal

Program ini dibuat dengan menggunakan fungsi perulangan (looping).

Fungsi perulangan (looping) terdiri dari 3 bentuk antara lain;

• While... do.
• For... to... do.
• Repeat... Until 

Program ini dibuat menggunakan fungsi while... do.. dan repeat... until..

Uses crt;
Var
    A,B,C : Integer;

(*Menentukan Variabel yang akan digunakan.*)

Begin
     Clrscr;
     Writeln('Masukkan angka perkalian yang anda inginkan : '); readln(A);
     Writeln('=========================');
     Writeln('Angka 1   Angka 2   Hasil');
     Writeln('-------------------------');
     While A<=10 do

(*Menentukan batas input nilai pada varabel A*)
         Begin
              B := 0;
              Repeat
              B := B+1;
              C := A*B;
              Writeln(A:4, 'x':5, B:5, '=':5, C:4);

(*Mencetak Hasil*)
              Until B = 10;

(*Mengulangi perintah repeat  sampai batas nilai var B yaitu 10*)
              Break;
         End;
     Writeln('=========================');
     Readln;
End.

Capture Coding :

 

Capture Hasil Compile:

 Selamat Menikmati..