В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
ксюнчик12
ксюнчик12
29.05.2022 04:19 •  Информатика

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

Показать ответ
Ответ:
скарабец
скарабец
09.10.2020 22:08

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

//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.


Как ограничить количество попыток ввода в паскаль?
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота