Algoritmos

Disponível somente no TrabalhosFeitos
  • Páginas : 9 (2208 palavras )
  • Download(s) : 0
  • Publicado : 28 de julho de 2012
Ler documento completo
Amostra do texto
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
VARALUNOS: 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 INICIOESCREVA('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);REPITA
ESCREVA('DIGITE A SEGUNDA NOTA DO ALUNO A SER INCLUíDO ');
LEIA(NOTA2);
ATÉ (NOTA2 >= 0) AND (NOTA2 <= 10);
A.NUMERO := NUMERO;
A.NOME := NOME;
A.CURSO := CURSO;
A.NOTA1:= NOTA1;
A.NOTA2 := NOTA2;ESCREVA(ALUNOS, A);
ESCREVA('ALUNO INCLUÍDO');
FIM
SENÃO INICIO
I := 0
ACHOU := FALSE
ENQUANTO ( I <= (K-1)) FAÇA
INICIO
LEIA(ALUNOS, A)
SE A.NUMERO = NUMERO
ENTÃO INICIO
ACHOU := TRUE
I := K+1FIM
SENÃO INICIO
I := I+1
PESQUISE(ALUNOS, I)
FIM
FIM
SE ACHOU = TRUE
ENTÃO ESCREVA('ESTE ALUNO JÁ ESTÁ CADASTRADO ')
SENÃO INICIOESCREVA('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)
REPITA
ESCREVA('DIGITE A SEGUNDA NOTA DO ALUNO A SER INCLUÍDO ')
LEIA(NOTA2)
ATÉ (NOTA2 >= 0) AND (NOTA2 <= 10)...
tracking img