Проверить неравенство - QBasic

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

Проверить неравенство REM SQR(1)-SQR(2)+SQR(3)-...+SQR(4N-1) >= SQR(N) при N от 1 до 1000 примечание обратите внимание на код, он печатает разницу между суммой ряда и квадратным корнем.

REM
REM  SQR(1)-SQR(2)+SQR(3)-...+SQR(4N-1) >= SQR(N)
REM
REM  1 <= N <= 1000
REM
 
CLS
 
FOR n = 1 TO 1000
   S = 0
   FOR i = 1 TO 4 * n - 1
      S = S + (-1) ^ (i + 1) * SQR(i)
   NEXT
   IF S > SQR(n) THEN PRINT S - SQR(n)
NEXT
END

Решение задачи: «Проверить неравенство»

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

DIM i AS LONG, n AS LONG, s AS DOUBLE, z AS LONG
z = 1
FOR n = 1 TO 1000
    FOR i = n * 4 - 4 TO n * 4 - 1
        z = -z
        s = s + z * SQR(i)
    NEXT i
    PRINT s - SQR(n)
NEXT n

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

Установка начального значения переменной z равным 1.
Использование двух вложенных циклов FOR для прохода по всем значениям от n4-4 до n4-1.
Изменение знака переменной z на противоположный.
Добавление значения переменной z умноженное на квадрат переменной i к переменной s.
Вывод на экран значения переменной s, вычтенное из квадратного корня от значения переменной n.