Задачи по Pascal. Вычислить расстояние между двумя точками с данными координатами X1, Y1, X2, Y2.

Задачи по Pascal

Условие задачи : Вычислить расстояние между двумя точками с данными координатами X1, Y1, X2, Y2 (Язык Pascal)

Сложность : легкая .

Решение задачи :

Для начала продумаем наше решение. Введем координаты , потом просто подставим в формулу, которая находит расстояние между двумя точками.

Для того чтобы решить задачу нам понадобятся следующее переменные :

  1. Переменные X1, Y1, X2, Y2 — для координат
  2. Переменная 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.

cyber
Оцените автора
CyberLesson | Быстро освоить программирование Pascal и C++. Решение задач Pascal и C++
Добавить комментарий