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

elsebegin

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

a1: =y2-y1; b1: =x1-x2; c1: = (-x1) * (y2-y1) +y1* (x2-x1);

a2: =y3-y2; b2: =x2-x3; c2: = (-x2) * (y3-y2) +y2* (x3-x2);

a3: =y1-y3; b1: =x3-x1; c3: = (-x3) * (y1-y3) +y3* (x1-x3);

t1: =sqrt (sqr (a1) +sqr (b1));

t2: =sqrt (sqr (a2) +sqr (b2));

t3: =sqrt (sqr (a3) +sqr (b3));

// проверка условия существования формулы для нахождения кратчайшего расстояния

if ( (t1=0) or (t2=0) or (t3=0)) then Label15. Caption: ='Нет решения'

elsebegin

// вычисление кратчайшего расстояния с помощью подпрограммы к трем сторонам треугольника

d1: =Rj (a1,x0,b1,y0,c1);

d2: =Rj (a2,x0,b2,y0,c2);

d3: =Rj (a3,x0,b3,y0,c3);

// нахождение наименьшего значения

if ( (d1<=d2) and (d1<=d3)) then d: =d1 else

if ( (d2<=d1) and (d2<=d3)) then d: =d2 else d: =d3;

end;

Label15. Caption: ='d='+floattostr (d) +'см';

end; end;

end.

Программный код разработанного приложения к задаче2.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Spin, Math;

type