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

[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]

Artem7, если без цикла с параметром (т.е., без For) все-таки не обойтись (ну, мало ли, задание такое, мало ли что) - то:

const Last = 3;
var
   i : integer;
   s, pass : string;
begin
   pass := '1234';
   for i := 1 to Last do
   begin
      readln(s);
      if (s = pass) then break
      else
         if i <> Last then
            writeln('Пробуем еще раз. Попыток осталось: ', Last - i)
         else Halt(1);
   end;
   writeln('Пароль верный');
end.

Насчет Exit для выхода из программ - это неправильно. Потому что Exit завершает не выполнение программы, а выполнение текущего блока. Будет это подпрограмма - завершится подпрограмма. Перенесешь ты свою проверку в функцию или процедуру и будешь потом думать, а чего это программа не завершается (это из той же серии, как при неинициализированных переменных "программой все работало - сделал процедурой - выдает неправильные результаты"). Не давай даже повода для ошибки.

[Artem7]

Artem7, если без цикла с параметром (т.е., без For) все-таки не обойтись (ну, мало ли, задание такое, мало ли что) - то:

const Last = 3;
var
   i : integer;
   s, pass : string;
begin
   pass := '1234';
   for i := 1 to Last do
   begin
      readln(s);
      if (s = pass) then break
      else
         if i <> Last then
            writeln('Пробуем еще раз. Попыток осталось: ', Last - i)
         else Halt(1);
   end;
   writeln('Пароль верный');
end.

Насчет Exit для выхода из программ - это неправильно. Потому что Exit завершает не выполнение программы, а выполнение текущего блока. Будет это подпрограмма - завершится подпрограмма. Перенесешь ты свою проверку в функцию или процедуру и будешь потом думать, а чего это программа не завершается (это из той же серии, как при неинициализированных переменных "программой все работало - сделал процедурой - выдает неправильные результаты"). Не давай даже повода для ошибки.

Спасибо)))