Описать процедуру travel(p,h,k)

Тема в разделе "Pascal and Delphi", создана пользователем sowhat, 26 фев 2015.

  1. sowhat

    sowhat New Member

    Регистрация:
    26 фев 2015
    Сообщения:
    1
    Симпатии:
    0
    Описать процедуру travel(P,H,K), которая по рейсам P (P[x] – множество городов, в которые можно за один рейс доехать автобусом из города x) определяет K – множество городов, в которые можно попасть автобусом (за один рейс или через другие города) из города H.

    Код (Text):
    type town = (a,b,c,d,e,f,g,h);
     
    towns = set of town;
     
    path = array [town] of towns;
     
    procedure travel(P: path; N: town; var K: towns);
     
    var
     
    checked: towns;
     
    i: town;
     
    begin
     
    K := P[N]; checked := [];
     
    repeat
     
    for i := low(town) to high(towns) do
     
    if i in k - checked then
     
    begin
     
    checked := checked + ;
     
    K := K + P;
     
    end;
     
    until K - checked = [];
     
    end;

    вот процедура
    что дальше делать?
     
    #1 sowhat, 26 фев 2015
    Последнее редактирование модератором: 1 мар 2015
Загрузка...

Поделиться этой страницей