Pascal - Konsolowe

Tabliczka mnożenia

Tabliczka mnożenia
Pascal - Konsolowe

Program: wyświetlający tabliczkę mnożenia 10×10.

Wymiary tabliczki są zdefiniowane z góry w kodzie programu.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program tabliczka;
uses crt;
var i,j:integer;
    a:array[1..20,1..20] of integer;
begin
     clrscr;
     writeln('Program wyswitela tabliczke mnozenia');
     {podstawianie danych}
     for i:=1 to 20 do
     for j:=1 to 20 do
         a[i,j]:=i*j;
     for i:=1 to 10 do
     begin
       for j:=1 to 10 do
           write(a[i,j]:4);
           writeln;
     end;
     readkey;
end.