Подпрограммы в Delphi

[Елена lip]

Здравствуйте! Помогите решить задачку!

Даны координаты трех вершин треугольника АВС и даны координаты четвертой точки D. Определить,является ли эта точка внутренней точкой треугольника!

Если можно с комментариями.

[Google2010]

Функция, проверяющая принадлежность точки треугольнику, в языке Паскаль может иметь вид:

Function TRY1(x,y:real;x1,y1:tarray{массив [1..3]}):integer;
  Function PR(i,j:integer):boolean;
    begin
      PR:=((x-x1[i])*(y1[j]-y1[i]))>((x1[j]-x1[i])*(y-y1[i]));
    end;
begin
  if ((pr(1,2))=(pr(2,3))) and ((pr(1,2))=(pr(3,1))) 
    then TRY1:=1 else TRY1:=0
end;

Где:

Х,У - координаты проверяемой точки;
Х1 - массив, содержащий х-вые координаты точек треугольника;
У1 - массив, содержащий у-вые координаты точек треугольника;

Функция возвращает:

1, если точка лежит внутри треугольника;
0, если точка лежит снаружи;

[Елена lip]

Спасибо! Так быстро!!!! Сейчас буду пробовать!