Программирование
+2Нужна программа на языке Qbasic, которая решит задачу
Даны две точки A(x1, y1) и B(x2, y2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат
По дате
По рейтингу
123456789101112131415
CLS
INPUT "Введите координаты точки A (x1, y1): ", x1, y1
INPUT "Введите координаты точки B (x2, y2): ", x2, y2
distA = SQR(x1 * x1 + y1 * y1)
distB = SQR(x2 * x2 + y2 * y2)
IF distA < distB THEN
PRINT "Точка A ближе к началу координат."
ELSEIF distB < distA THEN
PRINT "Точка B ближе к началу координат."
ELSE
PRINT "Точки A и B находятся на одинаковом расстоянии от начала координат."
END IF
Код на языке Qbasic, который решает задачу о том, какая из двух точек находится ближе к началу координат, может выглядеть следующим образом:
123456789101112
CLS
INPUT "Введите координаты точки A (x1, y1) через запятую: ", x1, y1
INPUT "Введите координаты точки B (x2, y2) через запятую: ", x2, y2
d1 = SQR(x1^2 + y1^2)
d2 = SQR(x2^2 + y2^2)
IF d1 < d2 THEN
PRINT "Точка A ближе к началу координат"
ELSEIF d2 < d1 THEN
PRINT "Точка B ближе к началу координат"
ELSE
PRINT "Точки A и B находятся на одинаковом расстоянии от начала координат"
END IF Этот код запрашивает координаты двух точек A и B, вычисляет расстояние от каждой точки до начала координат и выводит сообщение о том, какая точка ближе к началу координат. Если обе точки находятся на одинаковом расстоянии от начала координат, выводится соответствующее сообщение.
Больше по теме