Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

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

      If (J mod 4)=0 then begin

        If (J<>P^.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;

  Load:=A;

end;

const line='--------------------------------------------------------------------------------';

procedure graphout(const city:cities);

var

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





Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата