somatório de uma matriz 7x5

Publicado por NewLinuxer 13/12/2005

[ Hits: 7.210 ]

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

Cauculadora em Pascal

controle de notas de um aluno com registro e array

Coleta de dados de alunos em Pascal

Loops

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