soma de matrizes

Publicado por NewLinuxer 13/12/2005

[ Hits: 11.754 ]

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

Cronômetro Lazarus/Pascal

Calculadora de décimo terceiro no Lazarus

soma da diagonal principal de uma matriz

Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)

calculo da somatoria da diagonal principal


  

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