Курсовая работа: Разработка приложений в визуальной среде Delphi на языке программирования Object Pascal

x1,x2,x3,x0,y1,y2,y3,y0: real;

a,b,c,a1,b1,c1,a2,b2,c2,a3,b3,c3,t1,t2,t3: real;

d1,d2,d3,d: real;

h,g,w: real;

// подпрограмма определения расстояния до ближайшей стороны

function Rj (k,x,n,y,m: real): real;

var

d0: real;

begin

d0: =abs (k*x+n*y+m) / (sqrt (sqr (k) +sqr (n)));

Rj: =d0;

end;

begin

// ввод координат вершин треугольника

x1: =strtofloat (edit1. text);

y2: =strtofloat (edit2. text);

x2: =strtofloat (edit3. text);

y2: =strtofloat (edit4. text);

x3: =strtofloat (edit5. text);

y3: =strtofloat (edit6. text);

// ввод координат точки

x0: =strtofloat (edit7. text);

y0: =strtofloat (edit8. text);

// вычисление длин сторон треугольника

a: =sqrt (sqr (x2-x1) +sqr (y2-y1));

b: =sqrt (sqr (x3-x2) +sqr (y3-y2));

c: =sqrt (sqr (x1-x3) +sqr (y1-y3));

// проверка условий существования треугольника

h: = a+b; g: =b+c; w: =a+c;