algoritmos-e-programacao-ii-53

Prévia do material em texto

U
n
iv
e
rs
id
a
d
e
 A
b
e
rt
a
 d
o
 B
ra
si
l
104
UNIDADE IV
 Algoritmo	Definicao_Manipulacao_Registros;
 Tipo
 Cadastro_alunos = Registro
 RA : literal[10];
 Nome, Rua : literal[30];
 Numero : literal[5];
 CEP : literal[8];
 Cidade : literal[20];
 Estado : literal[2];
 CPF : literal[11];
 Idade : integer;
 Curso : literal[20];
 Fim_registro;
 //---------------------------------------------------
 Var
						Aluno_graduacao	:	Cadastro_alunos;
						Aluno_pos_graduacao	:	Cadastro_alunos;
 //---------------------------------------------------
 Função	Le_formulario()	:	Cadastro_alunos;
 Var
 Aluno : Cadastro_alunos;
 Início
 escreva(ꞌCadastro	de	aluno:ꞌ);
 escreva(ꞌRegistro	Acadêmico:	ꞌ);	leia(Aluno.RA);
 escreva(ꞌNome:	ꞌ);	leia(Aluno.Nome);
 escreva(ꞌRua:	ꞌ);	leia(Aluno.Rua);
 escreva(ꞌNúmero:	ꞌ);	leia(Aluno.Numero);
 escreva(ꞌCEP:	ꞌ);	leia(Aluno.CEP);
 escreva(ꞌCidade:	ꞌ);	leia(Aluno.Cidade);
 escreva(ꞌEstado:	ꞌ);	leia(Aluno.Estado);
 escreva(ꞌCPF:	ꞌ);	leia(Aluno.CPF);
 escreva(ꞌIdade:	ꞌ);	leia(Aluno.Idade);
 escreva(ꞌCurso:	ꞌ);	leia(Aluno.Curso);
 retorne Aluno;
 Fim;
 //---------------------------------------------------
 Procedimento	Exibe_formulario(Aluno	:	Cadastro_alunos);
 Início
 escreva(ꞌDados	do	aluno:ꞌ);
 escreva(ꞌRA:	ꞌ,	Aluno.RA,	ꞌ	-	Nome:	ꞌ,	Aluno.Nome);
 escreva(ꞌRua	ꞌ,	Aluno.Rua,	ꞌ,	ꞌ,	Aluno.Numero);
 escreva(	Aluno.CEP,	ꞌ	-	ꞌ,	Aluno.Cidade,	ꞌ	-	ꞌ,	Aluno.Estado);
 escreva(ꞌCPF:	ꞌ,	Aluno.CPF);
 escreva(ꞌIdade:	ꞌ,	Aluno.Idade);
 escreva(ꞌCurso:	ꞌ,	Aluno.Curso);
 Fim;
 //---------------------------------------------------
 Início
						Aluno_graduacao	:=	Le_formulario();
						Exibe_formulario(Aluno_graduacao);
 escreva(ꞌPressione	qualquer	tecla	para	continuar...ꞌ);
						Aluno_pos_graduacao	:=	Le_formulario();
						Exibe_formulario(Aluno_pos_graduacao);
 escreva(ꞌPressione	qualquer	tecla	para	encerrar...ꞌ);
 Fim.
Figura 44: Algoritmo – Definição e manipulação de registros.
105
UNIDADE IV
A
lg
o
rit
m
o
s 
e
 P
ro
g
ra
m
a
çã
o
 II
 Program	Definicao_Manipulacao_Registros;
 Type
 Cadastro_alunos = Record
 RA : string[10];
 Nome, Rua : string[30];
 Numero : string[5];
 CEP : string[8];
 Cidade : string[20];
 Estado : string[2];
 CPF : string[11];
 Idade : integer;
 Curso : string[20];
 End;
 //---------------------------------------------------
 Var
						Aluno_graduacao	:	Cadastro_alunos;
						Aluno_pos_graduacao	:	Cadastro_alunos;
 //---------------------------------------------------
 Function	Le_formulario()	:	Cadastro_alunos;
 Var
 Aluno : Cadastro_alunos;
 Begin
 writeln(ꞌCadastro	de	aluno:ꞌ);
 writeln;
 write(ꞌRegistro	Acadêmico:	ꞌ);	readln(Aluno.RA);
 write(ꞌNome:	ꞌ);	readln(Aluno.Nome);
 write(ꞌRua:	ꞌ);	readln(Aluno.Rua);
 write(ꞌNúmero:	ꞌ);	readln(Aluno.Numero);
 write(ꞌCEP:	ꞌ);	readln(Aluno.CEP);
 write(ꞌCidade:	ꞌ);	readln(Aluno.Cidade);
 write(ꞌEstado:	ꞌ);	readln(Aluno.Estado);
 write(ꞌCPF:	ꞌ);	readln(Aluno.CPF);
 write(ꞌIdade:	ꞌ);	readln(Aluno.Idade);
 write(ꞌCurso:	ꞌ);	readln(Aluno.Curso);
 writeln;
									Le_formulario	:=	Aluno;
 End;
 //---------------------------------------------------
 Procedure	Exibe_formulario(Aluno	:	Cadastro_alunos);
 Begin
 writeln(ꞌDados	do	aluno:ꞌ);
 writeln;
 writeln(ꞌRA:	ꞌ,	Aluno.RA,	ꞌ	-	Nome:	ꞌ,	Aluno.Nome);
 writeln(ꞌRua	ꞌ,	Aluno.Rua,	ꞌ,	ꞌ,	Aluno.Numero);
 writeln(	Aluno.CEP,	ꞌ	-	ꞌ,	Aluno.Cidade,	ꞌ	-	ꞌ,	Aluno.Estado);
 writeln(ꞌCPF:	ꞌ,	Aluno.CPF);
 writeln(ꞌIdade:	ꞌ,	Aluno.Idade);
 writeln(ꞌCurso:	ꞌ,	Aluno.Curso);
 writeln;
 End;
 //---------------------------------------------------
 Begin
						Aluno_graduacao	:=	Le_formulario();
						Exibe_formulario(Aluno_graduacao);
 write(ꞌPressione	qualquer	tecla	para	continuar...ꞌ);
 readkey; clrscr;
						Aluno_pos_graduacao	:=	Le_formulario();
						Exibe_formulario(Aluno_pos_graduacao);
 write(ꞌPressione	qualquer	tecla	para	encerrar...ꞌ);
 readkey; 
 End.
Figura 45: Programa em Pascal – Definição e manipulação de registros.