Запомнить меня на этом копьютере
Пример программы для функции Frac.
{Frac.PAS} { Пример программы для функции Frac } Var R : Real; Begin R:=Frac(123.456); { 0.456 } R:=Frac(-123.456); { -0.456 } End.
Скачать frac.pas