Programiranje u BASIC-u/BKontrolne strukture /IF ... THEN ... ELSE: razlika između inačica

Izbrisani sadržaj Dodani sadržaj
Redak 38:
55 IF A<1 OR A> 20 THEN PRINT "Greška u unosu. Upišite broj između 1 i 20" : GOTO 50
60 IF A = B THEN PRINT "Pogodak ! " ELSE PRINT "Ponovo" : GOTO 50
</SOURCE>
Skraćeniji program, jer u QBASICu je moguće sa INPUT ispisati rečenicu i poslje čekati za upis
<SOURCE lang="QBASIC">
10 CLS
20 B = INT(RND*20)+1
30 PRINT "Igra pogađanja"
40 INPUT "Pogodi broj između 1 i 20", A
50 IF A<1 OR A> 20 THEN PRINT "Greška u unosu. Upišite broj između 1 i 20" : GOTO 40
60 IF A = B THEN PRINT "Pogodak ! " ELSE PRINT "Ponovo" : GOTO 40
</SOURCE>