Tiene la sentencia de control de flujo "ESCAPE TOP", la cual es similar a "continue" en C, o "Continue For" en "Visual Basic.NET 2005", excepto que también funciona dentro de una subrutina para retornar desde la misma y continuar con la siguiente iteración del bucle de proceso.
Como "continue", evita gran número de identaciones cuando se usan bloques anidados de instrucciones dentro de cualquier sentencia de tipo bucle.
Ejemplo con ESCAPE TOP:
DEFINE DATA LOCAL 1 I (N3) /* 3 dígitos, sin decimales END-DEFINE FOR I = 2 TO 100 IF (I / 2 * 2) = I AND I > 2 WRITE 'Número' I 'es divisible entre 2' ESCAPE TOP END-IF IF (I / 3 * 3) = I AND I > 3 WRITE 'Número' I 'es divisible entre 3' ESCAPE TOP END-IF IF (I / 5 * 5) = I AND I > 5 WRITE 'Número' I 'es divisible entre 5' ESCAPE TOP END-IF IF (I / 7 * 7) = I AND I > 7 WRITE 'Número' I 'es divisible entre 7' ESCAPE TOP END-IF IF (I / 11 * 11) = I AND I > 11 WRITE 'Número' I 'es divisible entre 11' ESCAPE TOP END-IF WRITE 'Número' I 'es primo' END-FOR END
Los niveles de sangría pueden ser ajustados automáticamente con el comando STRUCT dentro del Editor de NATURAL.
El mismo ejemplo, sin ESCAPE TOP:
DEFINE DATA LOCAL 1 I (N3) /* 3 dígitos, sin decimales END-DEFINE FOR I = 2 TO 100 IF (I / 2 * 2) = I AND I > 2 WRITE 'Número' I 'es divisible entre 2' ELSE IF (I / 3 * 3) = I AND I > 3 WRITE 'Número' I 'es divisible entre 3' ELSE IF (I / 5 * 5) = I AND I > 5 WRITE 'Número' I 'es divisible entre 5' ELSE IF (I / 7 * 7) = I AND I > 7 WRITE 'Número' I 'es divisible entre 7' ELSE IF (I / 11 * 11) = I AND I > 11 WRITE 'Número' I 'es divisible entre 11' ELSE WRITE 'Número' I 'es primo' END-IF END-IF END-IF END-IF END-IF END-FOR END
nEDIT: Editor gratuito de Natural / Free Natural Editor Software: En español e inglés.
Datos:Q536471
Agosto 13, 2021
natural, lenguaje, programación, natural, lenguaje, cuarta, generación, software, código, programa, hola, mundo, natural, write, hola, mundo, tiene, sentencia, control, flujo, escape, cual, similar, continue, continue, visual, basic, 2005, excepto, también, fu. NATURAL es un lenguaje de cuarta generacion de Software AG Codigo del programa Hola Mundo en NATURAL WRITE Hola Mundo END Tiene la sentencia de control de flujo ESCAPE TOP la cual es similar a continue en C o Continue For en Visual Basic NET 2005 excepto que tambien funciona dentro de una subrutina para retornar desde la misma y continuar con la siguiente iteracion del bucle de proceso Como continue evita gran numero de identaciones cuando se usan bloques anidados de instrucciones dentro de cualquier sentencia de tipo bucle Ejemplo con ESCAPE TOP DEFINE DATA LOCAL 1 I N3 3 digitos sin decimales END DEFINE FOR I 2 TO 100 IF I 2 2 I AND I gt 2 WRITE Numero I es divisible entre 2 ESCAPE TOP END IF IF I 3 3 I AND I gt 3 WRITE Numero I es divisible entre 3 ESCAPE TOP END IF IF I 5 5 I AND I gt 5 WRITE Numero I es divisible entre 5 ESCAPE TOP END IF IF I 7 7 I AND I gt 7 WRITE Numero I es divisible entre 7 ESCAPE TOP END IF IF I 11 11 I AND I gt 11 WRITE Numero I es divisible entre 11 ESCAPE TOP END IF WRITE Numero I es primo END FOR END Los niveles de sangria pueden ser ajustados automaticamente con el comando STRUCT dentro del Editor de NATURAL El mismo ejemplo sin ESCAPE TOP DEFINE DATA LOCAL 1 I N3 3 digitos sin decimales END DEFINE FOR I 2 TO 100 IF I 2 2 I AND I gt 2 WRITE Numero I es divisible entre 2 ELSE IF I 3 3 I AND I gt 3 WRITE Numero I es divisible entre 3 ELSE IF I 5 5 I AND I gt 5 WRITE Numero I es divisible entre 5 ELSE IF I 7 7 I AND I gt 7 WRITE Numero I es divisible entre 7 ELSE IF I 11 11 I AND I gt 11 WRITE Numero I es divisible entre 11 ELSE WRITE Numero I es primo END IF END IF END IF END IF END IF END FOR ENDEnlaces externos EditarNATURALs product home page En ingles Adabas and Natural Developer Community En ingles Free Natural Software for developers En ingles nEDIT Editor gratuito de Natural Free Natural Editor Software En espanol e ingles Datos Q536471Obtenido de https es wikipedia org w index php title Natural lenguaje de programacion amp oldid 130566838, wikipedia, wiki, leyendo, leer, libro, biblioteca,
