soma de matrizes

Publicado por NewLinuxer 13/12/2005

[ Hits: 11.683 ]

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

programa pra carregear duas matrizes e achar o maior

maior elemento de uma matriz

Tratamentos de Erros

controle de locadora

Tocador de Vídeo (Lazarus)


  

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