Страница 101-107 §2.4 номер 10, ГДЗ по информатике за 9 класс к учебнику Босовой

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

S=√(p*(p-a)*(p-b)*(p-c))

p=(a+b+c)/2 - полупериметр длин сторон треугольника;

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

В программе будет две функции. Одна вычисляет длину стороны, другая вычисляет площадь треугольника по формуле Герона. Подпрограмма вычисления длины стороны будет входить в подпрограмму вычисления площади треугольника.

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

В программе локальные и глобальные переменные координат вершин имеют одинаковые имена. Это допустимо. Сделано, чтобы не запутаться.

program z_10;

var

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

  s: real;

function ss(ax, ay, bx, by, cx, cy: integer): real;//вычисление площади треугольника

var

  a, b, c, p: real;

  function dl(x1, y1, x2, y2: integer): real;//вычисление длины стороны треугольника

  begin

    dl := sqrt(sqr(x1 - x2) + sqr(y1 - y2))

  end;

begin

  a := dl(ax, ay, bx, by);

  b := dl(bx, by, cx, cy);

  c := dl(ax, ay, cx, cy);

  p := (a + b + c) / 2;

  ss := sqrt(p * (p - a) * (p - b) * (p - c));

 end;

begin

  writeln('введи координаты (х,у)вершин А В С D по очереди через пробел>');

  readln(ax, ay, bx, by, cx, cy, dx, dy);

  s := ss(ax, ay, bx, by, cx, cy) + ss(bx, by, cx, cy, dx, dy);

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

end.