1. Faça um algoritmo/programa para criar um arquivo chamado ALUNOS.DAT, onde cada registro será composto pelos seguintes campos: número, nome, curso, nota1, nota2.

Solução:

PROGRAM EX1;
{Programa para criar um arquivo ALUNOS.DAT, onde cada registro será composto pelos seguintes campos: número, nome, curso, nota1, nota2, em seguida o arquivo é aberto e fechado}

USES CRT;
TYPE aluno = RECORD numero : INTEGER; nome : STRING[20]; curso: STRING[15]; nota1, nota2 : REAL; END; classe = FILE OF aluno;
VAR ALUNOS: classe; A: aluno;
BEGIN
CLRSCR;
ASSIGN(ALUNOS, 'C:\ALUNOS.DAT');
REWRITE(ALUNOS);
CLOSE(ALUNOS);
WRITELN('Arquivo de ALUNOS criado com sucesso!!!');
READLN;
END.

2. Faça um algoritmo/programa para …exibir mais conteúdo…

ERO A.NOME := NOME A.CURSO := CURSO A.NOTA1:= NOTA1 A.NOTA2 := NOTA2 ESCREVA(ALUNOS, A) ESCREVA('ALUNO INCLUÍDO') FIM; FIM
LEIA
FECHE(ALUNOS)
FIM

PROGRAM EX2;
USES CRT;
TYPE aluno = RECORD numero : INTEGER; nome : STRING[20]; curso: STRING[15]; nota1, nota2 : REAL; END; classe = FILE OF aluno;
VAR ALUNOS: classe; A: aluno; K, I : INTEGER; ACHOU : BOOLEAN; NUMERO: INTEGER; NOME: STRING[20]; CURSO: STRING[15]; NOTA1,NOTA2: REAL;
BEGIN
CLRSCR; ASSIGN(ALUNOS, 'C:\ALUNOS.DAT'); {$I-} RESET(ALUNOS); {$I+} IF IORESULT = 2 THEN REWRITE(ALUNOS); K := FILESIZE(ALUNOS); WRITE('DIGITE O NéMERO DO ALUNO A SER INCLUÖDO '); READLN(NUMERO); IF K = 0 THEN BEGIN WRITE('DIGITE O NOME DO ALUNO A SER INCLUíDO '); READLN(NOME); WRITE('DIGITE O CURSO DO ALUNO A SER INCLUíDO '); READLN(CURSO); REPEAT WRITE('DIGITE A PRIMEIRA NOTA DO ALUNO A SER INCLUíDO '); READLN(NOTA1); UNTIL (NOTA1 >= 0) AND (NOTA1 <= 10);