soma da diagonal principal de uma matriz

Publicado por NewLinuxer 13/12/2005

[ Hits: 14.585 ]

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

Calculadora completa com porcentagem(Lazarus)

Multiplicação de Matrizes

Gerador de senha Pascal/Lazarus

Cauculadora em Pascal

soma de um intervalo


  

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