Нужно определить, находится ли точка в данной фигуре(треугольнике) или нет. Такойже вопрос для квадрата.
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.
http://algolist.manual.ru/maths/geom/belong/poly2d.php
Если не ошибаюсь, там все на Си написано, поэтому мне не совсем понятно, да и Си я тока в этом семестре начал изучать.
Я читал, что можно по формуле Герона решить, но как все это связать с координатами точки не знаю.
Добавлено через 14 мин.
здесь же и нашел http://forum.pascal.net.ru/index.php?showtopic=7223&st=0&p=51889entry51889