Определить, какая из двух последних точек (B или C) расположена ближе к A - Turbo Pascal

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

На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B или C) расположена ближе к A, и вывести эту точку и ее расстояние от точки A.

Решение задачи: «Определить, какая из двух последних точек (B или C) расположена ближе к A»

Листинг программы

program noname;
uses Crt;
var a,b,c,ab,ac:Real;
begin
ClrScr;
Writeln('Введите координату точки A:');
Readln(a);
Writeln('Введите координату точки B:');
Readln(b);
Writeln('Введите координату точки C:');
Readln(c);
ab:=abs(a-b);
ac:=abs(a-c);
if ab<ac then Writeln('Точка В ближе к А,ab=',ab:0:2) else
if ac<ab then Writeln('Точка C ближе к А,ac=',ac:0:2) else
if ab=ac then Writeln('Точки B и C равноудалены от А.');
Readln;
end.

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

Программа начинается с объявления переменных a, b, c и ab, ac. Переменные a, b и c предназначены для хранения координат точек A, B и C соответственно. Переменные ab и ac используются для вычисления расстояний между точками A и B, а также между точками A и C.
Затем происходит очистка экрана с помощью функции ClrScr из библиотеки Crt.
Далее программа запрашивает у пользователя координаты точек A, B и C с помощью функции Readln.
Вычисляются расстояния между точками A и B с помощью формулы абсолютного значения разности координат ab: ab := abs(a - b), и сохраняется в переменной ab.
Затем вычисляется расстояние между точками A и C с помощью формулы абсолютного значения разности координат ac: ac := abs(a - c), и сохраняется в переменной ac.
После этого происходит сравнение полученных расстояний. Если расстояние между точками A и B меньше, чем расстояние между точками A и C, то выводится сообщение о том, что точка B ближе к точке A. Если расстояние между точками A и C меньше, чем расстояние между точками A и B, то выводится сообщение о том, что точка C ближе к точке A. Если же расстояния равны, то выводится сообщение о том, что точки B и C равноудалены от точки A.
Наконец, программа завершается вызовом функции Readln, чтобы дождаться ввода пользователя и завершить работу программы.