Ecco una vecchia scuola IF per voi, ma c'è un problema

Question

ho un'istruzione IF in QBASIC ... sì ... QBASIC ...

ho insegnato a qualcuno di programmare (ho deciso che questo sarebbe bello e facile vedere come funziona la sintassi).

... Comunque, ho questo codice:

CLS 

start: 
INPUT ">>", a$ 

PRINT a$ 
IF (INSTR(a$, "do you")) THEN 
    IF (INSTR(a$, "like")) THEN 
     IF (INSTR(a$, "cheese")) THEN PRINT "Yep, I like cheese": 
     IF (INSTR(a$, "music")) THEN PRINT "Depends, which genre?": GOTO musicGenre 
    ELSE IF (INSTR(a$, "hate")) THEN 
      IF (INSTR(a$, "cheese")) THEN PRINT "No, I like cheese" 
     END IF 
    END IF 
END IF 


musicGenre: 
INPUT ">>", m$ 
SELECT CASE (m$) 
    CASE "pop" 
     PRINT "..pop! lol, baa baa" 
    CASE "rock" 
     PRINT "Rock is ok" 
END SELECT 
GOTO start 

Ma quando si digita "do you like cheese?" sembra rispondere solo "Yep, I like cheese" ogni altro momento ...

Qualcuno potrebbe gettare un po ' luce su questo?

nota:
"do you like music?" funziona ogni volta ...

nota 2:
Schermata dell'uscita:

Answer 1

Il codice che hai fornito appare corretta .

provare una delle seguenti:

• Se possibile, inviateci un esempio di codice più grande. Immagino che l'errore sia al di fuori del codice che hai fornito.
• Immettere l'input (a$) prima del primo IF per confermare che il codice funzioni con l'input previsto.
• Nella maggior parte delle lingue, FALSE è zero e true è qualsiasi altra cosa. Tuttavia, potresti voler essere più esplicito con il seguente IF (INSTR(a$) > 0).

EDIT: si dovrebbe mettere un goto start su ogni risultato formaggio. In caso contrario, verrà utilizzato il codice musicGenre.

Answer 2

CLS 

start: 
    INPUT ">>", a$ 

    IF (INSTR(1, a$, "do you")) THEN 
     IF (INSTR(1, a$, "like")) THEN 
      IF (INSTR(1, a$, "cheese")) THEN PRINT "Yep, I like cheese" 
      IF (INSTR(1, a$, "music")) THEN PRINT "Depends, which genre?": GOSUB musicGenre 
     END IF 
    IF (INSTR(1, a$, "hate")) THEN 
     IF (INSTR(1, a$, "cheese")) THEN PRINT "No, I like cheese" 
    END IF 
END IF 

GOTO start 
musicGenre: 
    INPUT ">>", m$ 
    SELECT CASE (m$) 
     CASE "pop" 
      PRINT "..pop! lol, baa baa" 
     CASE "rock" 
      PRINT "Rock is ok" 
    END SELECT 
RETURN 

Answer 3

Questo programma mostra l'input di analisi e i gosub in Basic.

REM Cheese progran source: 
CLS 
DO 
    INPUT ">>", a$ 
    a$ = LCASE$(a$) 
    PRINT a$ 
    IF INSTR(a$, "do you") THEN 
     IF INSTR(a$, "like") THEN 
      IF INSTR(a$, "cheese") THEN 
       PRINT "Yep, I like cheese": 
      END IF 
      IF INSTR(a$, "music") THEN 
       PRINT "Depends, which genre?" 
       GOSUB MusicGenre 
      END IF 
     ELSE 
      IF INSTR(a$, "hate") THEN 
       IF INSTR(a$, "cheese") THEN 
        PRINT "No, I like cheese" 
       END IF 
      END IF 
     END IF 
    END IF 
LOOP 
END 
MusicGenre: 
INPUT ">>>", m$ 
a$ = LCASE$(a$) 
SELECT CASE (m$) 
    CASE "pop" 
     PRINT "..pop! lol, baa baa" 
    CASE "rock" 
     PRINT "Rock is ok" 
END SELECT 
RETURN