PASCALMath库实用汇总.doc

Math库实用汇总在FP中，Math库为我们提供了丰富的数学函数。以下介绍在OI中可能会用到的Math库中一些函数、过程。使用方法：在程序头用Uses语句加载Math库例子：Program Ex_Math;Uses Math;BeginWriteln(hypot(3,4);End.函数介绍：l hypot原型：function hypot(x:float;y:float):float功能：返回直角三角形中较长边的长度，也就是sqrt(sqr(x)+sqr(y)l ceil原型：function ceil(x:float):Integer功能：返回比参数大的最小整数引发错误：在x超出Integer的范围时会引发溢出错误l floor原型：function floor(x:float):Integer功能：返回参数小的最大整数引发错误：在x超出Integer的范围时会引发溢出错误l power原型：function power(base:float;exponent:float):float功能：返回base的exponent次方引发错误：在base为负数且exponent为小数时l intpower原型：function intpower(base:float;const exponent:Integer):float功能：返回base的exponent次方l ldexp原型：function ldexp(x:float;const p:Integer):float功能：返回2的p次方乘以xl log10原型：function log10(x:float):float功能：返回x的常用对数l log2原型：function log2(x:float):float功能：返回x以2为底的对数l logn原型：function logn(n:float;x:float):float功能：返回x以n为底的对数l Max原型：function Max(a:Integer;b:Integer):Integerfunction Max(a:Int64;b:Int64):Int64function Max(a:Extended;b:Extended):Extended功能：返回a与b中较大的一个l Min原型：function Min(a:Integer;b:Integer):Integerfunction Min(a:Int64;b:Int64):Int64function Min(a:Extended;b:Extended):Extended功能：返回a与b中较小的一个l arcsin原型：function arcsin(x:float):float功能：返回x的反正弦值，返回的是弧度指单位l arccon原型：function arccon(x:float):float功能：返回x的反余弦值，返回的是弧度指单位l tan原型：function tan(x:float):float功能：返回x的正切值，x以弧度为单位l cotan原型：function cotan(x:float):float功能：返回x的余切值，x以弧度为单位l arcsinh原型：function arcsinh(x:float):float功能：返回双曲线的反正弦l arccosh原型：function arccosh(x:float):float功能：返回双曲线的反余弦l arctanh原型：function arctanh(x:float):float功能：返回双曲线的反正切l sinh原型：function sinh(x:float):float功能：返回双曲线的正弦l cosh原型：function sinh(x:float):float功能：返回双曲线的正弦l tanh原型：function sinh(x:float):float功能：返回双曲线的正切l cycletorad原型：function cycletorad(cycle:float):float功能：返回圆的份数转换成弧度之后的值l degtorad原型：function degtorad(deg:float):float功能：返回角度转换成弧度之后的值l radtocycle原型：function radtocycle(rad:float):float功能：返回弧度转换成圆的份数之后的值l radtodeg原型：function radtodeg(rad:float):float功能：返回弧度转换成角度之后的值l MaxValue原型：function maxvalue(const data:Array of float):floatfunction maxvalue(const data:Array of Integer):Integerfunction maxvalue(const data:PFloat;const N:Integer):floatfunction maxvalue(const data:PInteger;const N:Integer):Integer功能：返回数组中的最大值l MinValue原型：function minvalue(const data:Array of float):floatfunction minvalue(const data:Array of Integer):Integerfunction minvalue(const data:PFloat;const N:Integer):floatfunction MinValue(const Data:PInteger;const N:Integer):Integer功能：返回数组中的最小值l sum原型：function sum(const data:Array of float):floatfunction sum(const data:PFloat;const N:LongInt):float功能：求数组中所有数之和l 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中例子：（注：以下全都在已经uses math的前提下进行的。）begin Writeln(hypot(6,8); /输出10。102=62+82end.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);/-4end.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(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);/正切 | Rend.begin /角度、弧度、圆的相互转换,圆是指这么大的角占多少个圆 writeln(cycletorad(1/6)/pi);/圆到弧度 writeln(degtorad(90)/pi);/角度到弧度 writeln(radtocycle(pi/2);/弧度到圆 writeln(radtodeg(pi/3);/弧度到角度end.Var I:Integer; a:array1.10 of float;/一定要是longint或float，就是32为变量begin Randomize ; for I:=low(a) to high (a) do begin ai:=ran