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

Узнай цену своей работы

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

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

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

textual
Листинг программы
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

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

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

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы