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

end;

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

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

Var

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

  C:char; Q:Pway; G,L:DayTable; D:string[8];

Begin

  Assign(Source,FName);

  Reset(Source);

  readln(Source,MC); {Количество городов}

  {Считывание название городов и координат на карте }

  For J:=1 to MC do begin ReadLn(source,City[j].name); readln(source,city[j].x,city[j].y) end;

  While Not EOF(Source) do begin

    New(P);

    P^.Next:=A;

    A:=P;

    {Общая информация о рейсе}

    ReadLn(Source, P^.company);

    ReadLn(Source, P^.number);

    ReadLn(Source, P^.kind);

    {Стоимость каждого из классов}

    For I:=1 to MClass do begin Read(Source,C); P^.class[i]:=C='X' end;

    ReadLn(Source, P^.TotalStation);

    New(P^.path);

    Q:=P^.path;

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





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