powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задачка
25 сообщений из 77, страница 3 из 4
Задачка
    #40059410
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Eolt
Shocker.Pro
А вопрос-то вообще в чем?
Числа с плавающей запятой не сравнивают с помощью "=" и "<>" - в этом проблема? Ну так кури, как устроен Double


Он просто не понимает элементарных вещей в программировании. Это не первый подобный его топик.
самый, конечно, цимес с этим догматическим (у одного) и чванливыми (у другого) заявлением будет тогда, когда по логике решаемой задачи один из сомножителей вычисляемого произведения обращается в ноль, то есть вот просто в чистейший ноль типа Double

(например, во входном потоке обрабатываемых числовых значений некоторые являются нулевыми)

-- и вы, господа, видимо, не позволите себе ни само это значение сравнить с нулём:
Код: vbnet
1.
If x_maybe_zero <> 0# then ...

ни произведение сравнить с нулём:
Код: vbnet
1.
If x_maybe_zero*y = 0# then ...
...
Рейтинг: 0 / 0
Задачка
    #40059479
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Иван FXS,

Не надоело еще воду в ступе толочь? Или это такой троллинг тупостью?

авторкогда по логике решаемой задачи один из сомножителей вычисляемого произведения обращается в ноль, то есть вот просто в чистейший ноль типа Double
Тебе уже объяснили, нет никакого "чистого ноля" в двоичном формате с плавающей точкой. Есть только приблизительные значения в входящие в определенный диапазон.
Если это трудно тебе дается, то попробуй почитать хотя бы здесь: https://floating-point-gui.de/basic/

автор-- и вы, господа, видимо, не позволите себе ни само это значение сравнить с нулём:
If x_maybe_zero <> 0# then ...
ни произведение сравнить с нулём:
If x_maybe_zero*y = 0# then ...

Этот код полная чушь. Нельзя так применять операции сравнения к числам с плавающей точкой.
Сравнение возможно только в пределах определенного допуска, как описано здесь: https://floating-point-gui.de/errors/comparison/
В .NET например есть специальный метод для сравнения двух значений Double, работает так:

Код: c#
1.
2.
3.
4.
5.
// Initialize two doubles with apparently identical values
double double1 = .33333;
double double2 = (double) 1/3;
// Compare them for equality
Console.WriteLine(double1.Equals(double2));    // displays false



Для VB/VBA нет встроенного метода на подобие Equals, но есть всякие самописные реализации:
Код: vbnet
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.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
' Compares two numbers to see if they meet the comparison condition
' within the specified tolerance.
' Valid comparison operators are, "=" "<", ">", "<=", and ">=".
Public Function NumbersCompare(Value1 As Double, Value2 As Double, _
           operator As String, _
           Optional Tolerance As Double = 0.000000000001) As Boolean
    Dim difference As Double
    difference = Abs(Value1 - Value2)
   
    Dim comparison As String
    comparison = ""
    Dim equals As Boolean
    equals = False
    If Len(operator) = 2 Then
        ' Determine if the operator is greater or less than.
        If Mid(operator, 1, 1) = ">" Then
            comparison = ">"
        ElseIf Mid(operator, 1, 1) = "<" Then
            comparison = "<"
        Else
            MsgBox "Bad comparison operator: " & operator
            NumbersCompare = False
            Exit Function
        End If
       
        ' Determine if equals to is specified.
        If Mid(operator, 2, 1) = "=" Then
            equals = True
        Else
            MsgBox "Bad comparison operator: " & operator
            NumbersCompare = False
            Exit Function
        End If
    ElseIf Len(operator) = 1 Then
        ' Determine if the operator is greater than,
        ' less than, or equals to.
        If operator = ">" Then
            comparison = ">"
        ElseIf operator = "<" Then
            comparison = "<"
        ElseIf operator = "=" Then
            equals = True
        Else
            MsgBox "Bad comparison operator: " & operator
            NumbersCompare = False
            Exit Function
        End If
    Else
        MsgBox "Bad comparison operator: " & comparison
        NumbersCompare = False
        Exit Function
    End If
   
    ' Do the actual comparisons.
    If operator = ">" Then
        ' Check if the value is greater than, using the tolerance.
        If Value1 + Tolerance > Value2 Then
            NumbersCompare = True
            Exit Function
        Else
            NumbersCompare = False
        End If
    ElseIf operator = "<" Then
        ' Check if the value is less than, using the tolerance.
        If Value1 - Tolerance < Value2 Then
            NumbersCompare = True
            Exit Function
        Else
            NumbersCompare = False
        End If
    End If

    ' Check if the numbers are equal, within the tolerance.
    If equals Then
        If difference <= Tolerance Then
            NumbersCompare = True
            Exit Function
        Else
            NumbersCompare = False
        End If
    End If
