haihongyuan.com
海量文库 文档专家
全站搜索:
您现在的位置:首页 > 初中教育 > 学科竞赛学科竞赛

Pascal中的常用数学函数

发布时间:2014-02-03 11:04:35  

Pascal中的常用数学函数

求绝对值函数abs(x)

定义:function Abs(X): (Same type as parameter);

说明:X可以是整型,也可以是实型;返回值和X的类型一致例子:

var

r: Real;

i: Integer;

begin

r := Abs(-2.3); { 2.3 }

i := Abs(-157); { 157 }

end.

取整函数int(x)

定义:function Int(X: Real): Real; 注意:X是实型数,返回值也是实型的;返回的是X的整数部分,也就是说,X被截尾了(而不是四舍五入)例子:

var R: Real;

begin

R := Int(123.567); { 123.0 }

R := Int(-123.456); { -123.0 }

end.

截尾函数trunc(x)

定义:function Trunc(X: Real): Longint; 注意:X是实型表达式. Trunc 返回Longint型的X的整数部分例子:

begin

Writeln(1.4, " becomes ", Trunc(1.4)); { 1 }

Writeln(1.5, " becomes ", Trunc(1.5)); { 1 }

Writeln(-1.4, "becomes ", Trunc(-1.4)); { -1 }

Writeln(-1.5, "becomes ", Trunc(-1.5)); { -1 }

end.

四舍五入函数round(x)

定义:function Round(X: Real): Longint; 注意:X是实型表达式. Round 返回Longint型的X的四舍五入值.如果返回值超出了Longint的表示范围,则出错. 例子:

begin

Writeln(1.4, " rounds to ", Round(1.4)); { 1 }

Writeln(1.5, " rounds to ", Round(1.5)); { 2 }

Writeln(-1.4, "rounds to ", Round(-1.4));{ -1 }

Writeln(-1.5, "rounds to ", Round(-1.5));{ -2 }

end.

取小数函数frac(x)

定义:function Frac(X: Real): Real; 注意:X 是实型表达式. 结果返回 X 的小数部分; 也就是说,Frac(X) = X - Int(_X). 例子:

var

R: Real;

begin

R := Frac(123.456); { 0.456 }

R := Frac(-123.456); { -0.456 }

end.

求平方根函数sqrt(x)和平方函数sqr(x)

定义:

平方根:function Sqrt(X: Real): Real;

注意:X 是实型表达式. 返回实型的X的平方根. 平方:function Sqr(X): (Same type as parameter);

注意:X 是实型或整型表达式.返回值的类型和X的类型一致,大小是X的平方,即X*X. 例子:

begin

Writeln("5 squared is ", Sqr(5)); { 25 }

Writeln("The square root of 2 is ",Sqrt(2.0)); { 1.414 }

网站首页网站地图 站长统计
All rights reserved Powered by 海文库
copyright ©right 2010-2011。
文档资料库内容来自网络,如有侵犯请联系客服。zhit326@126.com