soma de matrizes

Descrição

Esconder código-fonte

PROGRAM EXERCICIO7;

USES CRT;

VAR
  MATRIZ1, MATRIZ2, MATRIZ_SOMA: ARRAY[1..3,1..4] OF INTEGER;
  LINHA, COLUNA, MATRIZ: INTEGER;

BEGIN
  CLRSCR;

  FOR MATRIZ:=1 TO 2 DO
    FOR LINHA:=1 TO 3 DO
      FOR COLUNA:=1 TO 4 DO
      BEGIN
        WRITE('DIGITE O NUMERO DA LINHA ',LINHA,', COLUNA ',COLUNA,', MATRIZ ',MATRIZ,': ');
        IF MATRIZ = 1 THEN
          READLN(MATRIZ1[LINHA,COLUNA]);

        IF MATRIZ = 2 THEN
        BEGIN
          READLN(MATRIZ2[LINHA,COLUNA]);
          MATRIZ_SOMA[LINHA,COLUNA]:=MATRIZ1[LINHA,COLUNA]+MATRIZ2[LINHA,COLUNA];
        END;
      END;

  WRITELN;

  WRITELN('A SOMA DAS MATRIZES : ');
  WRITELN;

  FOR LINHA:=1 TO 3 DO
  BEGIN
    FOR COLUNA:=1 TO 4 DO
      WRITE(MATRIZ_SOMA[LINHA,COLUNA]:2,' ');

    WRITELN;
  END;

  READKEY;

END.