На числовой оси расположены три точки.. - Turbo Pascal

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

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

Код к задаче: «На числовой оси расположены три точки.. - Turbo Pascal»

textual
var ab,ac,x1,x2,x3,y1,y2,y3:real;
begin
writeln('координаты точки А: ');read(x1,y1);
writeln('координаты точки B: ');read(x2,y2);
writeln('координаты точки C: ');read(x3,y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
ac:=sqrt(sqr(x3-x1)+sqr(y3-y1));
if ab>ac then write('ab=',ab,' ',x2,';',y2) else   write('ac=',ac,' ',x3,';',y3);
end.

7   голосов, оценка 4.143 из 5


СОХРАНИТЬ ССЫЛКУ