Задание 9 Параграф 1.2 ГДЗ Босова 9 класс 2023 (Информатика)

Задача

var
ax, ay, bx, by, cx, cy: integer;
p: real;
function len(a, b, c, d: integer): real;
begin
len := 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);
p := len(ax, ay, bx, by) + len(bx, by, cx, cy) + len(ax, ay, cx, cy);
writeln(‘Периметр сторон = ‘, p:5:2);
end.

Подробный ответ

Для вычисления длины отрезка по координатам его концов используем формулу:

$$ AB=\sqrt{(x_1-x_2)^2+(y_1-y_2)^2} $$

Оформим её в виде функции len, которая будет принимать координаты двух точек и возвращать расстояние между ними.

Тогда периметр треугольника найдём как сумму длин его сторон:

$$ P=AB+BC+AC $$

var
  ax, ay, bx, by, cx, cy: integer;
  p: real;
function len(a, b, c, d: integer): real;
begin
  len := sqrt(sqr(a — c) + sqr(b — d));
end;
begin
  write(‘Введи координаты точки A (x,y) >> ‘);
  readln(ax, ay);
  write(‘Введи координаты точки B (x,y) >> ‘);
  readln(bx, by);
  write(‘Введи координаты точки C (x,y) >> ‘);
  readln(cx, cy);
  p := len(ax, ay, bx, by) + len(bx, by, cx, cy) + len(ax, ay, cx, cy);
  writeln(‘Периметр сторон = ‘, p:5:2);
end.