Question

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ С ИСПОЛЬЗОВАНИЕМ ЦИКЛА С ПОСТУСЛОВИЕМ!!! Составить программу запроса пароля пока не будет введён пароль верно. В программе предусмотреть счётчик неправильных вводов пароля.

Answer 1

var

 parole, s: string;

 Count: byte;

begin

 parole := 'Земля прощай. В добрый путь!';

 Count := 0;

 

 repeat

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

   Readln(s);

   Count += 1

 until (s = parole) or (Count = 3);

 

 if Count = 3 then

 begin

   Write('Вы не прошли индентификацию. Доступ закрыт');

   Halt

 end

 else

   Write('Доступ разрешен.')

end.

Answer 2

Конечно, вот пример программы на Pascal, которая запрашивает пароль и имеет счётчик неправильных попыток:

pascalCopy code
program PasswordCheck;

var
  Password: string;
  InputPassword: string;
  Attempts: integer;

begin
  Password := 'СекретныйПароль'; // Задайте ваш секретный пароль здесь
  Attempts := 0;

  repeat
    write('Введите пароль: ');
    readln(InputPassword);
    Attempts := Attempts + 1;

    if InputPassword <> Password then
      writeln('Неверный пароль. Попробуйте ещё раз.')
    else
      writeln('Пароль верный. Доступ разрешён.');

  until (InputPassword = Password) or (Attempts >= 3); // Можете изменить количество попыток

  if Attempts >= 3 then
    writeln('Превышено максимальное количество попыток. Доступ запрещён.');

  readln; // Для задержки перед завершением программы
end.

Заметьте, что в этой программе пароль установлен в переменной Password. Вы можете заменить 'СекретныйПароль' на ваш собственный пароль. Программа позволяет три попытки ввода пароля, после чего доступ будет закрыт, но вы можете изменить это число, изменив условие until.