IFERR
IFERR ELSE
Bucle
FOR
Programación
IFERR comandos1 THEN comandos2 END;
Ejecuta la secuencia de comandos1. Si se produce algún
error durante la ejecución de comandos1, ejecuta la
secuencia de comandos2.
IFERR comandos1 THEN comandos2 ELSE comandos3
END;
Ejecuta la secuencia de comandos1. Si se produce algún
error durante la ejecución de comandos1, ejecuta la
secuencia de comandos2. De lo contrario, ejecuta la
secuencia de comandos3.
Sintaxis: FOR var FROM inicio TO fin DO comandos END;
Define la variable var para inicio y, siempre que el valor
de esta variable sea inferior o igual a fin, ejecuta la
secuencia de comandos y, a continuación, añade 1
(incremento) a var.
Ejemplo 1: este programa determina cuál de los enteros
entre 2 y N tiene un mayor número de factores.
EXPORT MAXFACTORS(N)
BEGIN
LOCAL cur, max,k,result;
1
max;1
FOR k FROM 2 TO N DO
SIZE(idivis(k))
IF cur > max THEN
cur
max;
k
result;
END;
END;
MSGBOX("Max of "+ max +" factors for
"+result);
END;
result;
cur;
595