取小数函数frac(x)

　　定义：functionFrac(X:Real):Real;注意：X是实型表达式.结果返回X的小数部分;也就是说，Frac(X)=X-Int(_X).例子：

　　var

　　R:Real;

　　begin

　　R:=Frac(123.456);{0.456}

　　R:=Frac(-123.456);{-0.456}

　　end.

　　求平方根函数sqrt(x)和平方函数sqr(x)

　　定义：

　　平方根：functionSqrt(X:Real):Real;

　　注意：X是实型表达式.返回实型的X的平方根.平方：functionSqr(X):(Sametypeasparameter);

　　注意：X是实型或整型表达式.返回值的类型和X的类型一致，大小是X的平方，即X*X.

　　例子：

　　begin

　　Writeln('5squaredis',Sqr(5));{25}

　　Writeln('Thesquarerootof2is',Sqrt(2.0));{1.414}

下一页阅读：其他常用函数