UVa OJ 11935-Through the Desert

模拟：

{ Author:wzx961008 Problem:UVa 11935-Through the Desert Verdict:Accepted Language:PASCAL Run Time:0.004s Submission Date:2011-03-23 16:37:16}var now_csp,now_loc,last_loc,leak_num,space_num:longint; now_fuel,min_volume:extended; s:string; c:char;begin while true do begin read(now_loc); s:=''; space_num:=0; while not eoln do begin read(c); s:=s+c; if c=' ' then inc(space_num); if space_num=3 then break; end; delete(s,1,1); if space_num=3 then delete(s,length(s),1); now_fuel:=now_fuel+(now_loc-last_loc)*((now_csp/100)+leak_num); if s='Fuel consumption' then begin read(now_csp); if now_loc=0 then if now_csp=0 then break else begin leak_num:=0; min_volume:=0; last_loc:=0; now_fuel:=0; end; end; if s='Leak' then inc(leak_num); if s='Gas station' then begin if now_fuel>min_volume then min_volume:=now_fuel; now_fuel:=0; end; if s='Mechanic' then leak_num:=0; if s='Goal' then begin if now_fuel>min_volume then min_volume:=now_fuel; writeln(min_volume:0:3); end; last_loc:=now_loc; end;end.