Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

  time:=(10080+time-(S mod 10080)) mod 10080; {Время отправления этого рейса от начальной станции}

  Q:=A^.Table;

  while (Q<>nil) and (Q^.time<time+ReboadingDelay) do Q:=Q^.next; {Поиск ближайшего времени на текущей неделе}

  If Q<>nil then Departuredelay:=Q^.time-time else {Если на текущей неделе не найден}

    DepartureDelay:=10080-time+(A^.Table)^.time; {Поиск ближайщего времени на следующей неделе}

end;

{Поиск всех возможных маршрутов, удовлетворяющих Pattern}

Procedure Search (FlightList:Pflight; const Pattern:Blank; Path:Link);

Var P:Pflight; I,J:CityCode; D,DDelay:Word; K:WayClass; B1,B2:Boolean;

 NPattern:Blank; NPath:Link; c:Longint;

  {Проверка допустимости маршрута (проверка дублирования города)}

  Function Posible (P:Link; L:CityCode):Boolean;

    Var b:boolean; i:citycode; Q:pway;

    Begin

      b:=true;

      While (P<>nil) and b do begin  {Просмотр всех предидущих пересадок}

        Q:=P^.flight^.path;

        i:=1;

        while Q^.way[i].city<>P^.bcity do begin  {Поиск города отправления}

         i:=(i mod 4)+1; if i=1 then Q:=Q^.next;

        end;

         repeat

           b:=Q^.way[i].city<>L; {Проверка города на дублирование}

           i:=(i mod 4)+1; if i=1 then Q:=Q^.next

         until (Q^.way[i].city=P^.target) or not b;  {переход к следующему пока не город назначения}

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





Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата