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

UptoLike

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

Рубрика:

Lmax=Nmax*Mmax; {макс . число кварталов}

type

TNum=1..Lmax; {тип индексов кварталов}

TSet=set of TNum; {тип множества кварталов}

TRec=record {координаты квартала }

x,y:integer

end;

TArr=array[TNum]of TRec;

var

neb, {множество небоскрёбов}

ant:TSet; {множество антенн}

arr_neb:TArr; {массив небоскрёбов}

n,m, {число кварталов по горизонтали и вертикали }

neb_num, {число небоскрёбов}

ant_num:integer; {число антенн}

function GetIndex(x,y:integer):integer;{индекс квартала }

begin

GetIndex:=(y-1)*Nmax + x

end;

procedure GetCoord(a:integer;var x,y:integer); {поиск координат

квартала }

begin

x:=(a-1) mod Nmax + 1;

y:=(a-1) div Nmax + 1

end;