Program Ex_Math;

Uses Math;

Begin

Writeln(hypot(3,4));

End.

函式介紹：

? hypot

原型：function hypot(x:float;y:float):float

功能：返回直角三角形中較長邊的長度，也就是sqrt(sqr(x)+sqr(y))

? ceil

原型：function ceil(x:float):Integer

功能：返回比引數大的最小整數

引發錯誤：在x超出Integer的範圍時會引發溢位錯誤

? floor

原型：function floor(x:float):Integer

功能：返回引數小的最大整數

引發錯誤：在x超出Integer的範圍時會引發溢位錯誤

? power

原型：function power(base:float;exponent:float):float

功能：返回base的exponent次方

引發錯誤：在base為負數且exponent為小數時

? intpower

原型：function intpower(base:float;const exponent:Integer):float

功能：返回base的exponent次方

? ldexp

原型：function ldexp(x:float;const p:Integer):float

功能：返回2的p次方乘以x

? log10

原型：function log10(x:float):float

功能：返回x的常用對數

? log2

原型：function log2(x:float):float

功能：返回x以2為底的對數

? logn

原型：function logn(n:float;x:float):float

功能：返回x以n為底的對數

? Max

原型：function Max(a:Integer;b:Integer):Integer

function Max(a:Int64;b:Int64):Int64

function Max(a:Extended;b:Extended):Extended

功能：返回a與b中較大的一個

? Min

原型：function Min(a:Integer;b:Integer):Integer

function Min(a:Int64;b:Int64):Int64

function Min(a:Extended;b:Extended):Extended

功能：返回a與b中較小的一個

? arcsin

原型：function arcsin(x:float):float

功能：返回x的反正弦值，返回的是弧度指單位

? arccos

原型：function arccos(x:float):float

功能：返回x的反餘弦值，返回的是弧度指單位

? tan

原型：function tan(x:float):float

功能：返回x的正切值，x以弧度為單位

? cotan

原型：function cotan(x:float):float

功能：返回x的餘切值，x以弧度為單位

? arcsinh

原型：function arcsinh(x:float):float

功能：返回雙曲線的反正弦

? arccosh

原型：function arccosh(x:float):float

功能：返回雙曲線的反餘弦

? arctanh

原型：function arctanh(x:float):float

功能：返回雙曲線的反正切

? sinh

原型：function sinh(x:float):float

功能：返回雙曲線的正弦

? cosh

原型：function sinh(x:float):float

功能：返回雙曲線的正弦

? tanh

原型：function sinh(x:float):float

功能：返回雙曲線的正切

? cycletorad

原型：function cycletorad(cycle:float):float

功能：返回圓的份數轉換成弧度之後的值

? degtorad

原型：function degtorad(deg:float):float

功能：返回角度轉換成弧度之後的值

? radtocycle

原型：function radtocycle(rad:float):float

功能：返回弧度轉換成圓的份數之後的值

? radtodeg

原型：function radtodeg(rad:float):float

功能：返回弧度轉換成角度之後的值

? MaxValue

原型：function maxvalue(const data:Array[] of float):float

function maxvalue(const data:Array[] of Integer):Integer

function maxvalue(const data:PFloat;const N:Integer):float

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.