End Function




Соответственно сравнение чисел с плавающей точкой реализуется так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public Sub CompareNumbers3()
    Dim val1 As Double
    val1 = 0.1 + 0.1 + 0.1

    Dim val2 As Double
    val2 = 0.3

    Debug.Print "val1 = " & CStr(val1) & ", val2 = " & CStr(val2)

    If NumbersCompare(val1, val2, "<=") Then
        Debug.Print "Values compare"
    Else
        Debug.Print "Values do not compare"
    End If
End Sub




P.S. Просьба к модераторам закрыть этот бредовый топик.
...
Рейтинг: 0 / 0
Задачка
    #40059486
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Eolt
нет никакого "чистого ноля" в двоичном формате с плавающей точкой. Есть только приблизительные значения в входящие в определенный диапазон
отлил в граните -- это апофеоз начетничества!

Озвучьте, в какой именно " определенный диапазон входит приблизительное значение " 0# ? Он же "определенный" -- ну так объявите его!
...
Рейтинг: 0 / 0
Задачка
    #40059489
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Eolt
троллинг тупостью
хорошее определение для топика

Иван FXS
Озвучьте, в какой именно " определенный диапазон входит приблизительное значение " 0# ? Он же "определенный" -- ну так объявите его!
Выше тебе уже все разжевали с кучей ссылок, но ты опять бьешься головой об стену в попытке найти для себя какое-то оправдание, приводя вырожденные примеры.

Диапазон точности значения задает разрядность мантиссы, а диапазон точности вычислений и сравнений - потребитель.
0# является "чистым нулем" (все биты нулевые) только для конкретного способа реализации double в конкретной системе. Детали этой реализации в другой системе могут быть другими (и не будет там никакого "чистого нуля" в твоем понимании) и не должны волновать разраба. Поэтому работать с нулем особым образом, отличным от других значений, не имеет никакого смысла. А ты можешь делать как хочешь, я тебе это уже говорил. Инди-разработчик может оправдать для себя любой свой говнокод.
...
Рейтинг: 0 / 0
Задачка
    #40059490
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro
0# является "чистым нулем" (все биты нулевые) только для конкретного способа реализации double в конкретной системе. Детали этой реализации в другой системе могут быть другими (и не будет там никакого "чистого нуля" в твоем понимании)
я правильно вас понял, вы можете представить такие "системы"-- или даже имели с ними дело? -- в которых 0# был реализован не как " все биты нулевые "?
...
Рейтинг: 0 / 0
Задачка
    #40059501
booby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Иван FXS
Shocker.Pro
0# является "чистым нулем" (все биты нулевые) только для конкретного способа реализации double в конкретной системе. Детали этой реализации в другой системе могут быть другими (и не будет там никакого "чистого нуля" в твоем понимании)
я правильно вас понял, вы можете представить такие "системы"-- или даже имели с ними дело? -- в которых 0# был реализован не как " все биты нулевые "?


Даже вы с ними имеете дело каждый день
Смотрите:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Type TB
  a(0 To 7) As Byte
End Type
Type TD
 d As Double
End Type

Sub test_zero()
  Dim p_zero As TB, m_zero As TB
  Dim d1 As TD, d2 As TD
  m_zero.a(7) = 128
  LSet d1 = p_zero
  LSet d2 = m_zero
  '
  Debug.Print d1.d, d2.d, d1.d = d2.d, d1.d = -0#, d2.d = 0#
  Dim m_zero2 As TB
  LSet m_zero2 = d2
  Debug.Print m_zero2.a(7)
  
End Sub



