Цикл с параметром Опции

[Artem7]

Здрасте написал прогу но почему то не работает (должна когда я ввожу не правильный пароль выдавать что он не правильный а когда правильный что правильный)

Program proverkaparolya;
Var s,pr,i:integer;
Begin
       pr:=1234;
       writeln('Введите пароль, у Вас 3 попытки');
       for i:=1 to 3 do
       readln(s);
       if s=pr then
       writeln('Пароль верный')
       else if i<3 then writeln('Пароль неверный, осталось попыток ',3-i);
       readln;
End.

[IUnknown]

Проверять правильность пароля внутри цикла не пробовал? Как-то так:

for i := 1 to 3 do
begin
   readln(s);
   if s = pr then // ok, можно цикл заканчивать
   else // неправильно, пробуем дальше
end;

[Artem7]

Проверять правильность пароля внутри цикла не пробовал? Как-то так:

for i := 1 to 3 do
begin
   readln(s);
   if s = pr then // ok, можно цикл заканчивать
   else // неправильно, пробуем дальше
end;

Вооо спасибо терь работает)))))))

А как реализовать если пароль правильный чтоб цикл заканчивался а то даже если он правильный то не заканчивается....

Сообщение отредактировано: Artem7 - 22.02.2012 10:10

[Lapp]

А как реализовать если пароль правильный чтоб цикл заканчивался а то даже если он правильный то не заканчивается....

А почему у тебя вообще только три попытки? И к тому же, по истечении этих трех попыток все равно выходим на выполнение программы (по всей видимости). Странно как-то это )).
Я бы сделал как-то так..

writeln('введите пароль (для выхода введите пустую строку)');
repeat
   readln(s);
   if s = '' then exit  // по пустому паролю прекращаем процесс и выходим из проги
until s = pr;