Страница 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.