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

[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 14:10

[Lapp]

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

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

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

[Artem7]

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

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

Да не так не пойдёт мне надо именно через цикл по параметру а то что 3 попытки да это просто так нужно для цикла по параметру вот только как сделать чтоб выход был после ввода правильного.

Код

сделал так вместо надписи 'пароль правильный' прога заканчивается (p.s спасибо это я взял из вашего кода чтобы прога заканчивалась)

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