Dúvida com exercício WHILE

[Visitante: bnedito]

Estou com problemas em um exercício de Pascal. O programa é o seguinte:

O usuário deve digitar duas senhas, a primeira: basquete e a segunda: futebol. Se uma das senhas ou as duas estiverem incorretas o programa deve retornar a mensagem de erro "Senhas Incorretas, Digite Novamente" e ler novamente as variáveis. Quando o usuário digitar as senhas corretamente o programa deve retornar a mensagem "Bem Vindo".

Meu código ficou assim:

Program Pzim ;

var

a,b: string;

Begin

writeln('DIGITE AS SENHAS PARA ENTRAR NO SISTEMA');

writeln (' ');

writeln('digite primeira senha');

readln(a);

writeln('digite segunda senha');

readln(;

while (a <> 'basquete') AND (b <> 'futebol') do

begin

writeln('senhas incorretas, digite novamente');

writeln('digite primeira senha');

read (a);

writeln ('digite segunda senha');

read (;

end;

writeln('bem vindo');

End.

O problemas é que quando digito a segunda senha incorretamente ele sai do LOOP. Só fica no LOOP quando digito a primeira senha incorretamente (a). Alguém pode me ajudar a resolver...

Gracias desde já...

[Pedriv0]

O problema é que você esta usando o comando AND, e comparando se esta errado. Portanto se um estiver certo o WHILE vai parar porque pelo que você fez só repete se os dois estiverem errado.

Solução troque o AND por OR que resolve, porque assim se pelo menos um estiver errado , então a condição n estará sendo satisfeita.

N sei se deu para entender mtu bem mas é só trocar o and por or q funciona!

valeu!

[andreHO]

Boa noite bnedito,

eu troquei o AND por OR e deu certo o programa

var

a, b: string;

Begin

writeln('DIGITE AS SENHAS PARA ENTRAR NO SISTEMA');

writeln (' ');

writeln('digite primeira senha');

readln(a);

writeln('digite segunda senha');

readln(;

while (a <> 'basquete') or (b <> 'futebol') do

begin

writeln('senhas incorretas, digite novamente');

writeln('digite primeira senha');

readln (a);

writeln ('digite segunda senha');

readln (;

end;

writeln('bem vindo');

readln;

end.

[Simon Viegas]

Olá bnedito, só dois comentários:

1) Read x Readln

while (a <> 'basquete') AND (b <> 'futebol') do
  begin
  writeln('senhas incorretas, digite novamente');
  writeln('digite primeira senha');
[COLOR="Red"]  read (a);[/COLOR]
  writeln ('digite segunda senha');
[COLOR="Red"]  read (;[/COLOR]
  end;

Existe uma diferença entre Read e Readln... na dúvida use sempre o Readln (com ln)

2) Aprimoramento

Uma dica interessante seria implementar o recurso de "ocultar" a senha, ou seja, não exibir os caracteres ao digitar. Tem duas formas básicas: ou não exibir nada ou exibir "*" ao digitar.

Se tiver interesse dê uma pesquisadinha sobre o comando "ReadKey", da unit CRT. Entendendo como ele funciona será meio caminho para implementar esse recurso...

Abraços

[Visitante: bnedito]

Obrigado pessoal pela solução e dicas....problema resolvido...

Asta la vista...