• Как ограничить количество попыток ввода в Паскаль?

Ответы 1

  • //Написал простейшую программу для наглядного примера. Суть в том, что ограничено число попыток ввода неправильного пароля

    //attempts - количество попыток, counter - счетчик неудачных попыток

    const

      attempts = 3;

      password = '12345';

       

    var

      counter: integer;

      str: string;

       

    begin

      counter := 0;

       

      repeat

         write('Введите пароль: ');

         readln(str);

         

         if not(str = password) then

         begin    

            counter := counter + 1;

            writeln('[неверный пароль] осталось попыток: ', attempts - counter);

            writeln();

         end;

             

         if (counter = attempts) then

         begin

            writeln('Попытки ввода закончились!');

            break;

         end;

       

      until (str = password);

       

      if (str = password) then

         writeln('Вы ввели правильный пароль!');

    end.

    answer img
    • Автор:

      howard
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years