主页 / 问题 / 1564679
Accepted
Nqweqweqwe
Asked:2024-02-04 15:50:16 +0000 UTC2024-02-04 15:50:16 +0000 UTC

PascalABCNet，重新启动代码时该函数被调用两次

  • 772

昨天我做了一个计算器，点击检查代码健康按钮，发现由于设计过时，我的健康状况有 64%。我阅读了官方文档并重写了代码。现在代码的健康度显示为134%，但是当输入符号时，重新启动程序后，检查正确输入符号的功能将重新启动两次，然后您可以再次使用该程序。这是输出：

Введите знак(/,*,+,-): *
Введите первое число:  1
Введите второе число:  2
Ответ: 2
Введите знак(/,*,+,-): Вы используете несуществующий символ для вычисления!
Введите знак(/,*,+,-): Вы используете несуществующий символ для вычисления!
Введите знак(/,*,+,-):

更新的代码：

{program calculator;}
label restart;
begin
  var rest: integer;
  restart: rest := 0;
  while rest <> 1 do
  begin
    var sign := ReadChar('Введите знак(/,*,+,-):');
    if (sign <> '-') and (sign <> '+') and (sign <> '/') and (sign <> '*') then begin
      writeln('Вы используете несуществующий символ для вычисления!');
      goto restart;
    end;
    var a := ReadInteger('Введите первое число: ');
    var b := ReadInteger('Введите второе число: ');
    if sign = '+' then begin
      writeln('Ответ: ', a + b);
    end;
    if sign = '-' then begin
      writeln('Ответ: ', a - b);
    end;
    if sign = '/' then begin
      if b <> 0 then begin
        writeln('Ответ: ', a / b);
      end
      else
    writeln('Нельзя делить на 0!');
      goto restart;
    end;
    if sign = '*' then begin
      writeln('Ответ: ', a * b);
    end;
  end;
end.
pascal

1 个回答

  1. Best Answer

    事实上，该函数ReadChar()将用户输入的所有字符作为输入，包括 Enter，它由两个字符 CrLf（回车 + 换行）组成 - 这是两个字符的组合：回车和换行。它们用于 Windows 和 DOS 系统。回车符将光标返回到行首，换行符将光标移动到新行。
    如果稍微更改无效字符消息的输出行：

    writeln('Вы используете несуществующий символ для вычисления с кодом ['+ord(sign) + ']!');

    然后你就可以检查它。
    这该如何处理呢？ReadChar()经过对,的多次实验后ReadLn()，ReadlnChar()我得到的印象是 PascalABC 不适合循环中的数据输入（或者我的 IDE 实现是这样的），因为键盘输入缓冲区在下一次输入之前不会被清除，并且至少会跳过 CrLf那里。
    可能有一些函数/过程可以在下一次输入之前清除键盘输入缓冲区，但我还没有找到。
    我做了一个或多或少稳定的（对我来说）工作选择：

    {program calculator;}
var
  signs: set of char := ['+', '-', '*', '/']; // задаем множество допустимых символов
  a, b: Integer;
  buf: string;
  sign: char;

begin
  while True do
  begin
    buf := '';
    write('Введите знак(/,*,+,-) или # для выхода: ');
    while buf = '' do Readln(buf);
    sign := buf[1];
    if sign = '#' then break;
    if sign in signs then // проверяем, допустим ли символ - есть ли он во множестве
    begin
      a := ReadInteger('Введите первое число: ');
      b := ReadInteger('Введите второе число: ');
      case sign of  // вместо нескольких if
        '+': writeln('Ответ: ', a + b);
        '-': writeln('Ответ: ', a - b);
        '/':
          begin
            if b <> 0 then writeln('Ответ: ', a / b)
            else writeln('Нельзя делить на 0!');
          end;
        '*': writeln('Ответ: ', a * b);
      end;
    end
    else writeln('Вы используете несуществующий символ для вычисления с кодом [' + ord(sign) + ']!'); // выводим не только сообщение, но и ASCII - код недопустимого символа (для отладки, например)
  end;
  writeln('Калькулятор выключен');
end.

    Введите знак(/,*,+,-) или # для выхода: +
Введите первое число:  1
Введите второе число:  3
Ответ: 4
Введите знак(/,*,+,-) или # для выхода: 45
Вы используете несуществующий символ для вычисления с кодом [52]!
Введите знак(/,*,+,-) или # для выхода: /
Введите первое число:  45
Введите второе число:  5
Ответ: 9
Введите знак(/,*,+,-) или # для выхода: *
Введите первое число:  25
Введите второе число:  45
Ответ: 1125
Введите знак(/,*,+,-) или # для выхода: *89
Введите первое число:  
78
Введите второе число:  88
Ответ: 6864
Введите знак(/,*,+,-) или # для выхода: #
Калькулятор выключен
    • 0

相关问题