Trabalho Algoritmos

Trabalho: Manipulação de arquivos
Livro : Lógica de programação – FORBELLONE, André Luiz Villar.

INICIO

//Definição do vetor string tipo string = vetor[1..80] de char;

//Definição do registro tipo Pessoal = registro inteiro:cadastro,data,cep,identidade,cateiraprofissional,cpf,datanascimento,f oneresidencial,fonecomercial,classe; string:nome,endereco,bairro,cidade,filiacaopai,filiacaomae,sexo,estadocivil; booleano: pessoa; fimregistro;

tipo arqPessoal = arquivo composto de Pessoal;

pessoal: aux; arqPessoal: fichas;

//Inserir registro

abra (fichas);

repita

avance (fichas);

até que fda (fichas);

leia (aux.cadastro, aux.data, aux.cep, aux.identidade, aux.carteiraprofissional, aux.cpf, aux.datanascimento, aux.foneresidencial, aux.fonecomercial, aux.classe, aux.nome, aux.endereco, aux.bairro, aux.cidade, aux.filiacaopai, aux.filiacaomae, aux.sexo, aux.estadocivil, aux.pessoa);

guarde(fichas, aux);

feche (fichas);

//Consultar registro

inteiro: cadastroProcurado;

abra (fichas); leia (cadastroProcurado);

repita copie (fichas, aux); avance (fichas); até (aux.Cadastro = cadastroProcurado) ou (fda (fichas));

se (aux.Cadastro = cadastroProcurado) então escreva (aux.cadastro, aux.data, aux.cep, aux.identidade, aux.carteiraprofissional, aux.cpf, aux.datanascimento, aux.foneresidencial, aux.fonecomercial, aux.classe, aux.nome, aux.endereco, aux.bairro, aux.cidade, aux.filiacaopai, aux.filiacaomae, aux.sexo, aux.estadocivil, aux.pessoa);

senão escreva (“Ficha não encontrada!”); fimse;

feche (fichas);

//Deletar registro

inteiro: cadastroProcurado; caracter: confirmação;