Программа вычисления произведения членов последовательности с заданной точностью e - VB

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

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

Сама функция f = 1 -( 4 / (2k + 1) ^ 3 ) точность e = 0.00001 Примечание:Используйте в программе вычисления суммы (произведения) членов последовательности с заданной точностью e для реализации цикла конструкцию Do ... Loop с постусловием (Do Конструкции Loop While Условие), при этом в программе вводить и использовать количество членов последовательности не нужно. Вот что у меня получилось...)
Когда запускаю, visual basic виснет.

Решение задачи: «Программа вычисления произведения членов последовательности с заданной точностью e»

textual
Листинг программы
Private Sub Command1_Click()
    Picture1.Cls
    k = 1
    e = 0.00001
    f = 1
    Do
        f_old = f
        f = f_old * (1 - 4 / (2 * k + 1) ^ 3)
        k = k + 1
    Loop While Abs(f - f_old) > e
    Picture1.Print "f="; Format(f, "##.###")
    Picture1.Print "k="; k
End Sub

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

9   голосов , оценка 3.778 из 5
Похожие ответы