Найти сумму ряда с заданной точностью - VB (171571)
Формулировка задачи:
Здравствуйте, уважаемые посетители форума. Скажу прямо, я в программирование очень далек, и по этому не в состоянии написать даже самый простейший программный код. У меня есть задачи к которым нужно написать ПК, буду очень признателен, если вы в этом мне поможете. Спасибо.
Решение задачи: «Найти сумму ряда с заданной точностью»
textual
Листинг программы
- Private Sub Command1_Click()
- e = 10 ^ -3
- s = 2 + 2 / (2 * 3)
- For i = 1 To 10000 Step 2 'не стал заморачиваться с условиями - любое большое число поставить, выход из цикала у нас есть по условию
- s = s + 2 / (2 ^ 2 * (i + 1))
- If 2 / (2 ^ 2 * (i + 1)) < e Then GoTo 1
- Next i
- 1 Print s
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
