Relatório de notas de alunos

PROGRAM RelaórioNotas;
USES CRT;
VAR NOME: ARRAY [1..2] OF STRING;
    NOTA: ARRAY [1..2] OF REAL;
    I, J,CONTJ: INTEGER;

BEGIN
  CLRSCR;
  FOR I:= 1 TO 2 DO
  BEGIN
    WRITELN ('DIGITE O NOME DO ',I,' ALUNO');
    BEGIN
      READLN (NOME[I]);
      BEGIN
        WRITELN ('DIGITE A NOTA DO ',NOME[I]);
        BEGIN
          READLN (NOTA[J]);
          CONTJ:= J + 1;
        END;
      END;
    END;
  END;
 WRITELN ('RELATORIO DE NOTAS');
 WRITELN ('ALUNO ',' NOTA');
 FOR I:= 1 TO 2 DO
 BEGIN
   WRITELN (NOME [I]  ,NOTA[J]:2:2);
   FOR I:= 1 TO CONTJ DO
   WRITELN (NOME[I] , NOTA[J]:2:2);

 END;
 READKEY;
END.

Mostra os números digitados

PROGRAM EP12;
USES CRT;
VAR A: ARRAY [1..5] OF INTEGER;
    I, ACUM: INTEGER;
    SOMA: STRING;
BEGIN
CLRSCR;
 FOR I:= 1 TO 5 DO
 BEGIN
   WRITELN ('DIGITE O',I,' NUMERO');
   BEGIN
     READLN (A[I]);
   END;
 END;
 ACUM:= 0;
 FOR I:= 1 TO 5 DO
 BEGIN
   ACUM:= ACUM + A[I];
 END;
 WRITELN ('OS NUMEROS DIGITADOS FORAM:');
 BEGIN
 WRITELN (ACUM);
 END;
 READKEY;
END.

Elementos de um vetor

PROGRAM EP1;
USES CRT;
VAR VETOR:ARRAY[1..6] OF INTEGER;
    PAR: ARRAY[1..6] OF INTEGER;
    IMPAR: ARRAY[1..6] OF INTEGER;
    I,J,AUX, QTDP, QTDI: INTEGER;

BEGIN
 CLRSCR;
 FOR I:= 1 TO 6 DO
 BEGIN
   WRITELN ('DIGITE O ',I,' NUMERO DO VETOR');
   READLN (VETOR[I]);
   IF (VETOR[I] MOD 2 = 0) THEN (QTDP):= (QTDP + 1)
    ELSE (QTDI):= (QTDI + 1);
 END;
 WRITELN ('O VETOR POSSUI ',QTDP,' ELEMENTOS PARES QUE SAO:');
 FOR I:= 1 TO 6 DO
 BEGIN
   IF (VETOR[I] MOD 2 = 0) THEN  WRITE (VETOR[I],',');
 END;
 WRITELN;
 WRITELN ('O VETOR POSSUI ',QTDI,' ELEMENTOS IMPARES QUE SAO:');
 FOR I:= 1 TO 6 DO
 BEGIN
   IF (VETOR[I] MOD 2 <> 0) THEN WRITE (VETOR[I],',');
 END;
 READKEY;
END.

Determinante: Matrix de ordem 4

Program Determinante;
Uses CRT;
Var
  M: Array [0..4,0..4] OF Integer;
  Li, Co, Det, A11, A12, A13, A14: Integer;
