Delphi-数学运算函数与过程

2017-12-14 20:01:49来源:CSDN作者:qq_32869085人点击

分享
(1)绝对值:function abs(x);说明:返回参数的绝对值。Writeln('a=-10的绝对值=',Abs(a):9:3);(2)平方函数function sqr(x:Extended):Extended;(实数)function sqr(x:Integer):Integer;(整数)Writeln('b=3,b^2=',Sqr(b):9:3);(3)平方根函数function sqrt(x:Extended):Extended;说明:返回非负数x的平方根Write('c=16, c的平方根=',Sqrt(c):9:3,-sqrt(c):9:3);(4)正弦函数(x参数是弧度,即π/2等)function sin(x:Extended):Extended(5)余弦函数function cos(x:Extended):Extended(6)反正切函数(x(-无穷,+无穷),函数返回值位弧度(-π/2,π/2))function arctan(x:Extended):Extended(7)取整函数function round(x:Extended):Int64说明:对x进行四舍五入取整function trunc(x:Extended):Int64说明:返回最大的且不大于x的整数(8)指数函数function exp(x:real):real;(9)对数函数function ln(x:real):real;(10)随机函数function random[(Range:Integer)];
program mathfun;{$APPTYPE CONSOLE}uses  SysUtils,Math;var  a,b,c:Real;begin  { TODO -oUser -cConsole Main : Insert code here }  a:=-10;  b:=3;  c:=16;  //绝对值   function abs(x);  Writeln('a=-10的绝对值=',Abs(a):9:3);  //平方  Writeln('b=3,b^2=',Sqr(b):9:3);  //平方根  Writeln('c=16, c的平方根=',Sqrt(c):9:3,-sqrt(c):9:3);  //正弦  Writeln('sin(π/3)=',Sin(Pi/3):9:3);  //余弦  Writeln('cos(π/3)=',Cos(Pi/3):9:3);  //正切  Writeln('tan(π/3)=',sin(Pi/3)/Cos(Pi/3):9:3);  //余切  Writeln('ctan(π/3)=',Cos(Pi/3)/sin(Pi/3):9:3);  //反正切  Writeln('arctan(1.732)=',arctan(1.732):9:3);  //取整函数  Writeln('-5.5四舍五入为:',Round(-5.5));  Writeln('-5.4四舍五入为:',Round(-5.4));  Writeln('-5.5取整为:',Trunc(-5.5));  Writeln('-5.4取整为:',Trunc(-5.4));  //指数函数function exp(x:real):real;  Writeln('15^4=',Exp(4*ln(15)):9:3);  //对数函数function ln(x:real):real;  Writeln('log3(5)=',(Ln(5)/ln(3)):9:3);  //随机函数function random[(Range:Integer)];  random不带参数时,取值为(0,1)  Randomize;  Writeln('输出一个97-122的随机数:',97+round(Random(26)));  Writeln('输出一个97-122的随机数:',97+round(Random*26));    Readln;  end.



最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台