Леонид писал(а):
Tad, в треугольнике можно 
Задача писал(а):
Определить принадлежит ли точка с координатами (0,0) треугольнику с вершинами в точках (Х1,Y1), (Х2,Y2), (Х3,Y3). 
function ZeroInTriangle(X1, Y1, X2, Y2, X3, Y3: Integer): Boolean;
var
D12, D23, D31: Integer;
begin
D12 := X1 * Y2 - X2 * Y1;
D23 := X2 * Y3 - X3 * Y2;
D31 := X3 * Y1 - X1 * Y3;
Result := (D12 * D23 > 0) and (D23 * D31 > 0)
end;
Поиск
Друзья
Администрация