Как записать этот пример методом половинного деления?

@winonabuts · Регистрация: 29.01.2021

Author24 — интернет-сервис помощи студентам

Как записать этот пример методом половинного деления?

@Pro_grammer · 21.02.2021, 14:28

Visual Basic

Private Sub Command1_Click()
Dim min As Single, max As Single
Dim r As Single, x As Single
min = 0.001: max = 0.999
Do
    x = (min + max) / 2 ' метод половинного деления
    r = Format(x - 1 / (3.2 + Sin(3.6 * x)), "0.000")
    If r < 0 Then min = x
    If r > 0 Then max = x
Loop Until r = 0#
Print "Ответ Х = " & x
End Sub

@Catstail · 22.02.2021, 22:03

Pro_grammer, Format возвращает variant-результат. Зачем там Format?

@Pro_grammer · 22.02.2021, 22:50

Сообщение от Catstail

Зачем там Format?

Тут не важно, в любом случае r As Single, и будет неявное преобразование.
Хотя вернее было бы использовать Round, но так уж под руку пришлось

@winonabuts 1 / 1 / 0 Регистрация: 29.01.2021 Сообщений: 124
		1
	Как записать этот пример методом половинного деления? 21.02.2021, 11:26. Показов 1820. Ответов 3 Метки нет (Все метки) 0

@Catstail Модератор 36578 / 20308 / 4218 Регистрация: 12.02.2012 Сообщений: 33,606 Записей в блоге: 13
	22.02.2021, 22:03	3
	Pro_grammer, Format возвращает variant-результат. Зачем там Format? 0

@Pro_grammer 6804 / 2831 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	22.02.2021, 22:50	4
	Сообщение от Catstail Зачем там Format? Тут не важно, в любом случае r As Single, и будет неявное преобразование. Хотя вернее было бы использовать Round, но так уж под руку пришлось 1

Опции темы

Как записать этот пример методом половинного деления?

Решение