3、--Unit System函数原型 function Abs(X);说明 X为整数or实数.范例 var r: Real; i: Integer;begin r := Abs(-2.3); { 2.3 } i := Abs(-157); { 157 }end;----------ArcTan 三角函数----------范例Cosvar R: Extended;begin R := Cos(Pi);end;----------Sin----------范例var R: Extended; S: string;begin R := Sin(P
4、i); Str(R:5:3, S); Canvas.TextOut(10, 10, 'The Sin of Pi is ' + S);end;----------Unit System函数原型 function ArcTan(X: Extended): Extended;函数原型 function Cos(X: Extended): Extended;函数原型 function Sin(X: Extended): Extended;----------说明 X为径度. Tan(x) === Sin(x) / Cos(x) ArcSin(x) = Arc
5、Tan (x/sqrt (1-sqr (x))) ArcCos(x) = ArcTan (sqrt (1-sqr (x)) /x) 左边这三个不是函数,而是右边运算求得.范例var R: Extended;begin R := ArcTan(Pi);end;范例 var R: Extended; S: string; begin R := Sin(Pi); Str(R:5:3, S); Canvas.TextOut(10, 10, 'The Sin of Pi is ' + S); end;--------
6、--Frac 求一个实数的小数部份----------Unit System函数原型 function Frac(X: Real): Real;说明 X为实数.范例 var R: Real; begin R := Frac(123.456); { 0.456 } R := Frac(-123.456); { -0.456 } end;----------Int 求一个实数的整数部份----------Unit System函数原型 function Int(X: Real): Real;说明 X为实数.范例
7、 var R: Real; begin R := Int(123.456); { 123.0 } R := Int(-123.456); { -123.0 } end;----------Pi 就是数学的Pi----------Unit System函数原型 function Pi: Extended;说明 它是一个函数,但我们就把它当作是预设的变数来用吧! Pi= 3.1415926535897932385----------Sqr X的平方----------范例var S, Tem