PDA

Просмотр полной версии : Люди пожалуйста помогите


tikos
16.10.2011, 19:10
люди помогите, надо сделать так, чтобы когда вводишь число которое вхоидт в треугольник оно выводило что точнка принадлежит, а если нет то непринадлежит. формула y=kx+b
програму в турбу поскале
вот сам треугольник
[Ссылки могут видеть только зарегистрированные и активированные пользователи]

Babls77
17.10.2011, 21:17
Может тебе это поможет:
Проверяет попадает ли точка P в треугольник ABC.
Вершины должны быть заданы против часовой стрелки
Точка А-вершина треугольника
Точка В- левый угол треугольника
Точка С- правый угол треугольника


------A
-----/--\
----/--- \
---B-----C
function PtInTriang(const P, A, B, C: TPoint): Boolean;
begin
Result := False;
if (P.x-A.x)*(A.y-B.y) - (P.y-A.y)*(A.x-B.x) >= 0 then
if (P.x-B.x)*(B.y-C.y) - (P.y-B.y)*(B.x-C.x) >= 0 then
if (P.x-C.x)*(C.y-A.y) - (P.y-C.y)*(C.x-A.x) >= 0 then
Result := True;
end;