Функция Frac()

Возвращает дробную часть аргумента.

Объявление:

Function Frac(X : Real) : Real;

Режим:

Windows, Real, Protected

Замечание:

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

Пример:

{ Пример программы для функции Frac }

Var R1, R2 : Real;

Begin
	R1:=123.456;
	R2:=-123.456;
	R1:=Frac(R1);    { 0.456 }
	R2:=Frac(R2);   { -0.456 }
	WriteLn('Дробная часть R1 = ', R1);
	WriteLn('Дробная часть R2 = ', R2);
	ReadLn      { Ждем нажатия клавиши }
End.