Упражнение №10

Босова 9 класс, Просвещение:

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

Площадь четырехугольника равна сумме площадей двух треугольников.
Площадь треугольника по координатам его вершин вычислить по формуле Герона:
s=\sqrt{p\ast\left(p-a\right)\ast\left(p-b\right)\ast(p-a)}
где p – полупериметр сторон треугольника; a, b, c – длины сторон.
На основании этой формулы выведена формула вычисления площади треугольника по координатам его вершин:
S=abs(0,5*((x2 – x1)*(y3 – y1) – (x3 – x1)*(y2 – y1)))
ax, bx, cx, ay, by, cy, dx, dy: integer;

function Sch(x1, x2, x3, y1, y2, y3: integer): real;
Sch := abs(0.5 * ((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)))

write('Введи координаты точки А (x,y) > > ');
write('Введи координаты точки B (x,y) > > ');
write('Введи координаты точки C (x,y) > > ');
write('Введи координаты точки D (x,y) > > ');
s := Sch(ax, bx, dx, ay, by, dy) + Sch(bx, cx, dx, by, cy, dy);//площадь ABD + площадь BCD
Writeln('Площадь четырех угольника = ', s:8:2)
Окно вывода:
Введи координаты точки А (x,y) > > 3 3
Введи координаты точки B (x,y) > > 6 7
Введи координаты точки C (x,y) > > 11 4
Введи координаты точки D (x,y) > > 7 2
Площадь четырех угольника = 20.50

*Текст задания приводится исключительно в образовательных целях для более полного понимания решения.

Предыдущий-следующий

уч.2017

Босова

Босова

уч.2023,2016

Босова

(Раб тетрадь)

Босова

уч.2023,2017

Босова

(Сам и контр)

уч.2026,2023

Макарычев

(Углубленный)

уч.2022,2014

Погорелов 7-9 класс

Погорелов

уч.2020

Перышкин

(Рабочая тетрадь)

Перышкин

уч.2026,2019

Габриелян

уч.2019

Комарова

уч.2020

Боголюбов

Комменты вк