Estrutura de dados

Disponível somente no TrabalhosFeitos
  • Páginas : 4 (944 palavras )
  • Download(s) : 0
  • Publicado : 12 de abril de 2011
Ler documento completo
Amostra do texto
unit agenda;
interface
uses crt,dos;
type
registro = record
matricula: string[10];
nome : string[50];
endereco : string[40];
bairro : string[30];
cidade: string[50];estado: string[2];
cep : STRING[10];
sexo : string[1];
fone : string[15];
cel : string [15];
idade :integer;
anoatual : integer;
ano: integer;
end;
arquivo= file of registro;
var
trabalho1: arquivo;
reg: registro;
opcao : integer;
aux : string [10];
total: integer;
//Prototipos
Procedure menu;
procedure abre_arq;
procedurefecha_arq;
procedure cadastro ;
PROCEDURE LISTAR ;
PROCEDURE BUSCAR ;
procedure alterar;
implementation
Procedure menu;
VAR
op:integer;
Dia,
Mes,
Ano,
Dia_Semana,
Hora,
Minuto,Segundo,
Dec_Segundo : Word;
BEGIN
// gotoxy(0,0);
textcolor( lightcyan );
textbackground( black );

GOTOXY(15,2);WRITELN('BEM VINDO A AGENDA ELETRONICA');
GOTOXY(10,5);writeln ('*** M E NU D E O P C O E S ***');
GOTOXY(10,6);WRITELN ('******************************************');
GOTOXY(10,7);WRITELN ('** 1-CADASTRO **');
GOTOXY(10,8);WRITELN('** 2-LISTAR AGENDA **');
GOTOXY(10,9);WRITELN ('** 3-BUSCAR CONTATOS **');
GOTOXY(10,10);WRITELN ('** 4-ALTERAR **');GOTOXY(10,11);WRITELN ('** 5-SAIR **');
GOTOXY(10,12);WRITELN ('** ESCOLHA UMA OPCAO **');
GOTOXY(10,13);WRITELN('******************************************');
GOTOXY(10,16);WRITELN ('******************************************');
GOTOXY(10,17);WRITELN ('*** ALUNOS DE CLEIDE CORPORATE LTDA. ***');
GOTOXY(10,18);WRITELN('******************************************');
GOTOXY(60,2);WRITELN ('Densenvolvido por:');
GOTOXY(60,3);WRITELN ('Cleiton Assis');
GOTOXY(60,4);WRITELN ('Cledsoney Matos');
GOTOXY(60,5);WRITELN ('Joao...
tracking img