...
| Blok kódu | ||||
|---|---|---|---|---|
| ||||
LOOP_TEMPLATE_START #LOOP_TEMPLATE_PAR#, low_range, high_range
;ľubovolný kód, ktorý môže obsahovať #LOOP_TEMPLATE_PAR# ako index, napr. pre implementáciu sumy
_sum := _sum + H.Struct[#LOOP_TEMPLATE_PAR#]^Current
LOOP_TEMPLATE_END
|
...
| Blok kódu | ||||
|---|---|---|---|---|
| ||||
INIT
REAL _sum
LOOP_TEMPLATE_START #LOOP_TEMPLATE_PAR#, 1, H.Struct
IF H.Struct[#LOOP_TEMPLATE_PAR#]^Current\VLD THEN
_sum := _sum + H.Struct[#LOOP_TEMPLATE_PAR#]^Current
ENDIF
LOOP_TEMPLATE_END
FINALLY
_sum |
...
| Blok kódu | ||||
|---|---|---|---|---|
| ||||
INIT
REAL _max
_max := H.Struct[1]^Voltage ; inicializacia (predpokladáme, že štruktúra má aspoň 1 riadok)
LOOP_TEMPLATE_START #LOOP_TEMPLATE_PAR#, 1, H.Struct
IF H.Struct[#LOOP_TEMPLATE_PAR#]^Voltage\VLD & H.Struct[#LOOP_TEMPLATE_PAR#]^Voltage > _max THEN
_max := H.Struct[#LOOP_TEMPLATE_PAR#]^Voltage
ENDIF
LOOP_TEMPLATE_END
FINALLY
_max |
...