记录编号 109775 评测结果 AAAAA
题目名称 [NOIP 2001]一元三次方程求解 最终得分 100
用户昵称 Gravatar天空非翔 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2014-07-09 16:24:09 内存使用 0.17 MiB
显示代码纯文本
program eee;
var
    a,b,c,d,s:real;
    i,j:integer;
begin
assign(input,'3cfc.in');
assign(output,'3cfc.out');
reset(input);
rewrite(output);

     readln(a,b,c,d);
    for i:=-10000 to 10000 do
    begin
     s:=i/100;
     if abs(s*s*s*a+s*s*b+s*c+d)<=0.000001
     then begin
      inc(j);
      if j=3 then begin writeln(s:0:2); halt end
      else write(s:0:2,' ')
     end;
    end;
    close(input);
    close(output);
end.