Три точки А(х₁;у₁),В(х₂;у₂),С(х₃;у₃) задаются своими координатами.Написать программу, которая определяет,какая из этих точек ближе к началу координат.

1
координаты вводим с клавиатуры? или можно сразу в программе забить?
с клавиатуры вводм

Ответы и объяснения

2013-12-13T19:38:27+00:00
Var
x1,x2,x3,y1,y2,y3,r1,r1,r3: real;
begin
writeln ('введите координаты A');
readln (x1,y1);
writeln ('введите координаты B');
readln (x2,y2);
writeln ('введите координаты C');
readln (x3,y3);
r1:=sqrt(x1*x1+y1*y1);
r2:=sqrt(x2*x2+y2*y2);
r3:=sqrt(x3*x3+y3*y3);
if (r1<=r2) and (r1<=r3) writeln('точка А ближе');
if (r2<=r1) and (r2<=r3) writeln('точка B ближе');
if (r3<=r1) and (r3<=r2) writeln('точка C ближе');
readln;
end

оооо спасибо
тут просто вычисляем длину отрезка, соединяющего эту точку с началом координат, и если отрезок меньше других, значит точка ближе к началу
математически я знаю как решать, у меня именно с программированием худо*)