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

  s1:=0; s2:=0; {верхняя и нижняя границы цены}

  r:=1; {количество пересадок}

  d:=0; {время пути}

  Repeat

    s1:=s1+min(P^.cost);  {Подсчет суммы параметров по рейсам в маршруте}

    s2:=s2+max(P^.cost);

    d:=d+P^.ddelay+P^.waytime;

    P:=P^.last; {Переход к следующему рейсу в маршруте}

    inc(r);

  Until P=nil;

  if s1<=cost then begin   {Если соответствует цена}

  P:=A;

  Repeat

    new(Q);         {Сборка цепочки рейсов маршрута}

    Q^:=P^;

    Q^.last:=Panswer^.path;

    Panswer^.path:=Q;

    P:=P^.last; {Переход к следующему рейсу в маршруте}

  Until p=nil;

  Panswer^.mincost:=s1; Panswer^.maxcost:=s2;   {Сохранение сумарных цен и времени}

  Panswer^.waytime:=d; Panswer^.reboard:=r;     {и числа пересадок в элементе маршрута}

  W:=LAnswer;

  While (W^.next<>nil) and ((W^.next)^.waytime<d) do W:=W^.next; {Поиск места в соответствии времени пути}

  While (W^.next<>nil) and ((W^.next)^.reboard<r) and ((W^.next)^.waytime=d) do W:=W^.next; {Поиск места по кол-ву пересадок}

  Panswer^.next:=W^.next;  {Добавление маршрута в найденное место}

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





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