Почему не работает конструкция A = B = C - QBasic

@arsur · Регистрация: 11.01.2012

PureBasic

cls
input “Vvedite nazvanie 1 otelya”, a$
input “Vvedite nazvanie 2 otelya”, b$
input “Vvedite nazvanie 3 otelya”, c$
if a$=b$ then
print “Odinakovie oteli nomer 1 I nomer 2”, a$, b$
elseif a$=c$ then
print “Odinakovie oteli nomer 1 I nomer 3”, a$, c$
elseif b$=c$ then
print “Odinakovie oteli nomer 2 I nomer 3”, b$, c$
elseif a$=b$=c$ then 'ОШИБКА ТУТ
print “Vse oteli s odinakovimi nazvaniyami”, a$, b$, c$
else
print “ Vse oteli s raznim nazvaniem”
end if
end

Друзья, помогите плиз решить эту задачу, понимаю где ошибка, а как исправить её не пойму!

@Pro_grammer · 14.01.2012, 23:11

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

a$=b$=c$

В Бейсике так не принято!
Надо так :

PureBasic

1
2
3

...
ELSEIF a$=b$ AND b$=c$ THEN 
...

@кот Бегемот · 14.01.2012, 23:26

можно так

PureBasic

1	else if a=b=c

или

PureBasic

1	else if a$=b$=c

но это логические конструкции, где с - логическая переменная, равная 0 или -1

@softmob · 15.01.2012, 00:19

на выбор

PureBasic

INPUT "vvedite nazvanie 1 otelya: ", a$
INPUT "vvedite nazvanie 2 otelya: ", b$
INPUT "vvedite nazvanie 3 otelya: ", c$
IF a$ = b$ AND b$ = c$ THEN
    PRINT "vse oteli s odinakovimi nazvaniyami: "; a$, b$, c$
ELSEIF a$ = b$ AND b$ <> c$ THEN
    PRINT "odinakovie oteli #1 i #2: "; a$, b$
ELSEIF a$ = c$ AND a$ <> b$ THEN
    PRINT "odinakovie oteli #1 i #3: "; a$, c$
ELSEIF b$ = c$ AND a$ <> b$ THEN
    PRINT "odinakovie oteli #2 i #3: "; b$, c$
ELSE
    PRINT "vse oteli s raznim nazvaniem"
END IF

или

PureBasic

INPUT "vvedite nazvanie 1 otelya: ", a$
INPUT "vvedite nazvanie 2 otelya: ", b$
INPUT "vvedite nazvanie 3 otelya: ", c$
IF a$ = b$ THEN
    IF b$ = c$ THEN
        PRINT "vse oteli s odinakovimi nazvaniyami: "; a$, b$, c$
    ELSE
        PRINT "odinakovie oteli #1 i #2: "; a$, b$
    END IF
ELSE
    IF a$ = c$ THEN
        PRINT "odinakovie oteli #1 i #3: "; a$, c$
    ELSE
        IF b$ = c$ THEN
            PRINT "odinakovie oteli #2 i #3: "; b$, c$
        ELSE
            PRINT "vse oteli s raznim nazvaniem"
        END IF
    END IF
END IF

Добавлено через 43 секунды

Сообщение от кот Бегемот

PureBasic

1	else if a$=b$=c

PureBasic

1	else if a=b$=c$

@кот Бегемот · 15.01.2012, 01:01

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

PureBasic

1
2
3

ELSEIF a$ = b$ AND b$ <> c$ THEN PRINT "odinakovie oteli #1 i #2: "; a$, b$
ELSEIF a$ = c$ AND a$ <> b$ THEN PRINT "odinakovie oteli #1 i #3: "; a$, c$
ELSEIF b$ = c$ AND a$ <> b$ THEN

Вторая часть каждого условия (начиная с and) мне кажется излишней, ведь идёт ветвь else

PureBasic

1
2
3

ELSEIF a$ = b$  THEN PRINT "odinakovie oteli #1 i #2: "; a$, b$
ELSEIF a$ = c$  THEN PRINT "odinakovie oteli #1 i #3: "; a$, c$
ELSEIF b$ = c$  THEN

@softmob · 15.01.2012, 01:13

Сообщение от кот Бегемот

Вторая часть каждого условия (начиная с and) мне кажется излишней, ведь идёт ветвь else

ага, не досмотрел

PureBasic

INPUT "vvedite nazvanie 1 otelya: ", a$
INPUT "vvedite nazvanie 2 otelya: ", b$
INPUT "vvedite nazvanie 3 otelya: ", c$
IF a$ = b$ AND b$ = c$ THEN
    PRINT "vse oteli s odinakovimi nazvaniyami: "; a$, b$, c$
ELSEIF a$ = b$ THEN
    PRINT "odinakovie oteli #1 i #2: "; a$, b$
ELSEIF a$ = c$ THEN
    PRINT "odinakovie oteli #1 i #3: "; a$, c$
ELSEIF b$ = c$ THEN
    PRINT "odinakovie oteli #2 i #3: "; b$, c$
ELSE
    PRINT "vse oteli s raznim nazvaniem"
END IF

	15.01.2012, 01:13