• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

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

  • Автор темы eskandernostra
  • Дата начала
E

eskandernostra

Собственно проблема вот в чем, нужно написать в 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

Заранее благодарен
 
Для ответа нужно войти/зарегистрироваться
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