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

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 мин.
я вот думаю с той формулой треугольника ченить напутал. как вообще задать треугольник? или квадрат? или круг?

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

Если не ошибаюсь, там все на Си написано, поэтому мне не совсем понятно, да и Си я тока в этом семестре начал изучать.

Я читал, что можно по формуле Герона решить, но как все это связать с координатами точки не знаю.


Добавлено через 14 мин.

здесь же и нашел Как узнать принадлежность