soma de matrizes

Publicado por NewLinuxer 13/12/2005

[ Hits: 11.673 ]

Download exerc07.pas




Programam para efetuar a soma de duas matrizes 3x4

  



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.

Scripts recomendados

equação de 2º grau

Cáculo de Fatorial, utilizando-se de Repeat - Until

Cálculadora de décimo terceiro

Coleta de dados de alunos em Pascal

Existência de triângulo, em Pascal


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts