Найти сумму ряда - Visual Basic .NET (64552)
Формулировка задачи:
Цикл c использованием конструкции
Do While – Loop, или Do – Loop, или While – End While.
Найти сумму ряда. Вычисления закончить, когда очередной член ряда станет меньше заданного значения погрешности (=0.0001). При использовании бесконечного цикла (Do - Loop) для выхода из него необходимо использовать оператор Exit Do. Вывести значение S и количество шагов цикла n. _______________________________S=(1+sin0.1)(1+sin0.2)...(1+sin10)
_______________________________ Пытался..Решение задачи: «Найти сумму ряда»
textual
Листинг программы
Imports System.Math
Public Class Form1
Dim P As Double = 1, L As Integer = 0
Dim I As Double = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Tmp As Double
Do
I += 0.1
Tmp = 1 + Sin(I)
P *= Tmp
ListBox1.Items.Add(Tmp)
L += 1
If Tmp < 0.0001 Then
Me.Text = Tmp & "< 0.0001, Exit program"
Exit Do
End If
Loop
ListBox1.Items.Add("P=" & P & " - Loops: " & L)
End Sub
End Class