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

    waytime:word;

    next:AnswerList;

  end;

var Lanswer:AnswerList; {глобальная переменная - начало списка маршрутов }

{Добавления нового найденного маршрута}

Procedure Answer(A:Link;cost:longint);

var P,Q:Link; d,s1,s2:word; W,PAnswer:answerlist; r:citycode;

 function min(a:mcost):longint; {Минимальная стоимость по классам}

  var i:integer; m:longint;

  begin

    m:=1000000000;

    for i:=1 to Mclass do if (m>a[i]) and (a[i]>0) then m:=a[i];

    min:=m

  end;

 function max(a:mcost):longint;  {Максимальная стоимость по классам}

  var i:integer; m:longint;

  begin

    m:=a[1];

    for i:=2 to Mclass do if m=P^.totalStation); {Выходим, если есть нарушения или рейс закончился или прехали}

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

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

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

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

  end;

  Dispose(NPath)

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





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