function maxvalue(const data:PInteger;const N:Integer):Integer 
功能：返回数组中的最大值 
 MinValue 
原型：function minvalue(const data:Array[] of float):float 
function minvalue(const data:Array[] of Integer):Integer 
function minvalue(const data:PFloat;const N:Integer):float 
function MinValue(const Data:PInteger;const N:Integer):Integer 
功能：返回数组中的最小值 
 sum 
原型：function sum(const data:Array[] of float):float 
function sum(const data:PFloat;const N:LongInt):float 
功能：求数组中所有数之和 
 sumsandsquares 
原型：procedure sumsandsquares(const data:Array[] of float;var sum:float; 
var sumofsquares:float) 
procedure sumsandsquares(const data:PFloat;const N:Integer; 
var sum:float;var sumofsquares:float) 
功能：将数组中的数求和放入num中，求平方和放入sumofsquares中 
 ** 
原型：function operator **(float,float):float(bas:float;expo:float):float 
function operator **(Int64,Int64):Int64(bas:Int64;expo:Int64):Int64 
功能：同等于Power，这是乘方的操作符 

例子：（注：以下全都在已经uses math的前提下进行的。） 
begin 
Writeln(hypot(6,8)); //输出10。10^2=6^2+8^2 
end. 
＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝― 
begin 
writeln(ceil(3.4));//4 
writeln(ceil(3.7));//4 
writeln(ceil(-3.4));//-3 
writeln(ceil(-3.7));//-3 
writeln(floor(3.4));//3 
writeln(floor(3.7));//3 
writeln(floor(-3.4));//-4 
writeln(floor(-3.7));//-4 
end. 
＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝― 
begin 
writeln(power(1.1,1.1):2:3); 
writeln(power(-1.1,3):2:3); 
writeln(power(1.1,-1.1):2:3); 
writeln(2**3); 
writeln(1.1**(-1.1):2:3); 
writeln(intpower(1.1,2):2:3); 
writeln(intpower(4.1,-2):2:3); 
writeln(intpower(-1.1,2):2:3); 
writeln(ldexp(2,4):8:4); // 32.0000 
writeln(ldexp(0.5,3):8:4);// 4.0000 
writeln(ldexp(-3,3):8:4); // -24.000 
Writeln(Log10(10):8:4); 
Writeln(Log10(1):8:4); 
Writeln(Log10(0.1):8:4); 
Writeln(Log2(4):8:4); 
Writeln(Log2(0.5):8:4); 
Writeln(Logn(3,4):8:4); 
Writeln(Logn(exp(1),exp(1)):8:4); 
writeln(max(1,2)); 
writeln(min(1,2)); 
end. 
＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝― 
begin 
writeln(arccos(0.5)/pi); 
writeln(arcsin(0.5)/pi); 
writeln(arctan(0.5)/pi); //这个不在math库里,在system库里就有 
writeln(cos(pi/6)); //这个不在math库里,在system库里就有 
writeln(sin(pi/6)); //这个不在math库里,在system库里就有 
writeln(tan(pi/6)); 
writeln(cotan(pi/6)); 
end. 
＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝― 
begin 
//返回的是双曲线的 | 定义域 
writeln(arcosh(2));//反余弦 | [R] 
writeln(arsinh(2));//反正弦 | [R] 
writeln(artanh(0.1));//反正切 | [-1,1] 
writeln(cosh(2));//余弦 | [R] 
writeln(sinh(2));//正弦 | [R] 
writeln(tanh(2));//正切 | [R] 
end. 
＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝― 
begin 
//角度、弧度、圆的相互转换,圆是指这么大的角占多少个圆 
writeln(cycletorad(1/6)/pi);//圆到弧度 
writeln(degtorad(90)/pi);//角度到弧度 
writeln(radtocycle(pi/2));//弧度到圆 
writeln(radtodeg(pi/3));//弧度到角度 
end. 
＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝― 
Var 
I:Integer; 
a:array[1..10] of float;//一定要是longint或float，就是32为变量 
begin 
Randomize ; 
for I:=low(a) to high (a) do begin 
a[i]:=random(10); 
write(a[i]:2:2,' '); 
end; 
writeln; 
writeln(MaxValue(a):2:2);//数组中的最大值 
writeln(MinValue(a):2:2);//数组中的最小值 
writeln(sum(a):2:2);//数组中所有元素的和,只有float能用 
sumsandsquares(a,s,ss);//s为和,ss为平方和,只有float能用 
writeln(s:2:2,' ',ss:2:2); 
end.