matiz

sabing
(usa Ubuntu)

Enviado em 27/06/2011 - 13:03h

Pessoal eu estava estudando matriz e resolvi criar um agenda telefônica em pascal eu nao estou conseguindo verificar se ja tem cadastro na matriz e o continuar a cadastrar sem apagar os dados das matrizes

program Pzim ;
var
i,z,menu,menu1:integer;
telefone,nome:array[1..100] of string;
sair,nome1,telefone1:string;
Begin
repeat;
writeln('(1) ADICIONAR PESSOA ');
writeln('(2) PESQUISAR PESSOA ');
writeln('(3) EXCLUIR PESSOA ');
writeln('(4) VISUALIZAR AGENDA ');
writeln('(5) SAIR ');
write('Escolha = ');
read(menu);

case menu of
1:
begin;
write('Quantidade de cadastro = ');
read(z);
For i:= 1 to z do


begin;
write('Nome = ');
read(nome[i]);
write('Telefone = ');
read(telefone[i]);
end;
end;

2:
begin;
writeln('(1) PESQUISA POR TELEFONE ');
writeln('(2) PESQUISA POR NOME ');
write('Escolha = ');
read(menu1);

case menu1 of

1:

begin;
write('Digite o telefone = ');
read(telefone1);
For i:=1 to z do
begin;
if telefone1 = telefone[i] then
begin;
writeln('Nome = ',nome[i]);
writeln('Telefone = ',telefone[i]);

end;
end;
end;

2:

begin;
write('Digite o nome = ');
read(nome1);
For i:=1 to z do
begin;
if nome1 = nome[i] then
begin;
writeln('Nome = ',nome[i]);
writeln('Telefone = ',telefone[i]);
end;
end;
end;
end;

end;

3:
begin;

end;

4:
begin;
writeln('***** CONTEUDO CADASTRADO *****');
For i:=1 to z do
begin;

writeln('Nome = ',nome[i]);
writeln('Telefone = ',telefone[i]);

end;
end;

5:
begin;

end


else

write('Menu não achado!');

end;
write(' d <-Continua r <-Sai = ');
read(sair);
clrscr;
until sair='r';
End.