Akcia DO_LOOP, EXIT_LOOP, END_LOOP

Funkcia
Pomocou akcií je možné implementovať cyklus.
Deklarácia
?
[FOR  _ctrlVar [RANGE struct | = lBoundExpr TO uBoundExpr] ] DO_LOOP
  
 ...; akcie 1
  
 [EXIT_LOOP [expression]]
  
 ...; akcie 2
  
 [EXIT_LOOP [expression]]
  
 ...; akcie 3
  
 END_LOOP

Parametre
expression in Výraz typu Bool.

Popis
Cyklus má dva varianty:
  1. Cyklus s riadiacou premennou.
    Na začiatku cyklu je riadiaca premenná nastavená na hodnotu 1 (variant s kľúčovým slovom RANGE) alebo na hodnotu danú výrazom lBoundExpr. Hodnota výrazu musí byť platná. Taktiež sa jedenkrát vyhodnotí horné obmedzenie pre hodnotu riadiacej premennej.
    V prvom prípade (variant RANGE) je to rozmer danej štruktúry (struct\DIM).
    V druhom prípade je horné obmedzenie získané vyhodnotením výrazu uBoundExpr. Hodnota výrazu musí byť platná. Riadiaca premenná cyklu bude pri jednotlivých iteráciách automaticky postupne zvyšovaná až po horné obmedzenie. Riadiaca premenná musí byť deklarovaná typu INT. V tele cyklu je možné ju meniť. Prípadné zneplatnenie jej hodnoty spôsobí chybu za behu pri vykonávaní akcie END_LOOP. Cyklus je možné predčasne ukončiť akciou EXIT_LOOP.
    Po ukončení cyklu má riadiaca premenná hodnotu o 1 väčšiu ako horné obmedzenie.

    ?
    INT _i
    INT _uBound
     
    _uBound := 10
    FOR _i=2 TO _uBound DO_LOOP
      _uBound := _uBound + 1 ; zmena hodnoty nemá vplyv na počet iterácií
    END_LOOP
    ; hodnota premennej _i je 11

    ?
    INT _i
    RECORD (SD.ArchVal) _struct
     
    REDIM _struct[10]
    FOR _i RANGE _struct DO_LOOP
      REDIM _struct[2] ; zmena rozmeru nemá vplyv na počet iterácií
    END_LOOP
    ; hodnota premennej _i je 11


  2. Cyklus bez riadiacej premennej.
    Akcie uzavreté medzi akcie DO_LOOP a END_LOOP budú cyklicky vykonávané. Ukončiť cyklus je možné akciou EXIT_LOOP. Ak je akcia s parametrom, cyklus bude ukončený ak expression nadobudne hodnotu @TRUE.

    ?
    INT _i
     
    _i := 1
    DO_LOOP
      EXIT_LOOP _i = 10
      _i := _i + 1
    END_LOOP

    Ekvivalentný zápis bez podmieneného ukončenia cyklu:

    ?
    INT _i
     
    _i := 1
    DO_LOOP
      IF _i = 10 THEN
        EXIT_LOOP
      ENDIF
      _i := _i + 1
    END_LOOP

Poznámka
Chybný zápis cyklu nastane, ak je jeho začiatok a koniec "prekrížený" s akciou IF THEN.

Napríklad:
 
?
INT _i
_i := 1
 
IF Sec = 1 THEN
  DO_LOOP
ENDIF
  EXIT_LOOP _i = 10
  _i := _i + 1
END_LOOP

 
alebo
 
?
INT _i
 
_i := 1
DO_LOOP
  IF _i = 10 THEN
    EXIT_LOOP
  ENDIF
  _i := _i + 1
IF Sec = 1 THEN
    _i := _i + 1
  END_LOOP
ELSE
  END_LOOP
ENDIF

Súvisiace stránky:

Akcie v skriptoch

Napíšte komentár