soma da diagonal principal de uma matriz

Publicado por NewLinuxer 13/12/2005

[ Hits: 14.875 ]

Download exerc02.pas




progrma para efetuar a soma da diagonal principal de uma matriz, após armazenar esta em um vetor.

  



Esconder código-fonte

PROGRAM EXERCICIO2;

USES CRT;

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


BEGIN
  SOMATORIA:=0;

  CLRSCR;

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

  FOR LINHA:=1 TO 7 DO
    SOMATORIA:= SOMATORIA+VETOR[LINHA];

  WRITELN('A SOMATORIA DOS VALORES DO VETOR : ',SOMATORIA);

READKEY;

END.

Scripts recomendados

mais um modelo de programa com vetor

calculo da somatoria da diagonal principal

Gerador de senha Pascal/Lazarus

Calculadora Básica

Calculadora usando procedures


  

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