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

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

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

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

textual
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.

12   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы