ну создаешь тип точки, что-то вроде
Код:
type
TPoint = record
x,y: double;
end;
далее три вершины треугольника:
ну потом через всякие процедурки вычисляешь свои углы
обращаться к координатам точек:
Код:
A.x:= что-то там
//или
B.y:= что-то там
//или
p.x:=A.x+C.x;
//и тд и тп