somatório de uma matriz 7x5

Publicado por NewLinuxer 13/12/2005

[ Hits: 7.037 ]

Download exerc01.pas




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

registro de turma com record

intercalar dois arrays (vetores)

Calculo de la Moda

programa pra carregear duas matrizes e achar o maior

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