Найти площадь прямоугольного треугольника авс, заданного координатами вершин. длину стороны определять с помощью функции решить на паскале

29 Авг 2019 в 18:41
307 +1
0
Ответы
1

Для решения данной задачи можете использовать следующий код на языке Pascal:

program AreaOfTriangle;
var
xa, ya, xb, yb, xc, yc: real;
ab, bc, ac, s, area: real;
begin
write('Введите координаты точки A (xa, ya): ');
readln(xa, ya);
write('Введите координаты точки B (xb, yb): ');
readln(xb, yb);
write('Введите координаты точки C (xc, yc): ');
readln(xc, yc);
ab := sqrt(sqr(xb - xa) + sqr(yb - ya));
ac := sqrt(sqr(xc - xa) + sqr(yc - ya));
bc := sqrt(sqr(xc - xb) + sqr(yc - yb));
s := (ab + ac + bc) / 2;
area := sqrt(s * (s - ab) * (s - ac) * (s - bc));
writeln('Площадь треугольника ABC равна: ', area:0:2);
end.

Этот код находит площадь прямоугольного треугольника по координатам его вершин. Вычисление длин сторон и площади происходит с помощью формулы Герона.

20 Апр 2024 в 12:46
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир