ПОМОГИТЕ ПОЖАЛУЙСТА СФОРМУЛИРОВАТЬ УСЛОВИЕ ЗАДАЧИ var x1, y1, x2, y2, r1, r2: real; begin write('Введите координаты первой и второй точек:'); readln(x1, y1, x2, y2); r1:= sqrt(x1*x1+y1*y1); r2:= sqrt(x2*x2+y2*y2); if r1=r2...
ПОМОГИТЕ ПОЖАЛУЙСТА СФОРМУЛИРОВАТЬ УСЛОВИЕ ЗАДАЧИ
var x1, y1, x2, y2, r1, r2: real;
begin
write('Введите координаты первой и второй точек:');
readln(x1, y1, x2, y2);
r1:= sqrt(x1*x1+y1*y1);
r2:= sqrt(x2*x2+y2*y2);
if r1=r2
thenwriteln('Точки находятся на одинаковом расстоянии от начала координат')
elseif r1>r2
thenwriteln('Точка B находится ближе к началу координат')
elsewriteln('Точка A находится ближе к началу координат')
end.
Гость
Ответ(ы) на вопрос:
ГостьДаны координаты двух точек A и B соответственно. По заданным координатам определите, какая точка находится ближе к началу координат.
Пример входных данных:
1 1 2 2
Пример выходных данных:
Точка A находится ближе к началу координат
ГостьОпределите, какая из двух точек A и B находится ближе к началу координат.
Если точки находятся на одинаковом расстоянии, вывести 'Точки A и B находятся на одинаковом расстоянии от начала координат'.
Не нашли ответ?
Похожие вопросы