x3+ax2+bx+c=0
其中x3为x的立方,x2为x的平方,求解x,有人做过吗。
谢谢,在线等
其中x3为x的立方,x2为x的平方,求解x,有人做过吗。
谢谢,在线等
解决方案 »
- 大家说说Delphi的就业前途
- 我这里有1万条email地址,谁要。不要留下email.
- 一片混乱,OOP应该如何下手?来者有分!
- 请问利用NETBOIS数据报功能怎样实现在局域网内两台计算机发送信息和传送文件??
- 用realplayer控件播放时,如何控制rm的起始位置?
- 紧急救缓,这个问题困扰了我好长时间!来者有分!
- dbgrid中的字段排序
- XE5发布会(北京:10月23日,深圳:10月25日,上海:10月27日 )
- 咋样屏蔽Windows NT下的系统按键 ???
- DELPHI的ADO控件如何对应的微软ADO组件,如果微软升级了ADO(2.1-->2.6),DELPHI呢??
- delphi中的key=vk_return 是什么意思?
- delphi5 中ctrl+变量 关联 问题
var
Rel:real showmessage(floatToStr(Power(Rel,1/3)));
function Test(x:real):real;
begin
result:=power(x,3)+2*power(x,2)+3*x+4 ;
end;
begin
m:=100;
n:=-100;
while m-n>1E-5 do
begin
s:=(m+n)/2;
if Test(s)*Test(m)<0 then n:=s else m:=s;
end;
showmessage(format('%f,%f',[s,test(s)]));
end;
例如本题,x^3-5x^2+8x-4,0不是根,1代入等于0是根,找到了。x^3-5x^2+8x-4除以x-1,商式是x^2-4x+4,又商式还能分解成(x-2)^2,所以结果是:
x^3-5x^2+8x-4=(x-1)(x-2)^2.
枚举(enumerate)法是基于计算机运算速度快这一特性的一种使用非常普遍的思维方法。它是根据问题中的条件将可能的情况一一列举出来分析求解的方法。但有时一一列举出的情况数目很大,如果超过了我们所能忍受的范围则需要考虑如何去排除不合理的情况,尽可能减少列举的问题可能解的数目。例:求一元三次方程的解。有形如:ax3+bx2+cx+d=0一元三次方程。给出该方程中各项的系数(a,b,c,d 均为实数),并约定该方程存在三个不同实根(根的范围在-100至100之间),且根与根之差的绝对值>=1。要求由小到大依次在同一行上输出这三个实根。这道题的解法很多,最为简洁的方法就是直接枚举可能的实根解。var a,b,c,d:real;i:integer;function f(x:real):real;begin f:=a*x*x*x+b*x*x+c*x+dend;begin readln(a,b,c,d); for i:=-10000 to 10000 do {枚举方程所有可能的解} if abs(f(i/100))<1e-4 then write(i/100:2:2,' ');end.