Berikut ini adalah program untuk membuat tabel perkalian secara otomatis ;
Program TBlkali;
uses wincrt,crt;
var dimensi,i,j : integer;
pilih: char;
label baca;
begin
baca:
clrscr;
writeln('Mencetak tabel perkalian');
write('masukkan ukuran tabel (1 .. 15) : ');
readln(dimensi);
writeln;
if (dimensi>=1) and (dimensi<=15) then
begin
write ('*|':3);
for i :=1 to dimensi do write (i:4);
writeln;
for i := 1 to (dimensi+1)*4 do write('=');
writeln;
for i := 1 to dimensi do
begin
if i < 10 then write (' ');
write(i,'|');
for j:= 1 to dimensi do write (i*j : 4);
writeln;
end;
end
else writeln('Anda salah memasukkan ukuran ');
write('ingin membuat lagi? <y/t> : '); readln(pilih);
if (pilih='Y') or (pilih='y') then goto baca;
end.
