Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

    {информация о городах следования времени пути, стоянках}

    For J:=1 to P^.TotalSTation do begin

      K:=((J-1) mod 4)+1;

      Read(Source,Q^.Way[K].City,Q^.Way[K].Delay,Q^.Way[K].Reboard);

      For I:=1 to MClass do If P^.class[I] then Read(Source,Q^.Way[K].cost[I])

        else Q^.Way[K].cost[I]:=0;

      If (J mod 4)=0 then begin

        If (JP^.TotalStation) then begin New(Q^.Next); Q:=Q^.next end

         else Q^.next:=nil;

      end;

      ReadLn(Source);

    end;

    New(P^.Table);

    G:=P^.Table;

    L:=G;

    {Информация о отправлении из начального пункта}

    While Not EOLn(Source) do begin

      Read(Source,D);

      G^.Time:=(ord(D[1])-ord('0')-1)*1440+((ord(D[3])-ord('0'))*10+ord(D[4])-ord('0'))*60

       +(ord(D[6])-ord('0'))*10+ord(D[7])-ord('0');

      if L^.time>G^.time then write('Wrong data');

      If not EOLn(Source) then begin New(G^.next); G:=G^.next end else G^.next:=nil;

    end;

    ReadLn(Source);

  end;

Рекомендуем скачать другие рефераты по теме: скачать доклад бесплатно, вирусы реферат.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата