Помогите Написать Код!

Тема в разделе "Visual Basic", создана пользователем twinkltoss, 21 ноя 2012.

  1. twinkltoss

    twinkltoss Гость

    Здравствуйте. Дали решить задачу: 1. функцию y на отрезке [а, b] с шагом h.

    2. сумму S функционального ряда разложения этой функции на отрезке [а, b] с шагом h.

    Сравнить значения заданной функции и ее разложения.

    Вид вычисляемой функции задать с помощью подпрограммы-функции. Функциональный ряд S вычисляется с точностью до e по соответствующей рекуррентной формуле.
    Безымянный.png
    Код я написал, но программа ругается.
    Function f(a)
    t = 1
    For i = 1 To a
    t = ( i ^ 2 + 1 ) / t * i
    Next i
    f = t
    End Function

    Private Sub Command1_Click()
    a = Val(Text1)
    b = Val(Text2)
    h = Val(Text3)
    e = Val(Text4)
    ex = 2.718

    For x = a To b Step h
    s = 1
    k = 1
    y = (e^x + e^(-x)) / 2
    Do
    s = s + ((x / 2) ^ k) / f(k)
    k = k + 1
    Loop Until ((x / 2) ^ k) / f(k) < e
    Picture1.Print x
    Picture2.Print Format(y, "0.00000")
    Picture3.Print Format(s, "0.00000")
    Next x

    End Sub
    B правильно ли это вообще?
     
Загрузка...

Поделиться этой страницей