-
ENDIF x = 1 DO
WHILE x < 50 x = x + 1
ENDDO x = 1 DO
WHILE .T. x = x + 1 IF x < 50 LOOP ELSE EXIT
ENDIF ENDDO nMonth = MONTH(DATE()) DO CASE CASE nMonth...
- 1)*2
enddo This does not mean that the code
cannot be parallelized. Indeed, it is
equivalent to the
DOALL loop do i = 2, n z(i) = z(1)*2**(i - 1)
enddo However...
-
ENDROUTINE or DO..
ENDDO etc. One
feature that sets it
apart from some
other languages is the
construction of loops: DO .... loop statements...
ENDDO Hopefully...
-
these basic structured programming constructs: IF...ELSEIF...ENDIF, DO...
ENDDO, FOR...ENDFOR, and CASEOF...CASE...ENDCASE
statements that transliterated...
- line numbers, and does not
support newer features such as WHILE/WEND, DO/
ENDDO, WITH/END WITH, procedures, properties, and so forth.
BASIC interpreters...
- TOFMT(*JUL) TOSEP(*NONE)
ENDDO ELSE IF (&TYP = M) + DO
CVTDAT DATE(&IN) TOVAR(&OUT) FROMFMT(*JUL) + TOFMT(*MDY) TOSEP(*NONE)
ENDDO SNDPGMMSG MSG('IN=' ||...
- FermatSieve(N, a, aend,
astep * modulus, NextModulus)
endif a ← a +
astep enddo But the
recursion is
stopped when few a-values remain; that is, when (aend-astart)/astep...
-
Fortran 77:
final keyword is END +
initial keyword e.g., IF ... ENDIF, DO ...
ENDDO Modula-2: same
final keyword END for
everything Visual Basic:
every control...
- line numbers, and does not
support newer features such as WHILE/WEND, DO/
ENDDO, WITH/END WITH, procedures, properties, and so forth.
BASIC statements are...
-
WHILE (condition) instructions
ENDDO DO instructions IF (condition) EXIT
ENDDO DO I = first,last instructions
ENDDO —
Forth BEGIN «instructions» condition...
