Уважаемые программисты помогите разобраться в Vba

Тема в разделе "Visual Basic", создана пользователем eskandernostra, 17 май 2008.

  1. eskandernostra

    eskandernostra Гость

    Собственно проблема вот в чем, нужно написать в excel в приложении VBA программу для кнопки, которая бы нашла корни уравнения (x-1)^2 -2*sin(x)=0 на промежутках (0.3;0.1) и (2.2;2.3) с точностью E = 0.01. Вот мои попытки:
    Код (Text):
    Sub Pr1()
    Dim a, b, c, E As Single
    a = Val(InputBox("Введите a"))
    b = Val(InputBox("Введите b"))
    E = Val(InputBox("Введите E"))
    c = (a + B) / 2
    Do While Abs(a - B) > E And f( с ) <> 0
    If f( c ) * f(b) < 0 Then a = с Else b = с
    Loop
    MsgBox "Корень x=" & Format(с, "#.###0")
    End Sub
    Function f(x)
    f = (x - 1) ^ 2 - 2 * Sin(x)
    End Function
    Заранее благодарен
     
Загрузка...
Похожие Темы - Уважаемые программисты помогите
  1. sanch
    Ответов:
    6
    Просмотров:
    3.614
  2. Ramzay
    Ответов:
    3
    Просмотров:
    135
  3. veromi
    Ответов:
    2
    Просмотров:
    350
  4. LuxoftPersonnel
    Ответов:
    0
    Просмотров:
    1.083
  5. unbarh
    Ответов:
    0
    Просмотров:
    1.252

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