Найти расстояние между двумя точками с заданными координатами - Turbo Pascal (33748)

Узнай цену своей работы

Формулировка задачи:

Найти расстояние между двумя точками с заданными координатами (х1,у1),(х2,у2).

Решение задачи: «Найти расстояние между двумя точками с заданными координатами»

textual
Листинг программы
var
  x1, y1, x2, y2: integer;
 
begin
  Write('X1 = ');
  Readln(x1);
  Write('Y1 = ');
  Readln(y1);
  Write('X2 = ');
  Readln(x2);
  Write('Y2 = ');
  Readln(y2);
  Writeln(Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1)):0:5);
  Readln
end.

Объяснение кода листинга программы

  1. В начале объявляются четыре переменные типа Integer: x1, y1, x2, y2.
  2. Затем происходит вывод значений этих переменных на экран с помощью функции Write.
  3. После этого с помощью функции Readln считываются значения координат точек X1, Y1, X2, Y2.
  4. Далее вычисляется квадрат разности координат по каждой паре точек с помощью функций Sqr и X2 - X1, Y2 - Y1 соответственно.
  5. Затем вычисляется квадратный корень из суммы квадратов разностей координат с помощью функции Sqrt.
  6. И наконец, результат выводится на экран с помощью функции Writeln.
  7. И последним действием является считывание следующего значения с помощью функции Readln.

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы