ВУЗ:
Составители:
Рубрика:
{поставить антенну new_a на карту map}
var x,y:integer;
begin
if not Cover(map,new_a) then
for x:=1 to n do
for y:=1 to m do
begin
new_a:=GetIndex(x,y);
if not(new_a in map)and not(new_a in neb) then
begin
vspom:=vspom+[new_a]; inc(num);
Step(map,new_a);
vspom:=vspom-[new_a]; dec(num)
end
end
else
if num<ant_num then
begin
ant_num:=num;
ant:=vspom
end
end;
var
x,y,a:integer;
begin
ant:=[]; ant_num:=Lmax+1;
for x:=1 to n do{ставим в качестве 1-ой различные антенны }
for y:=1 to m do
