9класс

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

Запись вспомогательных алгоритмов на языке Паскаль. Страница 101-107 §2.4 номер 10

страницы 101-107 §2.4 номер 10 учебнику по информатике 9 класс Босова

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.

Сообщить об ошибке
Закрыть