В реализации системного, машинного double именно два нуля и есть.
То, что в VB обвязка над системным double, "упрощает" работу с базовым типом и заметает под ковер его некоторые особенности, это правда.
Но технически, число нулей в двоичном представлении от этого не меняется.
...
Рейтинг: 0 / 0
Задачка
    #40059504
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Иван FXS
я правильно вас понял, вы можете представить такие "системы"-- или даже имели с ними дело? -- в которых 0# был реализован не как " все биты нулевые "?
мне не нужно представлять детали инкапсулированных реализаций чего-либо в каких бы то ни было системах, как существующих, так и перспективных, я работаю на прикладном уровне с черным ящиком, для которого представлены методики работы с ним. В этом суть инкапсуляции. Это неважно, double это или сложный класс внешней библиотеки. Повторю, как индивидуальный разработчик ты можешь говнокодить как угодно, в команде за учитывание внутренней реализации какой-либо библиотеки, тебе прилетит по башке от аппрувера.
...
Рейтинг: 0 / 0
Задачка
    #40059506
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
booby, ну, точно:
Debug.Print d1.d = d2.d, d1.d = -0#, d2.d = 0#

ибо просто:
Код: vbnet
1.
Debug.Print  -0# = 0#


или чуть сложнее
Код: vbnet
1.
2.
Const minus_zero As Double = -0#
Debug.Print minus_zero = 0#


-- то есть значение минусНоль, конечно может возникнуть в результате вычислений (ака манипуляций), но в качестве числовой константы оно не существует. "-0#" -- компилируется как 0#.
...
Рейтинг: 0 / 0
Задачка
    #40059507
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro
с черным ящиком, для которого представлены методики работы с ним
-- где представлены? Можете дать ссылку на (или процитировать) нормативное описание языка VB , в котором (описании) явным образом сформулирована догма "сравнивать double-значение на равенство запрещено "?

Я вижу:docs.microsoft.comWhen you work with floating-point numbers (Single Data Type and Double Data Type), remember that they are stored as binary fractions. This means they cannot hold an exact representation of any quantity that is not a binary fraction (of the form k / (2 ^ n) where k and n are integers). For example, 0.5 (= 1/2) and 0.3125 (= 5/16) can be held as precise values , whereas 0.2 (= 1/5) and 0.3 (= 3/10) can be only approximations.

Because of this imprecision, you cannot rely on exact results when you operate on floating-point values. In particular, two values that are theoretically equal might have slightly different representations-- соответственно, если по логике задачи требуется узнать, содержит ли переменная некоторое конкретное binary-fraction-значение (включая, конечно, ноль, который тоже есть binary-fraction), то где запрет проверить это проверкой на равенство?
...
Рейтинг: 0 / 0
Задачка
    #40059510
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
booby, упсссссс, кстати, нет, беру свои слова обратно:
Код: vbnet
1.
2.
3.
4.
  Let d2.d = -0#
  Dim m_zero2 As TB
  LSet m_zero2 = d2
  Debug.Print m_zero2.a(7)

-- то есть константа -0# имеет-таки выставленный бит знака! А равна нулю она оказывается именно при вычислении выражения (-0#=0#). Это любопытно!
...
Рейтинг: 0 / 0
Задачка
    #40059513
booby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вопрос в чем был? Существует ли такое двоичное представление нуля, в котором не все биты равны нулю.
Вам показано - вот, существует именно двоичное представление и именно нуля, в котором не все биты равны нулю.

Иван FXS
booby, ну, точно:
... но в качестве числовой константы оно не существует. "-0#" -- компилируется как 0#.

Вообще конечно, трудно понять, на чем вы настаиваете, но давайте попробуем аккуратно перевести на русский язык существо дела.
В данном конкретном случае в сравнениях d1.d = d2.d и d2.d = 0# производятся сравнение двух несовпадающих двоичных
представлений значения. У них некоторые биты не совпадают .

А VB говорит, что эти двоично не совпадающие значения одинаковы .
Это прямо опровергает утверждение о том, что видя результат сравнения, вы можете быть уверены в идентичности/различности
двоичного содержимого сравниваемых значений. В данном случае - это в обоих случаях не так.
-----------------------
Это я к тому говорю, что если вы для инженерных вычислений double используете, то будете и значения сравнивать с учетом ожидаемой относительной погрешности.
(Это трудное дело. Хорошо делать это почти никто не умеет. Здесь я себя, например, подразумеваю, в качестве "почти никто")

