1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

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

  1. eskandernostra

    eskandernostra Гость

    Репутация:
    0
    Собственно проблема вот в чем, нужно написать в excel в приложении VBA программу для кнопки, которая бы нашла корни уравнения (x-1)^2 -2*sin(x)=0 на промежутках (0.3;0.1) и (2.2;2.3) с точностью E = 0.01. Вот мои попытки:
    Код:
    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
    Заранее благодарен
     
Загрузка...

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