delphi7

program exemplo_arq;

{$APPTYPE CONSOLE}

{ CEEP -Centro Estadual de Educacao Profissional Pedro Boareto Neto Curso tecnico em Informatica Disciplina: Linguagem de Programacao - 2o Semestre Professor: Ronye Peterson Cordeiro ************************************************** Trabalho a ser realizado em grupos de ate' 2 alunos. Data da entrega: 02/12/2013

Itens a ser avaliados: - Identacao e organizacao do codigo fonte - Funcionalidades requeridas para o trabalho - Respostas das perguntas durante a apresentacao do trabalho

--------------------------------------------- Comandos de manipulacao de arquivos --------------------------------------------- abra(arquivo) > rewrite(arquivo) - cria e abre o arquivo ou reset(arquivo) - abre o arq. assign(Arquivo,nome) > atribui um nome de arquivo ... var. de arquivo seek(arquivo,pos) > posiciona o ponteiro do arquivo no reg. de posicao indicada. filesize(arquivo) > retorna o n§ de registro de um arquivo. filepos(arquivo) > retorna o n§ do reg. apontado pelo ponteiro do arq. write(arquivo,REG) > salva o registro no arquivo. read(arquivo,REG) > lˆ o registro no arquivo. close(arquivo) > fecha o arquivo. ioresult > 0 sucesso; 0 ocorreu erro exemplo utilizando "ioresult": Tenta abrir um arquivo. No caso dele nÆo existir cria e abre {$I-}
{ reset(arquivo); {$I+}
{ if (ioresult0) then rewrite(arquivo);

}

uses SysUtils;

TYPE RegPessoa = record Codigo : integer; Nome : string[40]; tipo : string[40]; tamanho : string[1]; cor : string[30]; {Incluir aqui os novos campos solicitados} end;

TPessoa = file of RegPessoa;

var AUX_Pessoa : RegPessoa; Pessoa : TPessoa; key : char; posicao : integer; achou : boolean; codigo : integer; CON : char; nome : string; soma : integer;

Function