Уравнение Методом "Половинного Деления"

@Jestars · Регистрация: 04.10.2014

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

Привет тебе вновь дорогой форум,
Уравнение:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\:lgx - 7/(2x+6)$

Ребят, столкнулся очередной раз с проблемой:
Вроде написал код как в инструкции для чайников, вроде всё проверил, а программа просто зависает на "Else"

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Double, eps As Currency
a = 1
b = a + 101
eps = 0.0001
Do
c = (a + b) / 2
If ((Log(a) / Log(10)) - (7 / (2 * a + 6))) * ((Log(c) / Log(10)) - (7 / (2 * c + 6))) > 0 Then
a = c
Else
b = c
End If
Loop While Abs(a - b) > eps
Text1.Text = c
 
End Sub

Помогите воскресить эту программу...

@Alex77755 · 22.11.2014, 16:19

Методом "Половинного Деления"

Изначально реализован не тод метод
На зтой странице форума (ну может быть на предыдущей) есть рабочий вариант решения.
Помочь найти?

@Jestars · 22.11.2014, 17:22 **[ТС]**

Буду очень благодарен, нам просто препод так объяснял делать, и сильно крутые программы мы не пишем, надеюсь пойму ту программу

@Alex77755 · 22.11.2014, 18:12

Ну, примерно, так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Комманда1_Click()
    Dim X3
    Dim X1
    Dim X2
    X1 = 0
    X2 = 0.8
    Do
      X3 = (X1 + X2) / 2
      If (F(X1) * F(X3) < 0) Then
       X2 = X3
      End If
      If (F(X3) * F(X2) < 0) Then
       X1 = X3
      End If
      DoEvents
      Loop While Abs(F(X1)) > 0.0001
      MsgBox "X = " & X1, 64, CDec(Abs(F(X1)))
End Sub
Function F(X)
    F = Tan(X) - Tan(X / 3) ^ 3 + Tan(X / 5) ^ 5 - 0.5
End Function

Добавлено через 46 секунд
Функцию поменяй на свою...

@gaw · 22.11.2014, 18:34

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

вроде всё проверил

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

Dim a As Integer, b As Integer, c As Double, eps As Currency

а вот eps As Currency - это из какой инструкции ?

@Jestars · 22.11.2014, 18:37 **[ТС]**

eps as currency
Моё нововведение, для eps до 10^-4
Currency меньше памяти будет есть =)
Он ведь как раз до 4 знаков после запятой?

@gaw · 22.11.2014, 18:41

вб предоставляет замечательную возможность: если не уверен в типе то не пиши ничего
Dim a , b , c, eps
вот так пробовать свой код а дальше эксперементировть

Добавлено через 1 минуту
как же получается а, б целые числа - а им стараемся присвоить результат деления на 2 - не всегда целое

@Jestars · 22.11.2014, 18:49 **[ТС]**

Хммм, я подумаю над этим, но мне всё же надо для сдачи использовать какой-о из типов, думаю тогда Single Подойдёт для а и b?

@gaw · 22.11.2014, 18:55

Single с плавающей точкой одинарной точности 4 бт От -3,402823E38 до 3,402823E38
мп Currency денежный 8 бт От -922 337 203 685 477,5808
до 922 337 203 685 477,5807

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Jestars 0 / 0 / 0 Регистрация: 04.10.2014 Сообщений: 20
	22.11.2014, 17:22 [ТС]
	Буду очень благодарен, нам просто препод так объяснял делать, и сильно крутые программы мы не пишем, надеюсь пойму ту программу 0

@Jestars 0 / 0 / 0 Регистрация: 04.10.2014 Сообщений: 20
	22.11.2014, 18:37 [ТС]
	eps as currency Моё нововведение, для eps до 10^-4 Currency меньше памяти будет есть =) Он ведь как раз до 4 знаков после запятой? 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	22.11.2014, 18:41
	вб предоставляет замечательную возможность: если не уверен в типе то не пиши ничего Dim a , b , c, eps вот так пробовать свой код а дальше эксперементировть Добавлено через 1 минуту как же получается а, б целые числа - а им стараемся присвоить результат деления на 2 - не всегда целое 1

@Jestars 0 / 0 / 0 Регистрация: 04.10.2014 Сообщений: 20
	22.11.2014, 18:49 [ТС]
	Хммм, я подумаю над этим, но мне всё же надо для сдачи использовать какой-о из типов, думаю тогда Single Подойдёт для а и b? 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	22.11.2014, 18:55
	Single с плавающей точкой одинарной точности 4 бт От -3,402823E38 до 3,402823E38 мп Currency денежный 8 бт От -922 337 203 685 477,5808 до 922 337 203 685 477,5807 0

Уравнение Методом "Половинного Деления"

Решение