Program ini dibuat dengan menggunakan fungsi perulangan (looping).
Fungsi perulangan (looping) terdiri dari 3 bentuk antara lain;
- While... do.
- For... to... do.
- Repeat... Until
Uses crt;
Var
A,B,C : Integer;
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);
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;
Until B = 10;
(*Mengulangi perintah repeat sampai batas nilai var B yaitu 10*)
Break;
End;
Writeln('=========================');
Readln;
End.
Break;
End;
Writeln('=========================');
Readln;
End.
Capture Coding :
Capture Hasil Compile:
Selamat Menikmati..