помогите решить задачу на quick basic
Вычислить число точек с целочисленными координатами попадающих в круг радиуса R (R>0) c центром в начале координат.

Простейший вариант такой: в цикле по I от (-целая часть(R)) до (целая часть(R)) суммировать (целая часть((R^2-I^2)^(1/2)))*2+1. Целая часть - которая округляет вниз до ближайшего целого. Забыл, как она называется в Бейсике.

Потом можно сократить еще в 2 раза, если вначале сумме присвоить 2*целая часть(R)+1, цикл сделать от 1 до (целая часть(R)), прибавлять (целая часть((R^2-I^2)^(1/2)))*4+2.

Можно ли заставить Basic в полноэкранном режиме работать с разрешением отличным от 700x400. а то глаза сильно устают.

Добавлено спустя 32 секунды:
И как переходить на русский?

vor
Что-то из далекого прошлого.... не помню точно ABS(Х) округляет до целого или модуль показывает...

площадь его посчитать чтоли ?