ошибка в выражении mod

[Alkagolik]

Здравствуйте. Подскажите пожалуйста кто-нить что не так.

var
    a, b: longint;
    x: longbool;
    c: extended;
begin
    a:=2^8;
    x:=c<=(a+1)/2;
1: {метка}  a:=a+1;
                    b:=2;
2: {метка}  c:=a/b;
                    b:=b+1;
    if x = true then
           if mod(c)=0 then ....

Вобщем дошел и до проблемы. интерпритатор ТР7 "не принимает" "mod". жалуется мне на 42 ошибку. (Ошибка в выражении). подскажите пожалуйста что не так.

[DomiNick]

А что такое mod? Какая-то своя функция чтоль?

[TAVulator]

ты изначально неправильно используешь оператор mod.
Оператор mod возвращает остаток от деления.
Например 5 mod 2 будет равно 5
пишется так: i:=5 mod 2;
а у тебя непонятно что:
if mod(c)=0 then ....

[Alkagolik]

ты изначально неправильно используешь оператор mod.

понятно. вобщем моя задача состоит в том чтобы отделить дробные числа от целых. как можно проверить число на наличие дробной части больше 0?

[DomiNick]

наличие дробной части больше 0

о_О

.....

Хм... Может имелось ввиду это:

If Frac(c)=0 Then ...

И кстати почему у "c" нет начального значения?

[TAVulator]

A - число

If int(A)=A then Число не дробное
else Число дробное

[Alkagolik]

Всем спасибо все стало на места.

И кстати почему у "c" нет начального значения?

здесь только малая часть кода... и та с заменой значений.