car.pas

来自「PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料」· PAS 代码 · 共 24 行

program car(input,output);
const zero=1e-4;
var s,a,b,c,c0,c1,t1,t2,t3,t4:real;
begin
  assign(input,'car.in');
  assign(output,'car.out');
  reset(input);
  rewrite(output);
  readln(s,a,b);
  c0:=0;
  c1:=s;
  repeat
    c:=(c0+c1)/2;
    t3:=c/b;
    t1:=t3+(s-c)/a;
    t4:=(c-t3*a)/(a+b);
    t2:=t3+t4+(s-(t3+t4)*a)/b;
    if t1<t2 then c1:=c else c0:=c;
  until abs(t1-t2)<zero;
  writeln(t1);
  close(input);
  close(output)
end.