Вычислить количество точек с целочисленными координатами, находящихся в круге радиуса R (R > 0) - QBasic

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

Добрый вечер, помогите с некоторыми заданиями на qBasic пожалуйста, большую часть сделал сам, а эти никак не поддаются 1) Вычислить количество точек с целочисленными координатами, находящихся в круге радиуса R (R > 0). 2) Составить программу-генератор простых чисел, в основу положить формулу 2^2*x+1/3, при 1>=x>=36 3) Составить программу для вычисления значений функции F(x) на отрезке [а, b] с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции. 1ая функция F(x)=xcos(1/x)+2, 2ая функция F(x)=tg2x-3. Если такие вопросы уже публиковали и решали, приношу свои извинения. Помогите кто чем может, уже в отчаянии

Решение задачи: «Вычислить количество точек с целочисленными координатами, находящихся в круге радиуса R (R > 0)»

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

DECLARE FUNCTION f1! (x!)
DECLARE FUNCTION f2! (x!)
CLS
 
INPUT "[A, B] = "; a, b
h = (b - a) / 20
 
FOR i = 1 TO 21
   x = a + (i - 1) * h
   LOCATE i, 1
   PRINT USING " X = ##.##  Y1 = ##.###  Y2 = ###.###"; x; f1(x); f2(x)
NEXT i
END
 
FUNCTION f1 (x)
   IF x <> 0 THEN
      f1 = x * COS(1 / x) + 2
   END IF
END FUNCTION
 
FUNCTION f2 (x)
   IF COS(2 * x) <> 0 THEN
      f2 = TAN(2 * x) - 3
   END IF
END FUNCTION

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

Задаются начальные значения переменных: — a, b — границы области поиска точек (считаем, что это координаты точки (a, b)); — h — шаг для вычисления промежуточных значений x; — i — счётчик для цикла от 1 до 21; — x — текущее значение аргумента функций f1 и f2; — f1 и f2 — функции, которые будут вычисляться в цикле; — y1 и y2 - неиспользуемые в данном коде переменные, возможно, для хранения других вычислений.
Цикл вычисляет промежуточные значения x от a до b с шагом h и вызывает функции f1 и f2 для каждого значения x.
Функция f1 вычисляет значение f1(x) по формуле x * COS(1/x) + 2.
Функция f2 вычисляет значение f2(x) по формуле TAN(2*x) — 3.
Выводится значение x, f1(x) и f2(x) в таблицу.
Код не содержит условий для проверки значений x, поэтому при выполнении функций f1 и f2 возможны ошибки вычисления (деление на ноль, вычисление тангенса нуля и т.д.).