Question

Free Pascal语言与基础算法(第三版)

谁有Free Pascal语言与基础算法（第三版）第13，,14页，急用啊，谢谢
绝对值，符号，平方，符号，分数的表达式

Answer 1

第三版我没有，但你要什么知识我可以告诉你，我有第二版的。

取绝对值是abs(x)
取平方是sqr(x)
分数直接用 (表达式) / (表达式) 就可以了，但必须要用实型real存储，并且是近似值，比如1/3就只能存为0.333333333，Pascal中没有存分数的东西。

还有什么需要的尽管说。

追问

如何输入负次幂，和分数，如：(e^x-e^(-x))/(e^x+e^(-x)),谢谢

追答

以前看到求一个数的N次方可以用power(x , n)，但有时候不行，编译有时通过有时不通过，竞赛时也用不了，所以最好不要用。

要求一个数的N次方，最好用公式e^x=exp( ln(e)*x)，这个式子是可以直接当代码用的，这样就求出来了。而求负次幂，e^(-x)=1 / (e^x),就可以了，也就是求e^x的倒数。这样的话，幂是分数或整数都无所谓了。

当然，不放心的话，你也可以通过一个自定义的函数求一个数的整数次方，代码如下
function Ncifang(e,x:longint):longint;
var i,a:longint;
begin
a:=1;
for i:=1 to x do
a:=a*e;
Ncifang:=a;
end;

追问

公式中，exp是什么意思

追答

这个具体我也不清楚，你可以查一查换底函数和对数相关的知识，总之就这么用了。

追问

麻烦问一下，exp(3xln(2))的值为什么是这样

追答

其输出结果为实型，8.00000000E+0000 表示8*10^0，实型的结果使用了科学计数法，实际上就是8。电脑的科学计数法比如3.000E+002，就是3*10^2，也就是300。你可以改为write(exp( ln(e)*x):2:2)，限制一下场宽，输出的结果就能看得懂了。