数学表达式如何转化为pascal语言拜托了各位

数学表达式如何转化为pascal语言拜托了各位
具体一点,把中学的公式尽量都化为pascal.

求绝对值函数abs(x) 定义：function Abs(X):(Same type as parameter); 说明：X可以是整型,也可以是实型；返回值和X的类型一致例子：取整函数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 } 还有写三角函数 sin cos tan cot ...记得用弧度就对了 加+ 减- 乘* 除（div(整除）和/(除））