somatório de uma matriz 7x5

Publicado por NewLinuxer 13/12/2005

[ Hits: 6.965 ]

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

Tratar campos not null

Menu

Cronômetro Lazarus/Pascal

Jogo Sudoku em Pascal

Operações básicas da matemática


  

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