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

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

Наш партнер Genesis Hackspace
  1. twinkltoss

    twinkltoss Гость

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

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

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

    Вид вычисляемой функции задать с помощью подпрограммы-функции. Функциональный ряд S вычисляется с точностью до e по соответствующей рекуррентной формуле.
    Помогите Написать Код!
    Код я написал, но программа ругается.
    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 правильно ли это вообще?
     
Загрузка...
Похожие Темы - Помогите Написать Код
  1. m2x9
    Ответов:
    3
    Просмотров:
    1.136
  2. donny555
    Ответов:
    1
    Просмотров:
    213
  3. 888Senya
    Ответов:
    1
    Просмотров:
    1.609
  4. alex10
    Ответов:
    2
    Просмотров:
    1.458
  5. elena1991
    Ответов:
    0
    Просмотров:
    916

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