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

sowhat

New member
26.02.2015
1
0
#1
Описать процедуру travel(P,H,K), которая по рейсам P (P[x] – множество городов, в которые можно за один рейс доехать автобусом из города x) определяет K – множество городов, в которые можно попасть автобусом (за один рейс или через другие города) из города H.

Код:
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;

вот процедура
что дальше делать?
 
Последнее редактирование модератором: