Олимпиадные задачи по программированию. Лучшие решения. Часть 1. Ускова О.Ф - 69 стр.

UptoLike

Составители:

Рубрика:

procedure Load;{загрузка карты }

var

f:text;

i:integer;

begin

neb:=[];

Assign(f,'input.txt');Reset(f);

read(f,n,m,neb_num);

for i:=1 to neb_num do with arr_neb[i] do

begin

read(f,x,y);

neb:=neb+[GetIndex(x,y)]

end;

Close(f)

end;

procedure Save;{запись числа и расположения антенн}

var

f:text;

i,x,y:integer;

begin

Assign(f,'output.txt');Rewrite(f);

writeln(f,'Число антенн:');

writeln(f,ant_num);

writeln(f,'Координаты антенн:');

for i:=1 to Lmax do

if i in ant then

begin