calculo da somatoria da diagonal principal [Pascal/Kylix]

calculo da somatoria da diagonal principal

Publicado por NewLinuxer 13/12/2005

[ Hits: 12.077 ]

Download exerc05.pas

0 0

Denuncie Favoritos Indicar

Programa para calcular a soma dos elemntos da diagonal principal d euma matriz 2x2

Esconder código-fonte

PROGRAM EXERCICIO5;

USES CRT;

VAR
  MATRIZ: ARRAY[1..2,1..2] OF REAL;
  LINHA, COLUNA: INTEGER;
  SOMA:REAL;

BEGIN
  CLRSCR;

  SOMA:=0;

  FOR LINHA:=1 TO 2 DO
  BEGIN
    FOR COLUNA:=1 TO 2 DO
    BEGIN
      WRITE('DIGITE O NUMERO DA LINHA ',LINHA,', COLUNA ',COLUNA,': ');
      READLN(MATRIZ[LINHA,COLUNA]);

      IF LINHA=COLUNA THEN
        SOMA:= SOMA+MATRIZ[LINHA,COLUNA];

    END;
  END;

  WRITELN;

  WRITELN('A SOMA DA DIAGONAL PRINCIPAL DA MATRIZ : ',SOMA:2:3);

  READKEY;

END.

Scripts recomendados

Cronômetro Lazarus/Pascal

Funções strings e matemáticas

jogo bobo testando com case

Conjuntos

palindroma

Comentários

[1] Comentário enviado por esquiter em 10/03/2010 - 16:08h

como calculo o numeros que estao abaixo da diagonal principal da matriz, esta foi uma questão de prova e não consegui responder.

pode me ajudar como resolver?

elizeu.

0 0