Delphi-数学运算函数与过程

（1）绝对值：

function abs(x);

说明：返回参数的绝对值。

Writeln('a=-10的绝对值=',Abs(a):9:3);

（2）平方函数

function sqr(x:Extended):Extended;（实数）

function sqr(x:Integer):Integer;（整数）

Writeln('b=3，b^2=',Sqr(b):9:3);