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

• Download exerc05.pas
• Enviar nova versão

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.

Fator

pares ou impares

script para ler um vetor e mostrar o conteúdo

Cáculo de Fatorial, utilizando-se de Repeat - Until

Tratar campos not null