197 条题解
-
0
lemon_cn LV 3 @ 2008-10-06 19:33:03
二分？
枚举？... -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msvar
a,b,c,d:real;
k,x:real;begin
read(a,b,c,d);
x:=-100;
repeat
k:=0.0001;
x:=x+k;
if ((((a*x)+b)*x+c)*x+d>=-0.0001)and((((a*x)+b)*x+c)*x+d=100
end. -
0
var a,b,c,d:integer;
x,k:real;
begin
readln(a,b,c,d);
x:=-100;
k:=0.0001;
repeat
x:=x+k;
if (a*x*x*x+b*x*x+c*x+d-0.0001) then
begin write(x:0:2,' ');end;
until x>=100;
end.这题超水,我这样做也通过
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
bochuan007 LV 3 @ 2008-09-04 23:16:15
回LS。。。
第一次，我的精度太高，abs(a*e*e*e+b*e*e+c*e+d) < 0.000000000000000001 结果。。。
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：运行超时|无输出...
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：运行超时|无输出...
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：50 有效耗时：0ms之后，我狂减精度if abs(a*e*e*e+b*e*e+c*e+d) < 0.00001 then write(e:0:2,' ');
然后就AC
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms这些水题虽然有像二分之类严谨的算法，但是能水则水的原则对于做题不可或缺！
-
0
lcyimengnoip LV 7 @ 2008-09-03 17:32:36
问一下，若用循环做，f(j) 要和零接近到什麽程度才可以认为j是方程的解？
-
0
lucifer1991 LV 3 @ 2008-08-25 21:36:42
program as;
var
a,b,c,d,min,max:real;
procedure search(min,max:real);
var
x,res:real;
begin
x:=(max+min)/2;
if max-min>0.001 then
begin
res:=((a*x+b)*x+c)*x+d;
if res -
0
DarkMaster LV 6 @ 2008-08-14 08:02:34
求解高次方程最好的方法应该是迭代法而不是公式，公式复杂，不易记，容易出错，迭代法，公式易记，简单，精度容易控制，推荐使用！
-
0
succesful生 LV 3 @ 2007-12-16 23:03:59
竟然可以用穷举过了!
愤怒
lemon_cn
LV 3
@ 2008-10-06 19:33:03
