记录编号	1893	评测结果	WWWEEEEEEE
题目名称	驾车旅行	最终得分	0
用户昵称	NOIer	是否通过	未通过
代码语言	Pascal	运行时间	10.000 s
提交时间	2008-09-09 15:54:37	内存使用	0.00 MiB

//Problem : Noi;
//Author  : CaiXinXiao;
//Way     : Search;

Program Tour;

ConsT

  MaxN  = 100;
  Inf   = 'tour.in';
  Ouf   = 'tour.out';

VaR

  Value : Array[1..MaxN] of Real;
  Data  : Array[1..MaxN] of Real;
  F     : Array[1..MaxN] of Real;
  yx,yh : Real;
  chufa : Real;
  M     : Longint;
  n     : Longint;


Function Pd(x:Real):Boolean;
  Begin
    Pd:=False;
    if x<=yx then Pd:=True
      Else
    Pd:=False;
  End;

Procedure Init;
  Begin
    assign(input,Inf); reset(input);
    assign(output,Ouf); rewrite(output);
    FillChar(Value,sizeof(Value),0);
    Readln(n);
    Readln(yx,yh,chufa,m);
  End;

Procedure Main;
  Var
    i,r,j,k:Longint;
    Sum:Real;
  Begin
    Sum:=10e38;
    For i:=1 to n do
      For k:=1 to k do
       Begin
        if Pd(Value[i]-Value[k])=true then
          if Sum<((F[k]+(Value[i]-Value[k])/yh)*Data[i])+20 then
            Sum:=((F[k]+(Value[i]-Value[k])/yh)*Data[i])+2;
       End;
  End;

Procedure Print;
  Begin
    close(input);
    close(output);
  End;

BEGIN
  Init;
  Main;
  Print;
END.