Определить расстояние на плоскости между двумя точками с заданными координатами. var x1 ,x2 ,y1 ,y2 ,sx ,sy: integer; c: real; begin write ('введите двух точек координаты: '); readln(x1, x2, y1, y2); sx:=x2-x1; sy:=y2-y1; c:=sqrt(sqr(sx)+sqr(sy)); write('Расстояние между точками равно ', c:4:1) end.
Логотип SimpleЦДЗ

Похожие

Задание

Определить расстояние на плоскости между двумя точками с заданными координатами.

  • var x1 ,x2 ,y1 ,y2 ,sx ,sy: integer; c: real;
  • begin
  • write \('введите двух точек координаты: '\);
  • readln\(x1, x2, y1, y2\);
  • sx:=x2-x1;
  • sy:=y2-y1;
  • c:=sqrt\(sqr\(sx\)+sqr\(sy\));
  • write\('Расстояние между точками равно ', c:4:1\)
  • end.

Тот же тест