作业帮free pascal基础编程
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/10/01 10:17:16
free pascal基础编程
描述
输入两个正实数a,b（a1）,输出a的b次幂、以a为底b的对数.
输入
输入两个正实数a,b
输出
输出a的b次幂、以a为底b的对数（每个数据一行,输出场宽为12,保留4位小数）
样例输入
2 5
样例输出
32.0000
2.3219
提示
标准函数EXP和LN分别是以e为底的指数函数和对数函数,本题要运用相关的数学知识（对数式与指数式的相互转化、换底公式）和这两个函数.
x^n=exp(ln(x^n))=exp(n*ln(x))
用到这个公式ln(x^y)=y*ln*(x)
描述
输入两个正实数a,b（a1）,输出a的b次幂、以a为底b的对数.
输入
输入两个正实数a,b
输出
输出a的b次幂、以a为底b的对数（每个数据一行,输出场宽为12,保留4位小数）
样例输入
2 5
样例输出
32.0000
2.3219
提示
标准函数EXP和LN分别是以e为底的指数函数和对数函数,本题要运用相关的数学知识（对数式与指数式的相互转化、换底公式）和这两个函数.
x^n=exp(ln(x^n))=exp(n*ln(x))
用到这个公式ln(x^y)=y*ln*(x)
program cyw;
uses math;
var a,b,ans:extended;
begin
readln(a,b);
ans:=exp(b*ln(a));
writeln(ans:12:4);
ans:=ln(b)/ln(a);
writeln(ans:12:4);
end.
这两个函数要不要数学库(uses math)我也记不清楚,好像是不要的,以防万一吧
extended而不是real,是为了提高精确度,noip好像是能用的吧
uses math;
var a,b,ans:extended;
begin
readln(a,b);
ans:=exp(b*ln(a));
writeln(ans:12:4);
ans:=ln(b)/ln(a);
writeln(ans:12:4);
end.
这两个函数要不要数学库(uses math)我也记不清楚,好像是不要的,以防万一吧
extended而不是real,是为了提高精确度,noip好像是能用的吧