Cadastro de funconarios - pascal

[Eric !]

exercicio

Uma empresa precisa organizar seu departamento de RH que é controlado manualmente;.Apesar de ser ainda uma pequena empresa com 10 funcionarios, sua intençao é estar preparada para os próximos anos , já que há uma previsao de grande crescimento.Atualmente o cadastro de funcionarios é feito por meio de uma ficha individual conforme exemplo abaixo

Codigo do Funcionario: ______ Nome do Funcionario: ______________________________

Endereço_____________No__Complemento____Cep____-___ cidade _________ Estado____

data de nasc__/__/__ data admissao__/__/__ estado civil olteiro[V]iuvo[D]ivorciado

flhos?im [N]ão No de filhos __

Você deverá fazer um programa que atende as necesidades do dono da empresa que são:

1- armazenar os dados dos funcionarios atuais em um vetor de registro(obs: Não há necessidade de realizar entrada de dados,eles deverao ser digitados dentro do programa);

2- A estrutura do registro deverá conter os campos que constam na ficha individual;

3-A lista de funcionarios deverá ser mostrada de diversas formas:

a-Em ordem de nome (imprimir somente nome e data de nascimento);

b-Em ordem de codigo (imprimir somente codigo e data de admissão);

c em ordem de estado civil( imprimir somente nome,estado civil e quantidade de filhos);

4-O programa devera permitir também que se faça a pesquisa binária por nome;

5-A tela de entrada deverá ter um menu de opções conforme o modelo abaixo;

Sistema de Controle Cadastral

1.Lista por ordem de Nome.

2.Lista por ordem de Código.

3.Lista por ordem de Estado Civil

4.Pesquisar Nome.

5.Fim do Processamento.

Digite sua opção: __

Tabela com todos os codigos dos funcionários

http://img689.imageshack.us/img689/7739/imagemyf.jpg

o que eu já fiz..

http://pastebin.com/m7835eeca

eu nâo sei como fazer a busca. meu nivel de pascal é muito inferior, se alguém puder me ajudar...agradeço

[sOul]

begin

clrscr;

i:= 0;

i:= i + 1;

Não entendi o motivo disso.

Uma dica, dentro do registro t_func você pode criar um outro registro para o endereço.

Writeln('SISTEMA DE CONTROLE CADASTRAL')

writeln('1. Lista por ordem de nome: ');

readln ( );

writeln('2. Lista por Ordem de codigo: ');

readln( );

writeln('3. Lista por ordem de estado civil: ');

readls( );

writeln('4. Pesquisar nome: ');

readln( );

writeln();

writeln('Dgite sua opção: ');

Outra dica, não é pra ler após cada opção, e sim uma única vez ao final, depois do "digite sua opção: " .

Esse seu procedure também tá confuso.

A busca é feita por uma comparação simples, vai varrendo o vetor fazendo

if variaveldebusca = nomedofuncionario then

writeln ('Funcionario achado: ', nomedofuncionario);