Ajuda com Programação

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Ajuda com Programação

Mensagem por viniciusav em Sab 01 Out 2011, 15:38

Baixei o seguinte programa em pascal para analisar: http://www.4shared.com/file/IW2MWhcW/Programa_para_anlise_2.html e estou tendo problemas na 2ª Opção, a busca. Ele faz a busca certinha se o nome for igual (se não for igual da erro, e isso não pode acontecer nesse caso), só que logo depois de fazer a busca ele da o mesmo erro citado anteriormente. Abaixo posto o trecho do código que acredito que esteja dando erro.

Código:
write('Informe o nome ou email do contato: '); readln(ProcuraContato);
IF ( ProcuraContato <> '' ) THEN
BEGIN
FOR j := 1 TO 10 DO
BEGIN
IF ( (ProcuraContato = Registro[j].nome) OR (ProcuraContato = Registro[j].email) ) THEN
BEGIN
writeln('Nome : ', Registro[j].nome);
writeln('Telefone : ', Registro[j].telefone);
writeln('Email : ', Registro[j].email);
END;
END;
//Abaixo a parte que acredito que esteja ocasionando o erro
IF ( (ProcuraContato <> Registro[j].nome) THEN
writeln('Contato nao encontrado.');

END;

Tentei fazer diversas modificações só que não consegui o que desejo. OBS: Da forma que está, caso tenha uma ou mais pessoas de nome igual vai mostrar os dados dessas pessoas, eu quero que aconteça isso, então está certinho dessa forma, só estou com o problema que citei antes.
OBS: Estou utilizando o Pascalzim. ;)

Muito obrigado pela atenção e grande abraço!! Smile
Happy

Viniciusav

viniciusav

Número de Mensagens : 131
Data de inscrição : 10/08/2010
Reputação : 3
Insignia 1 x 0 Insignia 2 x 0 Insignia 3 x 0
Prêmios
   : 1
   : 0
   : 0

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum