Условие задачи : Вычислить расстояние между двумя точками с данными координатами 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.
