Programiranje u BASIC-u/BKontrolne strukture /IF ... THEN ... ELSE: razlika između inačica
Izbrisani sadržaj Dodani sadržaj
m →Drugi |
|||
Redak 5:
IF odnosno ako, po zadovoljavanju tog uslova poslje riječi THEN postavlja se naredba koja se izvršava. Alternativno, ako glavna logička ispitna točka je negativna tada se naredba iza THEN ne izvršava, i tok izvedbe programa ide na liniju iza naredbe IF ... THEN, osim u slučaju da je postavljena naredba ELSE gdje se tok programa nastavlja poslje naredbe ELSE. Unutar ELSE moguće je ugnjezditi i nova naredba za logički ispit IF ... THEN ... ELSE, itd. U nekim izvedbama BASICa, ako se koriste složenije odnosno ugnježdene naredbe IF THEN ELSE, tada je potrebno završavati svaki stupanj IF THEN ELSE sa ENDIF, ili sa ENDIF. U nekim slučajevima ako se koristi naredba IF poslje ELSE, tada je potrebno napisati ELSEIF. Za ove varijacije potrebno je pregledati upute za izvedbu BASICa koji se koristi.
==
===Prvi===
Redak 19:
<SOURCE lang="QBASIC">
10 CLS
20
30 PRINT "
40 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>
===Treći===
<SOURCE lang="QBASIC">
10 CLS
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 ! " ELSE PRINT "Ponovo" : GOTO 50
</SOURCE>
| |||