operator-overloading - オーバーロード演算子 2 行目と 3 行目、コンパイルしない

Question

プログラム PROG15 (入力、出力); var invalid_operator : ブール値; 演算子: char; 数値 1、数値 2、結果: 実数;

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

演算子のオーバーロードが原因で、演算子はおそらく予約語です。その名前を変更します。

結果は予約されていないことがわかります（ただし、関数の疑似変数はDelphiのようなモードになります）、別の名前を付けたほうがよいでしょう。

ターボ モード (-So) を有効にすることもできます。