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

            For K:=1 to MClass do If Pattern.Class[K] and P^.class[K] then

              Npath^.cost[k]:=Npath^.cost[k]+CityInPath(P^.path,J)^.Cost[K];

            Npath^.waytime:=Npath^.waytime+CityInPath(P^.path,J)^.delay;

            Npath^.target:=CityInPath(P^.path,J)^.City;

            NPattern.Bcity:=CityInPath(P^.path,J)^.City;

            Npattern.WayTime:=Pattern.WayTime-Npath^.ddelay-Npath^.waytime;

            Npattern.Delay:=(pattern.Delay+Npath^.Ddelay+Npath^.wayTime) mod 10080;

            B1:=Posible(Path,CityInPath(P^.path,J)^.City) and (NPattern.WayTime>=0);

            {Проверка: не превышены лимиты времени и стоимости и нет повтора пути}

            B2:=CityInPath(P^.path,J)^.city=Pattern.ECity; {приехали?}

            {Если не приехали и лимиты не превышены то делаем рассмотроим маршруты от текущего до конечного городов}

            if B1 and (not B2) and (Pattern.reboading>1) then Search(FlightList,Npattern,Npath);

            Npath^.waytime:=Npath^.waytime+CityInPath(P^.path,J)^.reboard;

          Until (not B1) or B2 or (J>=P^.totalStation); {Выходим, если есть нарушения или рейс закончился или прехали}

          If B2 and B1 then Answer(Npath,pattern.cost); {Если приехали, добавить маршрут в список}

        end {найден начальный город}

      end; {маршрут подходит по типу}

    P:=P^.next; {переход к следущему циклу}

  end;

  Dispose(NPath)

end;

{Загрузка исходных данных из файла}

Function Load (A:PFlight; FName:String;var City:cities):PFlight;

Var

  Source:Text; P:Pflight; I:WayClass; J,MC:CityCode; K:byte;

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



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

Поделитесь этой записью или добавьте в закладки