Определить, принадлежит ли точка с координатами (x, y) образованному кругами кольцу - QBasic

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

Задача*2. Даны два круга с центрами в начале координат и радиусами R1, R2*(R1>R2). Определить, принадлежит ли точка с координатами (x, y) образованному кругами кольцу. Задача*3. Даны координаты двух полей шахматной доски*(в виде двух пар чисел от 1 до 8). Определить, может ли шахматный ферзь одним ходом перейти с одного заданного поля на другое*(ход ферзя*–*по диагонали, по вертикали, по горизонтали).

Задача*1. Определить сумму отрицательных и количество положительных элементов массива X(n). Вывести массив и полученные значения. Упорядочить массив X(n) по убыванию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. Значения буквенных переменных задавать с клавиатуры. Задача*2. Дана матрица целых чисел X(n, т). Упорядочить ее столбцы по возрастанию произведений их элементов. Вывести исходную и полученную матрицы. Значения буквенных переменных задавать с клавиатуры.

Задача 1. Сформировать по исходной строке а$ строку b$ по правилу: при встрече с строке а$ группы символов «#» отменять в формируемой строке число символов, равное количеству символов группы «#». Вывести исходную и полученную строки. Задача 2. В исходной строке a$ определить число слов, которые содержат хотя бы один символ x$. Вывести исходную строку, результат анализа и соответствующие слова.

Решение задачи: «Определить, принадлежит ли точка с координатами (x, y) образованному кругами кольцу»

Листинг программы

CLS
INPUT "Введите радиус меньшей окружности: ";r1
INPUT "Введите радиус большей окружности: "; r2
INPUT "Введите координаты точки: ";x, y
IF x ^ 2 + y ^ 2 > r1 ^ 2 AND x ^ 2 + y ^ 2 < r2 ^ 2 THEN
       PRINT "Точка принадлежит кольцу."
ELSE
       PRINT "Точка не принадлежит кольцу."
END IF

Объяснение кода листинга программы

Задаются вопросы для ввода данных
Пользователь вводит радиус меньшей окружности (r1)
Пользователь вводит радиус большей окружности (r2)
Пользователь вводит координаты точки (x, y)
Вычисляется условие: x^2 + y^2 > r1^2 AND x^2 + y^2 < r2^2
Если условие выполняется, то выводится сообщение Точка принадлежит кольцу.
Если условие не выполняется, то выводится сообщение Точка не принадлежит кольцу.