Programiranje u BASIC-u/BKontrolne strukture /WHILE ... WEND: razlika između inačica
Izbrisani sadržaj Dodani sadržaj
50 WEND </SOURCE> (RND*20)+1 30 PRINT "Igra pogađanja" 40 PRINT "Pogodi broj između 1 i 20" 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 "Pogodak !... |
(Nema razlike inačica)
|
Inačica od 8. siječnja 2012. u 14:02
Uvod
WHILE...WEND (eng. WHILE hrv DOK) je naredba koja stvara kontrolnu strukturu uvjetne petlje u programu. Kontrolna izvršava se samo ako je uvjet istinit, i ispitvanje se izvršava prije ulaska u petlju.
Primjeri
Sjedeći primjeri napisani su u QBASICu, broj linije nije potreban u QBASICU i tu je radi preglednosti i lakšeg objašnjavanja rada programa.
Prvi
<SOURCE lang="QBASIC">
CLS
B = INT(RND*20)+1
PRINT "Igra pogađanja"
POGODAK=0
WHILE POGODAK=0
INPUT "Pogodi broj između 1 i 20", A
IF A<1 OR A> 20 THEN PRINT "Greška u unosu. Upišite broj između 1 i 20"
IF A = B THEN PRINT "Pogodak ! " : POGODAK=1
ELSEIF A<B THEN PRINT "Prenisko, pokušaj opet!"
ELSE PRINT "Previsoko, pokušaj opet!"
END IF
WEND
Objašnjenje
Prvi
- Linija 10 CLS - CLS je engleska skraćenica od Clear Screen (hrv. očisti zaslon): ova komanda briše sve sa ekrana. Ovu komandu ima večina inačica jezika BASIC, za one koje ne posjeduju ovu naredbu brisanje ekrana se postiže ispisivanjem nekih kontrolnih znakova