Задание 6 Параграф 18 ГДЗ Семакин 9 класс (Информатика)

Задача

По координатам вершин треугольника вычислите его периметр, используя процедуру вычисления длины отрезка между двумя точками.

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

Для нахождения периметра треугольника нужно вычислить длины его сторон по координатам вершин и сложить их.

Длина отрезка между точками с координатами $$(a,b)$$ и $$(c,d)$$ находится по формуле:

$$l=\sqrt{(a-c)^2+(b-d)^2}$$

В программе эту формулу удобно оформить в виде процедуры, которая вычисляет длину стороны и записывает результат в переменную-параметр.

program Z_3_6;
var
  x1, y1, x2, y2, x3, y3: integer;
  l1, l2, l3, p: real;
procedure pp(a, b, c, d: integer; var ll: real);
begin
  ll := sqrt(sqr(a — c) + sqr(b — d));
end;
begin
  write(‘Введи координаты точки A >> ‘);
  readln(x1, y1);
  write(‘Введи координаты точки B >> ‘);
  readln(x2, y2);
  write(‘Введи координаты точки C >> ‘);
  readln(x3, y3);
  pp(x1, y1, x2, y2, l1);
  pp(x2, y2, x3, y3, l2);
  pp(x3, y3, x1, y1, l3);
  p := l1 + l2 + l3;
  writeln(p:6:2);
end.