Определение попадания точки в фигуру Опции

[Совсем новичок]

Нужно определить, находится ли точка в данной фигуре(треугольнике) или нет. Такойже вопрос для квадрата.

program treyg_xy_func;
var
x,y,x1,y1,x2,y2,a,b:integer;
function tr(a,b:integer):boolean;
begin
if ((a-x)*(y1-y)=(b-y)*(x1-x)) and ((a-x1)*(y2-y1)=(b-y1)*(x2-x1)) and ((a-x2)*(y-y2)=(b-y2)*(x-x2)) then
tr:=true
else tr:=false;
end;
begin
write('Koord A:');readln(x,y);
write('Koord B:');readln(x1,y1);
write('Koord C:');readln(x2,y2);
write('Koord To4ki:');readln(a,b);
writeln(tr(a,b));
readln;
end.

Добавлено через 2 мин.
я вот думаю с той формулой треугольника ченить напутал. как вообще задать треугольник? или квадрат? или круг?

Сообщение отредактировано: Lapp - 24.11.2007 13:56

[Ozzя]

http://algolist.manual.ru/maths/geom/belong/poly2d.php