Условие задачи : Вычислить расстояние между двумя точками с данными координатами X1, Y1, X2, Y2 (Язык Pascal)
Сложность : легкая .
Решение задачи :
Для начала продумаем наше решение. Введем координаты , потом просто подставим в формулу, которая находит расстояние между двумя точками.
Для того чтобы решить задачу нам понадобятся следующее переменные :
- Переменные X1, Y1, X2, Y2 — для координат
- Переменная distance — для расстояния.
До решения, давай напишем формулу которая находит расстояние между двумя точками на координатной плоскости :
Начнем мы с каркаса нашей программы :
Var X1, Y1, X2, Y2, distance: Real; begin write('Введите X1 : '); readln(X1); write('Введите Y1 : '); readln(Y1); write('Введите X2 : '); readln(X2); write('Введите Y2 : '); readln(Y2); end.
Ну тут мы просто попросили пользователя ввести все координаты, да и обратите внимание что у нас все числа типа real, так как координаты могут быть не только (1, 2, 3, 4 .. и т.д.), но и еще (2.3, 1.3, 5.1 и т.д.), т.е. не целые.
Ну а дальше просто пишем формулу на языке pascal :
distance := Sqrt(Sqr(X2 - X1) + Sqr(Y2 - Y1));
Вот и всё. Теперь осталось только вывести результат.
Всё решение задачи Pascal :
uses crt; var X1, Y1, X2, Y2, distance: Real; // объявлением переменные begin clrscr; // очищаем экран write('Введите X1 : '); readln(X1); // вводим координаты write('Введите Y1 : '); readln(Y1); // вводим координаты write('Введите X2 : '); readln(X2); // вводим координаты write('Введите Y2 : '); readln(Y2); // вводим координаты distance := Sqrt(Sqr(X2 - X1) + Sqr(Y2 - Y1)); // считаем расстояние writeln('Расстояние равно : ' , distance:2:2); // выводим результат readln; // чтобы программа не закрывалась end.