Somando duas matrizes em Pascal

Program SOMA_DAS_MATRIZES;
uses crt;
var A, B: array [1..3, 1..3] of integer;
i, j: integer;
begin

     // Site: http://programjm.blogspot.com.br/
     // Autor: João Matheus Santos Assis

     {
      Programa que recebe duas matrizes, no qual os valores
      são digitados pelo usuário, e exibe a soma resultante.
     }

     textcolor(15);

     writeln (' PRIMEIRA MATRIZ');
     writeln;
     for i:=1 to 3 do begin
         for j:=1 to 3 do begin
             write (' A[',i,',',j,']: ');
             readln (A[i,j]);
         end;
     end;

     writeln; writeln;

     // Exibindo a Matriz A.
     for i:=1 to 3 do begin
         for j:=1 to 3 do
             write (A[i,j]:4);
         writeln;
     end;

     writeln; writeln;



     writeln (' SEGUNDA MATRIZ');
     writeln;
     for i:=1 to 3 do begin
         for j:=1 to 3 do begin
             write (' B[',i,',',j,']: ');
             readln (B[i,j]);
         end;
     end;

     writeln; writeln;

     // Exibindo a Matriz B.
     for i:=1 to 3 do begin
         for j:=1 to 3 do
             write (B[i,j]:4);
         writeln;
     end;

     writeln; writeln;



     // Exibindo a soma das matrizes.
     writeln (' SOMA DAS MATRIZES');
     writeln;
     for i:=1 to 3 do begin
         for j:=1 to 3 do
             write (A[i,j] + B[i,j]:4);
         writeln;
     end;

readkey;
end.


Artigos relacionados em Pascal:

• Calculando o IMC em Pascal
• Desenhando um quadrado em Pascal
• Desenhando um triângulo em Pascal
• Calculadora Simples em Pascal
• Simulador do Jogo da Mega Sena em Pascal
• Determinante da matriz em Pascal

Feito no Dev-Pascal 1.9.2 | Executável