domingo, 30 de janeiro de 2011

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.

Nenhum comentário:

Postar um comentário