Не могу скомпилировать (a mod 2) = 0

[kta87]

function Exponentiation(BASE, RATE: Real): Real;
...
if BASE < 0 then
  begin
    if (RATE mod 2) = 0 then
      Result:= Exp(RATE * Ln(Abs(BASE)))
    else
     Result:= 0 - Exp(RATE * Ln(Abs(BASE)));
  end
 else
  Result:= Exp(RATE * Ln(BASE));

Ошибка: E2015 Operator not applicable to this operand type
Смотрю вроде по синтаксису то все верно... что не так делаю?

[Аватар]

mod и real не совместимы

[kta87]

Оо и как мне узнать четное число или нет?
ммм... что то я гоню... понятие четное/нечетное применимо только к целым числам.
Переформулирую вопрос: Если показатель степени - отрицательное дробное число, то как узнать будет ли знак результата + или -;
С целыми числами это делается так: если четное то знак - меняется на + , если не четное то остается -.

[Аватар]

А как может быть число с десятичной точкой четным или не четным? Целая часть может, вот и находи её (TRUNC или ROUND, что больше подойдет), а потом mod

[FaTaL]

Число типа real не могут по идее быть четными, т.к. это вещественный тип.

[kta87]

хорош говорить уже про нечетность и четность Real. Я же во 2 посте написал все как есть и переформулировал вопрос.

[Аватар]

Math.Power, но основание не может быть отрицательным

[s-andriano]

Сообщение от kta87

Переформулирую вопрос: Если показатель степени - отрицательное дробное число, то как узнать будет ли знак результата + или -;

"+", т.к. в дробную степень может быть возведено только число положительное.