Algoritmos

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 incluir alunos no arquivo criado no Exercício 1, lembrando que não podem existir dois alunos com o mesmo número.

Solução: Nesse exercício vamos mostrar primeiro o algoritmo e depois o programa escrito em PASCAL

ALGORITMO EX2
{Algoritmo para incluir alunos no arquivo criado no exercício 1}

TIPO aluno = REGISTRO numero : INTEGER nome : STRING[20] curso: STRING[15] nota1, nota2 : REAL FIM classe = ARQUIVO DE aluno
VAR ALUNOS: classe A: aluno K, I : INTEIRO ACHOU : LOGICO NUMERO: INTEIRO NOME: STRING[20] CURSO: STRING[15] NOTA1,NOTA2: REAL
INICIO
ASSOCIE(ALUNOS, 'C:\ALUNOS.DAT'); ABRA(ALUNOS); K := TAMANHO DO ARQUIVO(ALUNOS); ESCREVA('DIGITE O NÚMERO DO ALUNO A SER INCLUÖDO '); LEIA(NUMERO); SE K = 0 ENTÃO INICIO ESCREVA('DIGITE O NOME DO ALUNO A SER INCLUíDO '); LEIA(NOME); ESCREVA('DIGITE O CURSO DO ALUNO A SER INCLUíDO '); LEIA(CURSO); REPITA ESCREVA('DIGITE A PRIMEIRA NOTA DO ALUNO A SER INCLUíDO '); LEIA(NOTA1); ATÉ (NOTA1 >= 0) AND (NOTA1 <= 10);