Ir para o conteúdo

Tabuada 10x10

Em linha

Um pequeno programa que calcula as tabuadas da do 1 à do 10, desde 1*n até 10*n.

Program tabuada_10x10;
uses wincrt;
var V,N,R:integer;
Begin;
      writeln('O programa vai calcular as tabuadas do 1 ao 10, debitando sequencialmente os resultados.');
      readln;
      V:=0;
      repeat
            N:=0;
            R:=0;
            V:=V+1;
            writeln;
            writeln('Tabuada do ',V);
            repeat
                  N:=N+1;
                  R:=N*V;
                  writeln(N,'*',V,'=',R);
            until (N=10);
            if (V<>10) then begin
               write('Pausa. ');
               readln
               end;
      until (V=10);
      writeln('Concluido!');
      readln;
End.

Créditos a thoga31.

Em tabela

program tabuada;

var a, b: integer;

begin
  writeln(' x |   1   2   3   4   5   6   7   8   9  10');
  writeln('---+----------------------------------------');
  for a := 1 to 10 do
  begin
    write(a:2, ' |');
    for b := 1 to 10 do
    begin
      write((a*b):4);
    end;
    writeln;
  end;
end.

Output:

 x |   1   2   3   4   5   6   7   8   9  10
---+----------------------------------------
 1 |   1   2   3   4   5   6   7   8   9  10
 2 |   2   4   6   8  10  12  14  16  18  20
 3 |   3   6   9  12  15  18  21  24  27  30
 4 |   4   8  12  16  20  24  28  32  36  40
 5 |   5  10  15  20  25  30  35  40  45  50
 6 |   6  12  18  24  30  36  42  48  54  60
 7 |   7  14  21  28  35  42  49  56  63  70
 8 |   8  16  24  32  40  48  56  64  72  80
 9 |   9  18  27  36  45  54  63  72  81  90
10 |  10  20  30  40  50  60  70  80  90 100

Créditos a pedro-kun.