Begin
clrscr;
Writeln ('Calcular o determinante de uma matriz de ordem n=4 e alertar quando essa ordem  nao for cumprida');
writeln;
writeln;
    Writeln('Informe os termos da Matriz de orden n=4: ');
    For Li := 0 to 3 Do
        For Co := 0 to 3 Do
            Begin
                M[Li,Co] := 0;
                Writeln('Linha = ' , Li , ' Coluna = ' , Co);
                Readln(M[Li,Co]);
            End;
    ClrScr;
    A11 :=  M[0,0]*( (M[1,1]*M[2,2]*M[3,3]) + (M[1,2]*M[2,3]*M[3,1]) +
                     (M[1,3]*M[2,1]*M[3,2]) - (M[1,3]*M[2,2]*M[3,1]) -
                     (M[1,1]*M[2,3]*M[3,2]) - (M[1,2]*M[2,1]*M[3,3]) );

    A12 :=  M[0,1]*( (M[1,0]*M[2,2]*M[3,3]) + (M[1,2]*M[2,3]*M[3,0]) +
                     (M[1,3]*M[2,0]*M[3,2]) - (M[1,3]*M[2,2]*M[3,0]) -
                     (M[1,0]*M[2,3]*M[3,2]) - (M[1,2]*M[2,0]*M[3,3]) )*(-1);

    A13 :=  M[0,2]*( (M[1,0]*M[2,1]*M[3,3]) + (M[1,1]*M[2,3]*M[3,0]) +
                     (M[1,3]*M[2,0]*M[3,1]) - (M[1,3]*M[2,1]*M[3,0]) -
                     (M[1,0]*M[2,3]*M[3,1]) - (M[1,1]*M[2,0]*M[3,3]) );

    A14 := M[0,3]*( (M[1,0]*M[2,1]*M[3,2]) + (M[1,1]*M[2,2]*M[3,0]) +
                    (M[1,2]*M[2,0]*M[3,1]) - (M[1,2]*M[2,1]*M[3,0]) -
                    (M[1,0]*M[2,2]*M[3,1]) - (M[1,1]*M[2,0]*M[3,2]) )*(-1);
    Writeln('I11 = ', M[0,0] , ' I12 = ', M[0,1] , ' I13 = ', M[0,2] , ' I14 = ', M[0,3]);
    Writeln('A11 = ', A11, ' A12 = ', A12, ' A13 = ', A13, ' A14 = ', A14);
    Det := A11 + A12 + A13 + A14;
    writeln;
    Writeln('O determinante da matriz e:',Det);
    Readkey;
End.

Calculo de determinante

Program Determinante;
Uses CRT;
Var
  M: Array [0..4,0..4] OF Integer;
  Li, Co, Det, A11, A12, A13, A14: Integer;
Begin
    ClrScr;
    Writeln('Informe os termos da Matriz (4x4): ');
    For Li := 0 to 3 Do
        For Co := 0 to 3 Do
            Begin
                M[Li,Co] := 0;
                Writeln('Linha = ' , Li , ' Coluna = ' , Co);
                Readln(M[Li,Co]);
            End;
    ClrScr;
    A11 :=  M[0,0]*( (M[1,1]*M[2,2]*M[3,3]) + (M[1,2]*M[2,3]*M[3,1]) +
                     (M[1,3]*M[2,1]*M[3,2]) - (M[1,3]*M[2,2]*M[3,1]) -
                     (M[1,1]*M[2,3]*M[3,2]) - (M[1,2]*M[2,1]*M[3,3]) );

    A12 :=  M[0,1]*( (M[1,0]*M[2,2]*M[3,3]) + (M[1,2]*M[2,3]*M[3,0]) +
                     (M[1,3]*M[2,0]*M[3,2]) - (M[1,3]*M[2,2]*M[3,0]) -
                     (M[1,0]*M[2,3]*M[3,2]) - (M[1,2]*M[2,0]*M[3,3]) )*(-1);

    A13 :=  M[0,2]*( (M[1,0]*M[2,1]*M[3,3]) + (M[1,1]*M[2,3]*M[3,0]) +
                     (M[1,3]*M[2,0]*M[3,1]) - (M[1,3]*M[2,1]*M[3,0]) -
                     (M[1,0]*M[2,3]*M[3,1]) - (M[1,1]*M[2,0]*M[3,3]) );

    A14 := M[0,3]*( (M[1,0]*M[2,1]*M[3,2]) + (M[1,1]*M[2,2]*M[3,0]) +
                    (M[1,2]*M[2,0]*M[3,1]) - (M[1,2]*M[2,1]*M[3,0]) -
                    (M[1,0]*M[2,2]*M[3,1]) - (M[1,1]*M[2,0]*M[3,2]) )*(-1);
    Writeln('I11 = ', M[0,0] , ' I12 = ', M[0,1] , ' I13 = ', M[0,2] , ' I14 = ', M[0,3]);
    Writeln('A11 = ', A11, ' A12 = ', A12, ' A13 = ', A13, ' A14 = ', A14);
    Det := A11 + A12 + A13 + A14;
    Writeln(Det);
    Readkey;
End.