Найти расстояние между двумя точками с заданными координатами - 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.
Объяснение кода листинга программы
- В начале объявляются четыре переменные типа Integer: x1, y1, x2, y2.
- Затем происходит вывод значений этих переменных на экран с помощью функции Write.
- После этого с помощью функции Readln считываются значения координат точек X1, Y1, X2, Y2.
- Далее вычисляется квадрат разности координат по каждой паре точек с помощью функций Sqr и X2 - X1, Y2 - Y1 соответственно.
- Затем вычисляется квадратный корень из суммы квадратов разностей координат с помощью функции Sqrt.
- И наконец, результат выводится на экран с помощью функции Writeln.
- И последним действием является считывание следующего значения с помощью функции Readln.