frac.pas

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

Код примера
{Frac.PAS}
 
{ Пример программы для функции Frac }
 
Var R : Real;
 
Begin
 R:=Frac(123.456);    { 0.456 }
 R:=Frac(-123.456);   { -0.456 }
End.

Скачать frac.pas