> var
>   c1,c2,c3:char;
>   k,n,a,b,c,la,lb,lc,sa,sb,sc,s:extended;
>   t:string;
> begin
>   s:=0;
>   la:=0;
>   lb:=0;
>   lc:=0;
>   while not seekeof do
>     begin
>       read(c1,c2,c3);
>       t:=c1+c2+c3;
>       a:=(ord(c1)-48)*10+ord(c2)-48;
>       read(c1,c2,c3);
>       t:=t+c1+c2+c3;
>       b:=(ord(c1)-48)*10+ord(c2)-48;
>       read(c1,c2);
>       t:=t+c1+c2;
>       c:=(ord(c1)-48)*10+ord(c2)-48;
>       sa:=a;
>       sb:=b;
>       sc:=c;
>       if la+lb+lc<>0 then
>         begin
>           n:=0;
>           if c<lc then
>             begin
>               c:=c+60;
>               b:=b-1;
>               n:=n+c-lc;
>             end
>                   else n:=n+c-lc;
>           if b<lb then
>             begin
>               b:=b+60;
>               c:=c-1;
>               n:=n+(b-lb)*60;
>             end
>                   else n:=n+(b-lb)*60;
>           n:=n+(a-la)*3600;
>           s:=s+n/3600*k;
>         end;
>       la:=sa;
>       lb:=sb;
>       lc:=sc;
>       if not seekeoln then
>         begin
>           readln(k);
>         end
>                       else
>         begin
>           readln;
>           writeln(t,' ',s:1:2,' km');
>         end;
>     end;
> end.

• 没办法呀…… (0) JiangLY 2005-07-23 22:47:27
  • 还是不知道为什么错…… (0) JiangLY 2005-07-23 22:51:19