Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

    readln(st);

    if st='' then for i:=1 to 4 do kind[i]:=true else

      for i:=1 to 4 do kind[i]:=(st[i]='Y') or (st[i]='y') or (st[i]='X') or (st[i]='x');

    write('Допустимые классы 123456 ... ');

    readln(st);

    if st='' then for i:=1 to 4 do class[i]:=true else

      for i:=1 to 4 do class[i]:=(st[i]='Y') or (st[i]='y') or (st[i]='X') or (st[i]='x');

  end;

end;

procedure outres(p:Answerlist; a:dat);

var k:word; q:link; b:dat; i:citycode; y:pway; c:byte;

begin

    k:=0;

    while P<>nil do begin

      inc(k);

    {  write(p^.path^.bcity);}

      Q:=P^.path;

      b:=a;

      while Q<>nil do begin

        write(city[q^.bcity].name);

        Writeln(' <',q^.flight^.company,q^.Flight^.Number,'> ',city[Q^.Target].name);

        newdat(b,Q^.ddelay,b);

        write('Отправление: '); writedat(b);

        newdat(b,Q^.waytime,b);

        write(' Прибытие: '); writedat(b); writeln;

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



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

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