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

UptoLike

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

Рубрика:

GetCoord(i,x,y);

writeln(f,x,' ',y)

end;

Close(f)

end;

function Wave(a1,a2:integer):boolean;

{проходит ли волна между кварталами a1 и a2}

const

eps=0.01;{допустимое отклонение от угла квартала }

half=0.5-eps;

var

x1,y1,x2,y2,x,y,{координаты кварталов a1, a2 и проверяемого

небоскрёба}

i,t:integer;

k{коэффициент наклона прямой},p1,p2{точки пересечения с

небоскрёбом }:real;

begin

Wave:=true;

GetCoord(a1,x1,y1);

GetCoord(a2,x2,y2);

if x1=x2 then

begin

if y1>y2 then

begin

t:=y1; y1:=y2; y2:=t

end;