Frac - Возвращает дробную часть аргумента.
Объявление:
Function Frac(X : Real) : Real;
Режим:
Windows, Real, Protected
Замечания:

Параметр X - выражение вещественного типа. Результат - дробная часть X, то есть Frac(X) = X-Int(X).
Пример: view source

print
?01 { Пример программы для функции Frac }
02
03 Var R1, R2 : Real;
04
05 Begin
06 R1:=123.456;
07 R2:=-123.456;
08 R1:=Frac(R1); { 0.456 }
09 R2:=Frac(R2); { -0.456 }
10 WriteLn('Дробная часть R1 = ', R1);
11 WriteLn('Дробная часть R2 = ', R2);
12 ReadLn { Ждем нажатия клавиши }
13 End.