?? equation.pas
字號(hào):
program equation(input,output);
const zero=1e-11; {精度}
var a,b,x,fa,fx:real;
m,n,p:integer;
function f(m,n,p,x:real):real;
begin
f:=exp(x*ln(m))+exp(x*ln(n))-exp(x*ln(p));
end;
begin {main}
assign(input,'equation.in');
assign(output,'equation.out');
reset(input);
rewrite(output);
readln(m,n,p,a,b);
close(input);
if f(m,n,p,a)*f(m,n,p,b)>0
then begin writeln('NO');close(output);halt end{這說(shuō)明在[a,b]區(qū)間中無(wú)解。}
else
repeat
x:=(a+b)/2;
fa:=f(m,n,p,a);{求a的函數(shù)}
fx:=f(m,n,p,x);{求b的函數(shù)}
if fa*fx<0 then b:=x {在[a,x]內(nèi)有解}
else a:=x; {在[x,b]內(nèi)有解}
until (abs(b-a)<zero);
writeln((a+b)/2);
writeln(f(m,n,p,(a+b)/2));{輸出解}
close(output)
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -