Найти сумму рациональных чисел (2) - QBasic
Формулировка задачи:
Вычислить сумму
1000/1000 + 999/1001 + ... + 1/1999
(ответ: 386.7945)
Листинг программы
- REM
- REM 1000/1000 + 999/1001 + ... + 1/1999
- REM
- REM SUMMA = 386.7945
- REM
- DECLARE SUB sum (a!, b!, S!)
- CLS
- CLEAR , , 25000
- CONST n = 1000
- CALL sum(n, n, S)
- PRINT S
- END
- SUB sum (a, b, S)
- IF a = 0 THEN EXIT SUB
- S = S + a / b
- CALL sum(a - 1, b + 1, S)
- END SUB
Решение задачи: «Найти сумму рациональных чисел (2)»
textual
Листинг программы
- DIM i AS LONG, s AS DOUBLE
- FOR i = 0 TO 999
- s = s + (1000 - i) / (1000 + i)
- NEXT i
- PRINT s
Объяснение кода листинга программы
В этом коде:
- Переменная i типа LONG (целое число со знаком) инициализируется значением 0.
- Переменная s типа DOUBLE (число с плавающей точкой) инициализируется значением 0.
- Цикл FOR проходит по всем целым числам от 0 до 999 (включительно).
- Внутри цикла значение переменной s увеличивается на (1000 - i) / (1000 + i).
- После окончания цикла выводится значение переменной s. Сумма рациональных чисел (2) будет равна 1.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д