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

        p:=p^.last

      end;

      Posible:=b;

    End;

begin

  New(NPath);

  NPath^.last:=Path;

  P:=FlightList;

  While P<>nil do begin  {Просмотр всех рейсов}

    if ((Path=nil) or (P<>Path^.Flight)) and Pattern.Kind[P^.Kind] then {не повторяется рейс и сответствует тип перевозки}

      begin

        I:=1; {Поиск среди городов следования начальный пункт}

        While (I<P^.TotalStation-1) and (CityInPath(P^.path, I)^.city<>Pattern.BCity) do inc (I);

        If CityInPath(P^.path, I)^.city=Pattern.BCity then begin {Если начальный найден}

          NPattern:=Pattern; {Подготовка нового шаблона и новой пересадки}

          if Npattern.reboading>1 then dec(Npattern.reboading);

          Npath^.flight:=P;

          For K:=1 to Mclass do Npath^.cost[k]:=0;

          Npath^.bcity:=pattern.bcity;

          Npath^.Ddelay:=DepartureDelay(P,I,Pattern.delay);

          Npath^.waytime:=0;

          J:=I;

          Repeat  {просмотр следующих городов}

            Inc(J);

            {Внесение исправлений в шаблон и элемент маршрута о цене и времени}

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





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