А вам, double, по вероятности, нужен для онтологических исследований в области хранения меток времени в формате double.
Простой совет для такого случая - подберите другой формат хранения.
Иначе ваши ожидания о том, что может быть, а чего не может - могут жестоким образом обмануться, даже если вам кажется, что вы обладаете хорошей моделью происходящего .
---------------------------
Стандарт, кстати, уже трижды официально менялся.
Последняя версия вышла в 2019 году.
Там были переосмыслены и отменены/заменены некоторые нововведения 2008 года.
...
Рейтинг: 0 / 0
Задачка
    #40059516
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
booby
Существует ли такое двоичное представление нуля, в котором не все биты равны нулю
дословно (последний) вопрос был не про "двоичное представление нуля", а про константу 0#, но я уже признал, что существование значения "минусНоль" не только как явления в потоке вычислений, но и как константы -0# (побитово отличной от константы 0#) -- это занимательно.
...
Рейтинг: 0 / 0
Задачка
    #40059525
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Иван FXS
Можете дать ссылку на (или процитировать) нормативное описание языка VB , в котором (описании) явным образом сформулирована догма "сравнивать double-значение на равенство запрещено "?


MSDN читать не пробовал? Для особо одаренных отметил стрелочкой нужное место.
...
Рейтинг: 0 / 0
Задачка
    #40059543
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Eolt, а вы по-английски совсем не читаете? Я эту цитату выложил здесь сегодня в 11:11 --
Иван FXS
Я вижу:docs.microsoft.comWhen you work with floating-point numbers (Single Data Type and Double Data Type), remember that they are stored as binary fractions. This means they cannot hold an exact representation of any quantity that is not a binary fraction (of the form k / (2 ^ n) where k and n are integers). For example, 0.5 (= 1/2) and 0.3125 (= 5/16) can be held as precise values , whereas 0.2 (= 1/5) and 0.3 (= 3/10) can be only approximations.

Because of this imprecision, you cannot rely on exact results when you operate on floating-point values. In particular, two values that are theoretically equal might have slightly different representations
и даже жирным выделил " might have " и другие существенные словосочетания.

Кстати, "могут иметь несколько различных представлений" -- это очень не слишком качественный перевод оригинального (надеюсь, вы не сомневаетесь, что оригинальным является английский вариант?) "might have slightly different representations"...

