calculo da somatoria da diagonal principal

Publicado por NewLinuxer 13/12/2005

[ Hits: 11.766 ]

Download exerc05.pas




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

Fibonacci (Pascal)

Números primos (usando arrays)

Cronômetro Lazarus/Pascal

calculo de vendas

Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)


  

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.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts