soma da diagonal principal de uma matriz

Publicado por NewLinuxer 13/12/2005

[ Hits: 14.578 ]

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

calculo de porcentagem em vetores

Script Copa do Mundo

Calculo do Fatorial Utilizando-se de for

soma de matrizes

script para ler um vetor e mostrar o conteúdo


  

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