Ещё раз повторю, хотя уже начинает надоедать: если переменная типа Double инициирована нулевым значением ( =0# ), то её значение будет оставаться в точности таким, пока не будет изменено на что-то отличное от 0#.

И даже более того: если переменой присвоено некоторое Double-значение (читайте внимательно, по буквам: D_o_u_b_l_e_з_н_а_ч_е_н_и_е, а не "теоретически равное", то её значение и будет оставаться в точности именно этим Double-значением, пока не будет изменено на что-то отличное от этого Double-значения.

Возможно вы скажете, что вам в вашей практике вообще никогда не бывает нужно знать, изменилось ли значение той или иной переменной ... ну так это ж ваша практика, так что тут мне нечего возразить.
...
Рейтинг: 0 / 0
Задачка
    #40059544
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мне кажется я понял в чем причина упертости Иван FXS. Он видимо переживает, что компилятор позволяет ему скомпилировать этот код без ошибок и предупреждений


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
   Dim val1 As Double
   val1 = 0.1 + 0.1 + 0.1

   Dim val2 As Double
   val2 = 0.3
    
   If val1 = val2 Then MsgBox "Равно"



И не пишет: "Остановись идиот! Ты стреляешь себе в ногу!".
Тут дело в том, что в 90-ые когда создавался Classic VB такое поведение средств разработки было нормой.
Было достаточно, что преподаватель объяснял студентам, что нельзя проверять числа с плавающей точкой на равенство.
Они понимали это и больше так не делали.

Сейчас конечно ситуация другая, PVS Studio например такому коду просто не даст скомпилироваться .
...
Рейтинг: 0 / 0
Задачка
    #40059546
booby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Иван FXS
...
И даже более того: если переменой присвоено некоторое Double-значение (читайте внимательно, по буквам: D_o_u_b_l_e_з_н_а_ч_е_н_и_е, а не "теоретически равное", то её значение и будет оставаться в точности именно этим Double-значением, пока не будет изменено на что-то отличное от этого Double-значения.
...

даже может так и быть, при условии, что значение "достаточно далеко от нуля", программа не собрана линкером от gcc времен начала
90х годов, и программа не запущена на процессоре Intel 80486
...
Рейтинг: 0 / 0
Задачка
    #40059548
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Иван FXS
Ещё раз повторю, хотя уже начинает надоедать: если переменная типа Double инициирована нулевым значением ( =0# ), то её значение будет оставаться в точности таким, пока не будет изменено на что-то отличное от 0#.

И даже более того: если переменой присвоено некоторое Double-значение (читайте внимательно, по буквам: D_o_u_b_l_e_з_н_а_ч_е_н_и_е, а не "теоретически равное", то её значение и будет оставаться в точности именно этим Double-значением, пока не будет изменено на что-то отличное от этого Double-значения.


Даже если это так, какой смысл в этом знании?
Повторю: Что нам даст знание о том, изменялась переменная или нет?

Будем ли мы считать переменную изменённой, если над ней произведены манипуляции
Код: vbnet
1.
2.
let x = x + 2
let x = x - 2

?
Если да - то как это определить по значению переменной? (выше я уже говорил про флаги, по значению такие вещи не определяют)
Если нет , то как ты собираешься использовать "=" или "<>" для проверки?
...
Рейтинг: 0 / 0
Задачка
    #40059551
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

например, если мы подозреваем, что некоторая процедура "производит манипуляции" с интересующей нас переменной, то она может довольно долго "производить манипуляции", не меняя её значение, но это скорее экзотика, чем ожидаемое поведение.

Код: vbnet
1.
упсссссссссссс
...
Рейтинг: 0 / 0
Задачка
    #40059553
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Иван FXS
если мы подозреваем, что некоторая процедура "производит манипуляции" с интересующей нас переменной
Такая постановка задачи настолько идиотская, что даже обсуждать ее нет смысла.


Ты не ответил на заданный вопрос. Видимо потому, что хорошо понимаешь последствия.
Иван FXS
Кстати, запустите в качестве развлечения
Код: vbnet
1.
If (0.3 + 2#) - 2# = 0.3 Then Stop

Кстати, запусти в качестве развлечения
Код: vbnet
1.
If (0.3 + 1.23E120) - 1.23E120 Then Stop

а потом нам расскажешь про отслеживание манипуляций с интересующей переменной
...
Рейтинг: 0 / 0
Задачка
    #40059554
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Господа может хватит кормить этого тролля? Топик лучше закрыть, а его забанить за бессмысленный флуд.
...
Рейтинг: 0 / 0
Задачка
    #40059555
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Иван FXS
Код: vbnet
1.
упсссссссссссс

внезапно осознал и стер глупость? Увы, она осталась в моей цитате
...
Рейтинг: 0 / 0
Задачка
    #40059556
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Eolt
Господа может хватит кормить этого тролля? Топик лучше закрыть, а его забанить за бессмысленный флуд.
ну ты же сам присоединился к кормлению, значит у тебя тоже было немножко хлебушка. Топик забавный, даже кто-то поблагодарил за продуктивную дискуссию. Впоследствии можно к нему отсылать, если у кого-то возникнут вопросы по сравнению double
...
Рейтинг: 0 / 0
Задачка
    #40059557
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro
внезапно осознал и стер
да, понял, что в спешке неправильно проинтерпретировал происходящее на экране.
Shocker.Pro
Увы, она осталась в моей цитате
на здоровье, рад, что доставил вам положительную эмоцию.

(ну вот вы же в ответ написали в спешке нелепый пример
Код: vbnet
1.
If (0.3 + 1.23E+120) - 1.23E+120 Then Stop

и что мне теперь, ухохотаться?
...
Рейтинг: 0 / 0
Задачка
    #40059558
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Отличный пример, дополняющий твой.

Так что
Код: vbnet
1.
2.
let x = x + 2
let x = x - 2

считается манипуляцией или нет?
...
Рейтинг: 0 / 0
Задачка
    #40059559
Иван FXS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro
Ты не ответил на заданный вопрос
могу только повторить: самопроизвольно никакие значения переменных не могут меняться -- от слова совсем. Если вам это свойство переменных кажется бесполезным ... или если вы не понимаете саму конструкцию "самопроизвольно меняться" ... ну, имеете право.
...
Рейтинг: 0 / 0
25 сообщений из 77, страница 3 из 4
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задачка
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]