Проверить неравенство - 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
Решение задачи: «Проверить неравенство»
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
Объяснение кода листинга программы
- Установка начального значения переменной z равным 1.
- Использование двух вложенных циклов FOR для прохода по всем значениям от n4-4 до n4-1.
- Изменение знака переменной z на противоположный.
- Добавление значения переменной z умноженное на квадрат переменной i к переменной s.
- Вывод на экран значения переменной s, вычтенное из квадратного корня от значения переменной n.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д