Найти сумму ряда с заданной точностью! - VB
Формулировка задачи:
1.Найти сумму ряда с заданной точностью Е=10^(-3)
S=2/3+4/9+6/27+8/81.....
Я не могу понять в чем ошибка:
Private Sub Command1_Click()
Dim S, EPS As Single
Dim N, M, K As Integer
EPS = 10 ^ (-3): S1 = 0
Do While S >= EPS
S1 = S1 + ((N + 2) / (3 ^ M))
N = N + 1
M = M + 1
S = S1
Loop
Print "N="; N, "M="; M
Print "S=", S
End Sub
Если вы могли бы,помогите) Плиз))
Решение задачи: «Найти сумму ряда с заданной точностью!»
textual
Листинг программы
- Option Explicit
- Private Sub Комманда1_Click()
- Dim R
- Dim S1
- Dim S, EPS As Single
- Dim N, M, K As Integer
- EPS = 10 ^ (-3): S1 = 0
- Do
- R = S1
- S1 = S1 + ((N + 2) / (3 ^ M))
- N = N + 1
- M = M + 1
- S = S1 - R
- Loop While S >= EPS
- Print "N="; N, "M="; M
- Print "S=", S
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
