Programiranje u BASIC-u/BKontrolne strukture /REPEAT ... UNTIL

Uvod

REPEAT...UNTIL (eng. REPEAT hrv. PONOVI, eng. UNTIL hrv. DOK ) je naredba koja stvara kontrolnu strukturu uvjetne petlje u programu. Kontrolna struktura izvršava jednom i na kraju petlje se vrši ispitivanje

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
   REPEAT
      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
   UNTIL POGODAK=1

Objašnjenje

Prvi

1. 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