1:

if (position(x,y) = position(z1,x1)) and (position(x,y) = position(z1,y1)) then					

1:
2:
3:
4:
5:
6:
7:

if ((P.x >= A.x) and (P.x <= B.x)) or ((P.y >= A.y) and (P.y <= B.y)) then
    // P befindet sich innerhalb der Strecke von AB, nun Prüfe P mit strecke AC
else//P befindet sich nicht innerhalb der Strecke von AB kann aber trotzden im Dreick sein
If (P.x >= A.x) and (P.x <= C.x) then
   //im dreieck
else
  //nicht im Dreieck					

1:
2:
3:
4:
5:
6:
7:

Function myFormula(a,b,c,d: integer): real;
begin
  if a-c<>0 then
    Result:=(d-b)/(a-c)
  else
    System.Explode;
end;					

1:

myForumla(23,1,0.5,232);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function PunktImDreieck(X1,Y1,X2,Y2,X3,Y3,Px,Py: Single): Boolean;
var a,b,c: Single;
begin
// erstes Dreieck ist X1/Y1, X2/Y2 und Px/Py:
a:= ((X1-X2)*(Y1-Py))-((Y1-Y2)*(X1-Px));
// zweites Dreieck ist X2/Y2, X3/Y3 und Px/Py:
b:= ((X2-X3)*(Y2-Py))-((Y2-Y3)*(X2-Px));
// drittes Dreieck ist X3/Y3, X1/Y1 und Px/Py:
C:= ((X3-X1)*(Y3-Py))-((Y3-Y1)*(X3-Px));
// der Punkt liegt im Dreieck, wenn a und b und c positiv, oder a und b und c negativ sind:
Result:= ((a > 0) and (b > 0) and (c > 0))
      or ((a < 0) and (b < 0) and (c < 0));
end;