операторы перегрузки строки 2 и 3, не компилируются - PullRequest
Новая
       3

операторы перегрузки строки 2 и 3, не компилируются

0 голосов
/ 11 мая 2010

программа PROG15 (вход, выход); var invalid_operator: boolean; оператор: 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;

1 Ответ

0 голосов
/ 13 мая 2010

Оператор, вероятно, зарезервированное слово из-за перегрузки оператора. Измените его имя.

Результат на самом деле не зарезервирован (но псевдопеременная для функций приводит к Delphi-подобным режимам), лучше также дать ему другое имя.

Вы также можете попробовать включить турбо-режим (-So)

...