主页 / 问题 / 1096810
Accepted
EvilBDSM
Asked:2020-03-19 21:25:56 +0000 UTC2020-03-19 21:25:56 +0000 UTC

重复...直到不工作

  • 772

我的代码中有一个重复..直到循环。有一个逻辑变量和一个变量与用户的反应。问题是当我输入除“是”以外的任何答案（即 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.
pascalabc.net

1 个回答

  1. Best Answer
    readln(a);
...
else
begin // !!!
  writeln();
  writeln('Внимательно посмотрите на варианты ответов и выберите тот, который предложен!');
end; // !!!
    • 1

相关问题