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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

for i:=1 to neb_num do with arr_neb[i] do
if (x=x1)and(y1<=y)and(y<=y2)then begin Wave:=false; Exit end
end
else
if y1=y2 then
begin
if x1>x2 then
begin
t:=x1; x1:=x2; x2:=t
end;
for i:=1 to neb_num do with arr_neb[i] do
if (y=y1)and(x1<=x)and(x<=x2)then begin Wave:=false; Exit end
end
else
begin
k:=(y2-y1)/(x2-x1);
for i:=1 to neb_num do with arr_neb[i] do
begin
k:=(y2-y1)/(x2-x1);
p1:=k*(x-0.5-x1)+y1;
{можно задеть угол}
if (y-half<p1)and(p1<y+half)then begin Wave:=false; Exit end;
p2:=k*(x+0.5-x1)+y1;
if (y-half<p2)and(p2<y+half)then begin Wave:=false; Exit end;
if (abs(y-0.5-p1)<eps)and(abs(y+0.5-p2)<eps)or
(abs(y+0.5-p1)<eps)and(abs(y-0.5-p2)<eps)
then begin Wave:=false; Exit end;{проходит через углы
небоскрёба}

Страницы