somatório de uma matriz 7x5 [Pascal/Kylix]

somatório de uma matriz 7x5

Publicado por NewLinuxer 13/12/2005

[ Hits: 7.222 ]

Download exerc01.pas

0 0

Denuncie Favoritos Indicar

programa que calcula a soma de cada linha de uma matriz e no final mostra a soma de toda matriz.

Esconder código-fonte

PROGRAM EXERCICIO1;

USES CRT;

VAR
  MATRIZ: ARRAY[1..7,1..5] OF INTEGER;
  LINHA, COLUNA, SOMATORIA: INTEGER;

BEGIN
  CLRSCR;

  SOMATORIA:=0;

  FOR LINHA:=1 TO 7 DO
    FOR COLUNA:=1 TO 5 DO
    BEGIN
      WRITE('DIGITE O NUMERO DA LINHA ',LINHA,', COLUNA ',COLUNA,': ');
      READLN(MATRIZ[LINHA,COLUNA]);
    END;

  FOR LINHA:=1 TO 7 DO
    WRITELN('A SOMATORIA DA LINHA ',LINHA,' : ',MATRIZ[LINHA,1]+MATRIZ[LINHA,2]+
             MATRIZ[LINHA,3]+MATRIZ[LINHA,4]+MATRIZ[LINHA,5]);

  FOR LINHA:=1 TO 7 DO
    FOR COLUNA:=1 TO 5 DO
      SOMATORIA:=SOMATORIA+MATRIZ[LINHA,COLUNA];

  WRITELN('A SOMATORIA DE TODA A MATRIZ : ', SOMATORIA);

  READKEY;

END.

Scripts recomendados

Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius

encontrar o maior e o menor valor em um vetor

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

Mostrar maior e menor

Funções strings e matemáticas

Comentários

Nenhum comentário foi encontrado.