car2.pas

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

program car2(input,output);
const v1=50.0;
      v2=5.0;
      s=100.0;
var L,time:real;
    n:integer;
begin
  assign(input,'car2.in');
  assign(output,'car2.out');
  reset(input);
  rewrite(output);
  readln(n);
  L:=s/(1+(v2/(v1+v2)+v2/(v1-v2))*(n-1)*0.9);
  {writeln(L);}  {汽车送第1个人的位置}
  time:=L/50+(100-L)/5;
  writeln(time);
  close(input);
  close(output)
end.