Найти сумму рациональных чисел (2) - QBasic

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

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

Вычислить сумму 1000/1000 + 999/1001 + ... + 1/1999 (ответ: 386.7945)
Листинг программы
  1. REM
  2. REM 1000/1000 + 999/1001 + ... + 1/1999
  3. REM
  4. REM SUMMA = 386.7945
  5. REM
  6. DECLARE SUB sum (a!, b!, S!)
  7. CLS
  8. CLEAR , , 25000
  9. CONST n = 1000
  10. CALL sum(n, n, S)
  11. PRINT S
  12. END
  13. SUB sum (a, b, S)
  14. IF a = 0 THEN EXIT SUB
  15. S = S + a / b
  16. CALL sum(a - 1, b + 1, S)
  17. END SUB

Решение задачи: «Найти сумму рациональных чисел (2)»

textual
Листинг программы
  1. DIM i AS LONG, s AS DOUBLE
  2. FOR i = 0 TO 999
  3.     s = s + (1000 - i) / (1000 + i)
  4. NEXT i
  5. PRINT s

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

В этом коде:

  1. Переменная i типа LONG (целое число со знаком) инициализируется значением 0.
  2. Переменная s типа DOUBLE (число с плавающей точкой) инициализируется значением 0.
  3. Цикл FOR проходит по всем целым числам от 0 до 999 (включительно).
  4. Внутри цикла значение переменной s увеличивается на (1000 - i) / (1000 + i).
  5. После окончания цикла выводится значение переменной s. Сумма рациональных чисел (2) будет равна 1.

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


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

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

8   голосов , оценка 3.625 из 5

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

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

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