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

  W^.next:=Panswer;

  end

end;

{Возвращает ссылку на информацию об I-ой станции следования}

Function CityInPath(A:Pway; I:citycode):WayP;

var P:Pway;

Begin

  P:=A;

  While I>4  do begin I:=I-4; P:=P^.next end; {Поиск четверки в которой данная станция}

  CityInPath:=@P^.Way[I];   {Результат}

end;

const ReBoadingDelay=120;   {Минимальное время пересадки}

{Возвращает время до следещего после указанного времени time отоправление от станции}

{номер N рейса A}

Function DepartureDelay(A:PFlight; N:CityCode; time:week ):word;

var S:word; I:1..4; P:PWay; Q:DayTable;

begin

  P:=A^.path;

  S:=0;

  While N>4 do begin

     N:=N-4;

     For I:=1 to 4 do S:=S+P^.Way[I].delay+P^.Way[I].reboard;  {подсчет времени пути по полным четверкам}

     P:=P^.next;

  end;

  For I:=1 to N do S:=S+P^.Way[I].delay+P^.Way[I].reboard; {Подсчет по неполной четверке}

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





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