4. Две точки на плоскости заданы своими координатами. Разработайте, отладьте и протестируйте программу, определяющую, которая из точек находится ближе к началу координат. Для проверки правильности программы используйте тест:
Входные данные
Координаты 1-й точки >> 1 2
Координаты 2-й точки >> 3 4
Координаты 1-й точки >> 1 2
Координаты 2-й точки >> 2 1
Координаты 1-й точки >> 2 4
Координаты 2-й точки >> 2 2
Выходные данные
1-я точка ближе
Точки равноудалены
2-я точка ближе
Ответ
Вот пример программы на языке Паскаль, реализующий определение того, какая из двух точек ближе к началу координат:
program ClosestPoint;
var
x1, y1, x2, y2: integer;
distance1, distance2: real;
begin
writeln(‘Введите координаты 1-й точки:’);
write(‘x1 = ‘);
readln(x1);
write(‘y1 = ‘);
readln(y1);
writeln(‘Введите координаты 2-й точки:’);
write(‘x2 = ‘);
readln(x2);
write(‘y2 = ‘);
readln(y2);
// Вычисление расстояния каждой точки до начала координат
distance1 := sqrt(x1 * x1 + y1 * y1);
distance2 := sqrt(x2 * x2 + y2 * y2);
// Определение, какая точка ближе к началу координат и вывод результата
if distance1 < distance2 then writeln(‘1-я точка ближе’) else if distance1 > distance2 then
writeln(‘2-я точка ближе’)
else
writeln(‘Точки равноудалены’);
readln;
end.
Теперь выполним тест:
Входные данные
Координаты 1-й точки >> 1 2
Координаты 2-й точки >> 3 4
Выходные данные
1-я точка ближе
Входные данные
Координаты 1-й точки >> 1 2
Координаты 2-й точки >> 2 1
Выходные данные
Точки равноудалены
Входные данные
Координаты 1-й точки >> 2 4
Координаты 2-й точки >> 2 2
Выходные данные
2-я точка ближе
Программа сначала запрашивает координаты двух точек, вычисляет расстояние каждой точки до начала координат с помощью формулы sqrt(x * x + y * y), а затем сравнивает полученные расстояния и выводит соответствующий результат.