Question

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

Answer 1

//Для примера написал программу, которая просит пользователя ввести пароль. В программе ограничено количество попыток ввода пароля до 5, то есть, если пользователь с пяти раз не смог правильно ввести пароль, программа сообщает, что попытки ввода закончились.

//Для этой задачи использовал цикл c постусловием (repeat - until)

const

  attempts = 5;

  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 2

Чтобы ограничить количество попыток ввода в языке Pascal до 5, можно использовать цикл for. Вот пример кода, который позволит пользователю ввести значение до 5 попыток:

pascalCopy code
program LimitedInputAttempts;

var
  inputAttempts: Integer;
  userInput: Integer;

begin
  inputAttempts := 0;

  for inputAttempts := 1 to 5 do
  begin
    WriteLn('Попытка ввода номер ', inputAttempts);
    Write('Введите число: ');
    ReadLn(userInput);

    // Проверка условия, если пользователь ввел правильное значение
    // можно добавить дополнительные условия, если необходимо
    if (userInput > 0) and (userInput <= 100) then
    begin
      WriteLn('Вы ввели правильное число: ', userInput);
      Break; // Прерываем цикл, так как значение введено верно
    end
    else
    begin
      WriteLn('Введено неправильное число. Попробуйте еще раз.');
    end;
  end;

  // Если пользователь не ввел правильное значение за 5 попыток
  if inputAttempts > 5 then
  begin
    WriteLn('Превышено количество попыток ввода.');
  end;

  ReadLn;
end.

В данном примере кода пользователю будет предоставлено 5 попыток для ввода числа. Если пользователь введет число от 1 до 100, то программа выведет сообщение "Вы ввели правильное число: [число]" и прервет цикл с помощью оператора Break. Если пользователь введет неправильное число, программа выведет сообщение "Введено неправильное число. Попробуйте еще раз." и предоставит еще одну попытку ввода. Если пользователь не введет правильное число за 5 попыток, программа выведет сообщение "Превышено количество попыток ввода."