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

Izbrisani sadržaj Dodani sadržaj
Redak 12:
20 A$ = INKEY$
30 IF A$ = "" THEN GOTO 20
</SOURCE>
 
 
==Drugi==
 
<SOURCE lang="QBASIC">
10 CLS
20 PRINT "Igra pogađanja"
30 PRINT "Pogodi broj između 1 i 20"
40 B = INT(RND*20)+1
50 INPUT A
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 "Previsoko, pokušaj opet !": GOTO 50
70 IF A < B THEN PRINT "Prenisko, pokušaj opet !" : GOTO 50
80 IF A = B THEN PRINT "Pogodak ! "
</SOURCE>