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

Задача

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));
//writeln(ll:6:2)
end;
begin
write(‘Введи координаты точки А > > ‘);
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.
ЕК ЦОР: Часть 2, глава 5, §29, ЦОР №6, 9 – 12, 14, 15
Графический исполнитель «Стрелочка», задания для исполни-теля «Стрелочка», презентация – демонстрация к теме.

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

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

Длина отрезка между точками с координатами $$ (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.