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

    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<a[i]  then m:=a[i];

    max:=m

  end;

begin

  new(PAnswer);

  Panswer^.path:=nil;

  P:=A;

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



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

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