Programam para efetuar a soma de duas matrizes 3x4

• Download exerc07.pas
• Enviar nova versã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.

Gerador de senha Pascal/Lazarus

Menu

Números perfeitos

calculo de porcentagem em vetores

Editor de Texto feito no Lazarus(Delphi 7 para Linux)

Nenhum coment�rio foi encontrado.