Форум АНТИЧАТ - Показать сообщение отдельно

Цитата:

помести после readln( у тебя включается графика, а в ней readln не работает и не может считать данные), а лучше все эти 4 координаты прямоугольника сделай константами.

У меня все работает, данные readln считывает.
На угол мне уже пофик, лишбы двигалась точка, хотя, конечно, и угол не помешал бы.

Цитата:

Так же немного не ясно, зачем функция lie. Она вроде как рисует прямоугольник вручную?

http://forum.antichat.ru/showpost.php?p=487880&postcount=61
Xserg с п а с и б о!)
Переделал вот так:

Код:

p:=x1; vx:=trunc(sin(a))+3;
q:=y1; vy:=trunc(cos(a))+3;
repeat
if ((p+vx)<x2) and ((p+vx)>x1) then p:=p+vx else if vx>0 then vx:=-3 else vx:=+3;
if ((q+vy)<y2) and ((q+vy)>y1) then q:=q+vy else if vy>0 then vy:=-3 else vy:=+3;
point(p,q);
lie(x1,y1,x2,y2);
until keypressed;

Хм.. теперь осталось вычислить соприкасается ли Удав и точка...