Страница 29-30 параграф 1.2 вопрос 10, ГДЗ по информатике за 9 класс к учебнику Босовой за 2023 год Просвещение

Площадь четырехугольника будет равна сумме площадей двух треугольников.

Площадь треугольника по координатам его вершин можно вычислить по формуле Герона:

s=√p*(p-a)*(p-b)*(p-a)

где p - полупериметр сторон треугольника; a, b, c - длины сторон.

В этом случае можно воспользоваться программой из задания 9 - вычислить длины сторон, затем площади треугольников, затем площадь четырехугольника как сумма площадей треугольников.

Есть формула вычисления площади треугольника по координатам его вершин:

s=abs(0.5*(xa*(yb-yc)+xb*(yc-ya)+xc*(ya-yb)))

Ниже приведена программа, где для вычисления площади треугольника используется формула Герона.

program Z_1_2_10;

var

  ax, bx, cx, ay, by, cy, dx, dy: integer;

  ab,bd,ad,bc,cd:integer;//длины сторон

  s, p: real;

function len(a, b, c, d: integer): integer;

begin

  len := round(sqrt(sqr(a - c) + sqr(b - d)))

end;

begin

  write('Введи координаты точки А (x,y) >> ');

  readln(ax, ay);

  write('Введи координаты точки B (x,y) >> ');

  readln(bx, by);

  write('Введи координаты точки C (x,y) >> ');

  readln(cx, cy);

  write('Введи координаты точки D (x,y) >> ');

  readln(dx, dy);

  ab := len(ax, ay, bx, by);//длина стороны AB

  bd := len(bx, by, dx, dy);//длина стороны BD

  ad := len(ax, ay, dx, dy);//длина стороны AD

  p := (ab + bd + ad) / 2;

  s := abs(sqrt(p * (p - ab) * (p - bd) * (p - ad)));//площадь ABD

  bc := len(bx, by, cx, cy);//длина стороны BC

  cd := len(cx, cy, dx, dy);//длина стороны CD

  p := (bd + bc + cd) / 2;

  s := s + abs(sqrt(p * (p - bd) * (p - bc) * (p - cd)));//площадь ABD + площадь BCD

  Writeln('Площадь четырех угольника = ', s:8:2)

end.

Окно вывода:

Введи координаты точки А (x,y) >> 4 3

Введи координаты точки B (x,y) >> 6 8

Введи координаты точки C (x,y) >> 11 1

Введи координаты точки D (x,y) >> 5 1

Площадь четырех угольника = 20.98