紧急，一元三次方程求解！！！

主题：紧急，一元三次方程求解！！！

e视茜影菲香 [专家分：0] 发布于 2005-03-22 18:12:00

[问题描述]有形如ax3+bx2+cx+d=0这样的一个一元三次方程。
给出该方程中各项的系数(a,b,c,d均为实数)，并约定该方程存在
三个不同实根(根的范围在-100至100之间)，且根与根之差的绝
对值大于或等于1。要求由小到大依次在同一行输出这三个实根
(根与根之间留有空格)，并精确到小数点后两位。
提示：记方程f(x)=0，若存在两个数x1和x2
            且x1<x2，f(x1)*f(x2)<0，则在(x1,x2)区间上一定有一个根。
[样例]   输入    1  -5  -4  20
             输出    -2.00   2.00   5.00

本帖地址： http://bbs.pfan.cn/post/66833.html

回复列表（共14个回复）

11 楼

sss333 [专家分：340] 发布于 2006-12-06 17:00:00

好难，小学生不懂
[em8][em8][em8]

12 楼

angwuy [专家分：2280] 发布于 2006-12-06 18:16:00

应该可以用公式的,下面是我去年编的

var x,y,m,n:real;
begin
     writeln('x^3+mx=n');
     write('Input m:');
     readln(m);
     write('Input n:');
     readln(n);
     y:=sqrt(n*n/4+m*m*m/27);
     x:=exp((y+n/2)*ln(1/3))-exp((y-n/2)*ln(1/3));
     writeln('x=',x:0:12);
     readln;
end.

13 楼

dorremon1992 [专家分：870] 发布于 2006-12-06 18:56:00

换底公式

14 楼

lyx_716 [专家分：0] 发布于 2007-08-01 14:00:00

我的还是一五次啊！谁能帮我

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：紧急，一元三次方程求解！！！

回复列表（共14个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：紧急，一元三次方程求解！！！

回复列表 （共14个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共14个回复）