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

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

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

Проверить неравенство REM SQR(1)-SQR(2)+SQR(3)-...+SQR(4N-1) >= SQR(N) при N от 1 до 1000 примечание обратите внимание на код, он печатает разницу между суммой ряда и квадратным корнем.
Листинг программы
  1. REM
  2. REM SQR(1)-SQR(2)+SQR(3)-...+SQR(4N-1) >= SQR(N)
  3. REM
  4. REM 1 <= N <= 1000
  5. REM
  6. CLS
  7. FOR n = 1 TO 1000
  8. S = 0
  9. FOR i = 1 TO 4 * n - 1
  10. S = S + (-1) ^ (i + 1) * SQR(i)
  11. NEXT
  12. IF S > SQR(n) THEN PRINT S - SQR(n)
  13. NEXT
  14. END

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

textual
Листинг программы
  1. DIM i AS LONG, n AS LONG, s AS DOUBLE, z AS LONG
  2. z = 1
  3. FOR n = 1 TO 1000
  4.     FOR i = n * 4 - 4 TO n * 4 - 1
  5.         z = -z
  6.         s = s + z * SQR(i)
  7.     NEXT i
  8.     PRINT s - SQR(n)
  9. NEXT n

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

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

6   голосов , оценка 3.833 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы