[Delphi] Принадлежность точки треугольнику

[walet]

Помогите составить условие принадлежности точки треугольнику, но в виде условия типо if (x>2) and (y>4) и т.д.

[Serge_Bliznykov]

if (x<1) and (y<1) and (y>(-x)) then // принадлежит

если точки на границах тоже принадлежат треугольнику - тогда неравенства сделайте нестрогими.

[digitalis]

var x,y: real; b:Boolean ;
b := (x>=-1) and (x<=1) and (y<=1) and (y>=(-x)) ;

Гони рубль !
Да, у меня одно условие лишнее. Тогда - пол-рубля !

[walet]

Сообщение от Serge_Bliznykov

if (x<1) and (y<1) and (y>(-x)) then // принадлежит

если точки на границах тоже принадлежат треугольнику - тогда неравенства сделайте нестрогими.

спасибо

[walet]

Сообщение от digitalis

var x,y: real; b:Boolean ;
b := (x>=-1) and (x<=1) and (y<=1) and (y>=(-x)) ;

Гони рубль !
Да, у меня одно условие лишнее. Тогда - пол-рубля !

и вам спасибо