1

У меня в коде есть цикл repeat..until. Есть логическая переменная и переменная с ответом юзера. Проблема в том, что при введении любого ответа, кроме "да" (т.е. m := false), у меня происходит безобразие в консоли. А мне нужно просто "домучать" пользователя вопросами, чтобы он ввел "да". Как эту проблему можно исправить?

"Безобразие в консоли":

После ввода "нет" или "не знаю", эти сообщения у меня выводятся бесконечно и очень быстро. введите сюда описание изображения

Код:

uses crt;

var
  a: string;
  m: boolean;

procedure NewPage;
var
  i: integer;
begin
  for i := 1 to 60 do 
  writeln();
end;

begin
  writeln();
  repeat
    writeln('Вам предлагается пройти тест на тему: "Окружающий мир".');
    write('Вы готовы пройти этот тест? (да/нет/не знаю) -->> ');
    read(a);
    m := false;
    if a = 'да' then
    begin
      writeln('Прекрасно. Начинаем.');
      m := true;
    end
    else if a = 'нет' then
    begin
      writeln('А кого это волнует? (с) Наталья Михайловна');
      m := false;
    end
    else if a = 'не знаю' then
    begin
      writeln('"Не знаю" приравнивается к "нет", Вы знали об этом?');
      m := false;
    end
    else
      begin
      writeln();
      writeln('Внимательно посмотрите на варианты ответов и выберите тот, который предложен!');
      end;
  until m = true;

end.
1
  • 1
    Строки читают с помощью ReadLn
    – MBo
    19 мар 2020 в 15:40

1 ответ 1

1
readln(a);
...
else
begin // !!!
  writeln();
  writeln('Внимательно посмотрите на варианты ответов и выберите тот, который предложен!');
end; // !!!
5
  • Да, ошибку исправил. Спасибо. Но, к сожалению, не помогло(
    – EvilBDSM
    19 мар 2020 в 13:33
  • @ЗлойШкальник "происходит безобразие в консоли" - что это значит?
    – user176262
    19 мар 2020 в 13:36
  • Дополнил вопрос, @Igor
    – EvilBDSM
    19 мар 2020 в 13:42
  • @ЗлойШкальник Вы не исправили код.
    – user176262
    19 мар 2020 в 13:48
  • 1
    только что, прямо скопировал Ваши изменения и вставил к себе в код. Все равно не работает. Отредактировал вопрос. Там у меня код, с теми изменениями, про которые Вы написали
    – EvilBDSM
    19 мар 2020 в 13:58

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.