Question

程序PROG15（输入，输出）; var invalid_operator：boolean; operator：char; number1，number2，result：real;

procedure MULTIPLY;
begin
         result := number1 * number2
end;

procedure DIVIDE;
begin
         result := number1 / number2
end;

procedure ADD;
begin
         result := number1 + number2
end;

procedure SUBTRACT;
begin
         result := number1 - number2
end;

procedure GET_INPUT;
begin
         writeln('Enter two numbers and an operator in the format');
         writeln(' number1 operator number2');
         readln(number1); readln(operator); readln(number2)
end;

begin
         invalid_operator := FALSE;
         GET_INPUT;
         case operator of
             '*': MULTIPLY;
             '/': DIVIDE;
             '+': ADD;
             '-': SUBTRACT;
         otherwise invalid_operator := TRUE
         end;
         if invalid_operator then
            writeln('Invalid operator')
         else
            writeln(number1:4:2,' ', operator,' ', number2:4:2,' is '
                    ,result:5:2)
end.

{Special changes for Turbo are                           
         case operator of
             '*': result := MULTIPLY;
             '/': result := DIVIDE;
             '+': result := ADD;
             '-': result := SUBTRACT;
         else invalid_operator := TRUE
         end;

Answer 1

由于运算符重载，运算符可能是保留字。改名。

结果是afaik没有保留（但函数的伪变量导致类似Delphi的模式），最好给它一个不同的名称。

您可能还想尝试启用Turbo模式（-So）

过载操作符第2行和第3行，不编译

1 个答案: