Есть координаты вершин треугольника. Определить, где находится начало координат (внутри...

Question

Есть координаты вершин треугольника. Определить, где находится начало координат (внутри треугольника, снаружи или находится на одной из его сторон) Для Паскаля ABC, подскажите самый простой способ кода..

Answer 1

type TXY = record x, y: Real end;
function sqt(a, b, c: TXY): Real;
begin  
sqt:=abs((a.x-b.x)*(c.y-b.y)-(a.y-b.y)*(c.x-b.x))/2;
end;
const  
eps=1e-4;  
o: TXY = (x:0; y:0);
var   a, b, c: TXY;  
s1, s2, s3: Real;
begin  
Write('Введите координаты вершин треугольника: ');
ReadLn(a.x,a.y,b.x,b.y,c.x,c.y);  
s1:=sqt(o,a,b); s2:=sqt(o,b,c); s3:=sqt(o,a,c);  
Write('Центр координат лежит ');  
if abs(s1)else if abs(s2)else if abs(s3)else if abs(s1+s2+s3-sqt(a,b,c))end.