Вправа 10.4

Написати програму для розрахунку площі трикутника, заданого координатами трьох вершин у декартовій системі координат. Обчислення довжини відрізка оформити функцією dist, а площі трикутника функцією area.

Математична модель задачі

Формула для визначення довжини відрізка, заданого координатами його вершин: 

Формула для визначення площі трикутника, заданого довжинами його сторін:

, де 

Додаткове завдання. Передбачити можливість перевірки існування трикутника.

Шаблон коду для проекту:

function dіst(x1,y1,x2,y2:real):real;

begin

...

end;

function area(a,b,c:real):real;

var p:real;

begin

...

end;

procedure TForm1.Button1Click(Sender: TObject);

var ...

begin

 //Зчитуємо координати з текстових полів до змінних x1,y1,x2,y2,x3,y3

...

//Обчислюємо довжини сторін трикутника a,b,c, викликавши відповідну функцію з параметрами

...

 //Перевіряємо можливість існування трикутника, і в разі його

 //існування розраховуємо його площу

 //в противному випадку виводимо відповідне повідомлення

if (a+b>c) and (a+c>b) and (b+c>a) then begin

//Обчислюємо площу трикутника s, викликавши відповідну функцію з параметрами a,b,c

...

 //Виводимо результат до текстового поля

...

end

else begin

//Виводимо повідомлення про неможливість існування трикутника

ShowMessage('Трикутника з даними параметрами не існує');

end;

end;