9класс
Страница 101-107 §2.4 номер 10, ГДЗ по информатике за 9 класс к учебнику Босовой
Запись вспомогательных алгоритмов на языке Паскаль. Страница 101-107 §2.4 номер 10
Смотрите ещё задания из учебника:
Страница 101-107 §2.4 номер 4
Страница 101-107 §2.4 номер 5
Страница 101-107 §2.4 номер 6
Страница 101-107 §2.4 номер 7
Страница 101-107 §2.4 номер 8
Страница 108-112 §2.5 номер 2
Страница 108-112 §2.5 номер 3
Страница 108-112 §2.5 номер 4
Страница 108-112 §2.5 номер 5
Страница 108-112 §2.5 номер 6
... смотреть все номера
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.