Дана точка А (х, у). Определить, принадлежит ли она треугольнику с вершинами в точках (x1, y1), (x2, y2), (x3, y3) (Pascal)

[d0gma]

Много занимаюсь спортом, не могу решить задачу по паскалю, помогите пожалуйста

Дана точка А (х, у). Определить, принадлежит ли она треугольнику с вершинами в точках (x1, y1), (x2, y2), (x3, y3).

[McFrey]

var x1,x2,x3,x, y1,y2,y3,y, A,B,S:integer;
begin
  read(x1,x2,x3,y1,y2,y3,x,y);
  S:=(x1-x3)*(y2-y3)-(x2-x3)*(y1-y3);
  if S=0 then writeln('Треугольник не существует...')
  else
  begin
    A:=(x-x3)*(y2-y3)-(x2-x3)*(y-y3);
    B:=(x1-x3)*(y-y3)-(x-x3)*(y1-y3);
    if (S<0) and (S<=A) and (A<=0) and (S<=B) and (B<=0) or
       (S>0) and (S>=A) and (A>=0) and (S>=B) and (B>=0) then
       writeln('Да')
    else
       writeln('Нет')
  end
end.

[SaLoKiN]

ну вот блин написал,а потом присмотрелся к вводу. и увидел что сначала вводятся х1,х2,х3 потом у1,у2,у3 и потом Х и У.

[Serge_Bliznykov]

McFrey, попытался распознать ваш алгоритм (выбирая среди этих)
вижу только, что коэффиценты наклона линий вычисляете и сравниваете...

долго вводил разные значения. в 99% случаев всё работало как надо. Но интуиция меня не обманула.. Алгоритм оказался не без бага.
Попробуйте ввести координаты точек треугольника (7,3),(3,-4),(-3,1) и координаты красной точки (5, -3) (иммено в такой последовательности: 7 3 -3 3 -4 1 5 -3.
Ваша программа говорит, что точка принадлежит треугольнику. А, как мы видим, это не так.
треугольник.gif

[Аватар]

offtop

Много занимаюсь спортом, не могу решить задачу по паскалю

Дык и учиться нужно в учебное заведение с уклоном в физкультуру, а не в паскаль

[SaLoKiN]

7 -3 3 3 1 -4 5 -3

(7,3),
(-3,1)
(3,-4)
а вот так работает)


Serge_Bliznykov а если так допилить?

var x1,x2,x3,x, y1,y2,y3,y, A,B,C,S:integer;
begin
  read(x1,x2,x3,y1,y2,y3,x,y);
  S:=(x1-x3)*(y2-y3)-(x2-x3)*(y1-y3);
  if S=0 then writeln('Треугольник не существует...')
  else
  begin
    A:=(x-x3)*(y2-y3)-(x2-x3)*(y-y3);
    B:=(x1-x3)*(y-y3)-(x-x3)*(y1-y3);
    C:=(x-x2)*(y1-y2)-(x1-x2)*(y-y2);
    if (S<0) and (S<=A) and (A<=0) and (S<=B) and (B<=0)and (S<=C) and (C<=0) or
       (S>0) and (S>=A) and (A>=0) and (S>=B) and (B>=0) and (S>=C) and (C>=0)then
       writeln('Да')
    else
       writeln('Нет')
  end
end.

[Arigato]

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

Много занимаюсь спортом, не могу решить задачу по паскалю, помогите пожалуйста

Это в цитатник

[Аватар]

http://www.rsdn.ru/forum/alg/67622.flat#67622

[SaLoKiN]

Аватар Если я правильно понял, то это метод относительности?

[d0gma]

Спасибо пацаны, не забуду вас!!!