Не сравниваются значения переменных

@FullJuice · Регистрация: 30.10.2012

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

Помогите, пожалуйста! Никак не могу разобраться.
Пишу в Visual Basic 6.0 маленькую программу по максимизации методом дихотомии.
Эта часть не хочет работать:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
While ((b - a) / 2) > oshibka
sigma = (b - a) * 0.1
x1 = (b + a - sigma) / 2
x2 = (b + a + sigma) / 2
znach_fun1 = k1 + k2 * x1 + k3 * x1 ^ 2 + k4 * x1 ^ 3
zhach_fun2 = k1 + k2 * x2 + k3 * x2 ^ 2 + k4 * x2 ^ 3
If znach_fun1 >= zhach_fun2 Then
b = x2
Else
a = x1
End If
iter = iter + 1
Wend

При oshibka=1 всё нормально работает, а при oshibka=0,1 или меньше не хочет. Значение условия в скобках после While уже в -14 степени, а цикл не заканчивается!
Написанное то же самое в Visual Studio работает корректно:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
        While (b - a) / 2 > oshibka
            sigma = (b - a) * 0.1
            x1 = (b + a - sigma) / 2
            x2 = (b + a + sigma) / 2
            znach_fun1 = k1 + k2 * x1 + k3 * x1 ^ 2 + k4 * x1 ^ 3
            zhach_fun2 = k1 + k2 * x2 + k3 * x2 ^ 2 + k4 * x2 ^ 3
            If znach_fun1 >= zhach_fun2 Then
                b = x2
            Else
                a = x1
            End If
            iter = iter + 1
        End While

Заранее благодарен всем откликнувшимся!

На всякий случай, весь код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Dim fun, k1, k2, k3, k4, oshibka As String
Dim sigma, znach_fun1, zhach_fun2, x_iscom, zhach_fun_x_iscom, x1, x2, a, b, prov As Double
Dim iter As Integer
 
Private Sub Command1_Click()
 
k1 = CDbl(Text1)
k2 = CDbl(Text2)
k3 = CDbl(Text3)
k4 = CDbl(Text4)
a = CDbl(Text5)
b = CDbl(Text6)
oshibka = CDbl(Text7)
iter = 1
 
While ((b - a) / 2) > oshibka
sigma = (b - a) * 0.1
x1 = (b + a - sigma) / 2
x2 = (b + a + sigma) / 2
znach_fun1 = k1 + k2 * x1 + k3 * x1 ^ 2 + k4 * x1 ^ 3
zhach_fun2 = k1 + k2 * x2 + k3 * x2 ^ 2 + k4 * x2 ^ 3
If znach_fun1 >= zhach_fun2 Then
b = x2
Else
a = x1
End If
iter = iter + 1
Wend
 
x_iscom = (a + b) / 2
zhach_fun_x_iscom = k1 + k2 * x_iscom + k3 * x_iscom ^ 2 + k4 * x_iscom ^ 3
 
k1 = Text1
k2 = Text2
k3 = Text3
k4 = Text4
oshibka = Text7
 
fun = "(" + k1 + ") + (" + k2 + ")x + (" + k3 + ")x^2 + (" + k4 + ")x^3"
 
Text8 = "Çàäàííàÿ ôóíêöèÿ: " + fun + vbCrLf + "Çàäàííàÿ îøèáêà: " + oshibka + vbCrLf + "Êîëè÷åñòâî èòåðàöèé: " + CStr(iter) + vbCrLf + "Ïîëó÷åííûé ìàêñèìóì ôóíêöèè: " + CStr(zhach_fun_x_iscom) + vbCrLf + "Òî÷êà íàáëþäåíèÿ ìàêñèìóìà: " + CStr(x_iscom)
 
 
End Sub

.

SoftIce · 30.10.2012, 20:33

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

Visual Basic
1
2
3
Dim fun, k1, k2, k3, k4, oshibka As String 
Dim sigma, znach_fun1, zhach_fun2, x_iscom, zhach_fun_x_iscom, x1, x2, a, b, prov As Double 
Dim iter As Integer

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

Visual Basic
1
2
Dim fun as String, k1 as String, k2 as String ..................
Dim Sigma as Double, znach_fun1 as double...........

и так далее.

Такое объявление как у тебя в студии пройдёт за милую душу, а в VB6 - банан

@FullJuice · 30.10.2012, 20:50 **[ТС]**

SoftIce
Ого! Спасибо большое! Впервые с таким столкнулся, никогда не обращал внимания на это - не учили меня такому! Ещё раз спасибо!

@Catstail · 30.10.2012, 20:58

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

Dim fun as String, k1 as String, k2 as String .................. Dim Sigma as Double, znach_fun1 as double.......

- о, Господи!!! У него что, арифметика на СТРОКАХ?

SoftIce · 30.10.2012, 21:03

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

- о, Господи!!! У него что, арифметика на СТРОКАХ?

А это уже другой вопрос

@FullJuice · 30.10.2012, 21:15 **[ТС]**

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

- о, Господи!!! У него что, арифметика на СТРОКАХ?

Эти значения я считываю с TextBox и в некоторый момент они мне нужны именно как строковые значения, а когда нужно - перевожу их в Double.

Visual Basic
1
2
3
4
5
6
7
k1 = CDbl(Text1)
k2 = CDbl(Text2)
k3 = CDbl(Text3)
k4 = CDbl(Text4)
a = CDbl(Text5)
b = CDbl(Text6)
oshibka = CDbl(Text7)

А переменная fun и есть строка:

Visual Basic
1
fun = "(" + k1 + ") + (" + k2 + ")x + (" + k3 + ")x^2 + (" + k4 + ")x^3"

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@FullJuice 0 / 0 / 0 Регистрация: 30.10.2012 Сообщений: 7
	30.10.2012, 20:50 [ТС]
	SoftIce Ого! Спасибо большое! Впервые с таким столкнулся, никогда не обращал внимания на это - не учили меня такому! Ещё раз спасибо! 0