Баг или фича?

[jangle]

Код: Выделить всё

#Compile Exe
#Dim All

Function PBMain () As Long
Local y As Long ,z As Long
y=z=1
MsgBox Str$(y)
End Function
                                 

В PBWin 9.04 выдается 0

[Хакер]

А что должно выдаваться?

[jangle]

А что должно выдаваться?

1 скорее всего

[Хакер]

Ну второе «равно» ведь работает оператором сравнения.

[jangle]

Ну второе «равно» ведь работает оператором сравнения.

Тогда компилятор должен ругаться на отсутствие IF.
А так получается, что он проглатывает это выражение и пользователь может решить что в PB работает многократное сишное присвоение: a=b=c=d=r=100;

[Хакер]

Тогда компилятор должен ругаться на отсутствие IF.

В каком месте?

[jangle]

Вот тут:

Код: Выделить всё

y=z=1

Это же бейсик, а значит эта конструкция должна выглядеть так:

Код: Выделить всё

If  z = 1  Then y=z=1     

Иначе можно очень просто запутаться

[Хакер]

Это же бейсик, а значит эта конструкция должна выглядеть так:

С чего бы ради?

y=z=1 эквивалентно Let y = (z=1) эквивалентно сишному y = z==1 эквивалентно паскалевскому y := z = 1.

Вот такая y = z <> 2 тебя меньше смущает?

[jangle]

Это же бейсик, а значит эта конструкция должна выглядеть так:

С чего бы ради?

y=z=1 эквивалентно Let y = (z=1) эквивалентно сишному y = z==1 эквивалентно паскалевскому y := z = 1.

Вот такая y = z <> 2 тебя меньше смущает?

Меня смущает, что есть прекрасная особенность в Си-подобных языках, которой нет в Basic и нет в Паскале. Это возможность совместить несколько операторов "присвоения" в одном операторе. Например строка

Код: Выделить всё

y=z=1

присвоит переменным y и z значение 1. Это более логично и правильно.

[Хакер]

Это более логично и правильно.

За это приходится платить тем, что для присвоения используют =, а для сравнения ==. Или в паскале — для присвоения :=, а для сравнения — =.

В бейсиках сравнение и присвоение обозначается одним «символом». Изначально было так: = — это всегда сравнение, за исключением случая, когда оно стоит после Let. Чуть позже Let стал опциональным, и стало так: = — это всегда сравнение, за исключением случая, когда оно стоит в Let или LSet или RSet или Set с учётом того, что Let может быть опущен.

Так что это фича, причём крайне старая.

[spamjokester]

'А что должно выдаваться?
'1 скорее всего
y=z=1
По моему, возможность одновременного присвоения не очень существенна для BASIC,пусть он и дальше будет BASIC а не С.
Но тут с точки зрения BASIC,идет речь о возможности логического сравнения (True\False)
Т.е. выполняется условие False (z не равно единице). А условие False означает 0,в противном случае это <> 0 (-1 вероятно).
Это нужно для того,чтобы можно было иногда сократить код или,когда точное значение нас не интересует,а условие да.

Например:
x=10
y=100
J
if x<y then ... J=5
А можно:
J=(x<y)*-5
Интересно,что по моему скорости в VB60 это не добавляет,а в PW мне не известно ?

[Qwertiy]

Интересно,что по моему скорости в VB60 это не добавляет

Было бы странно, если бы от замены перехода на умножение скорость увеличивалась