Verifique el número primo o no en el programa ABAP

Prefacio – Esta publicación es parte del Programas ABAP .

En este programa, debe tomar la entrada del usuario usando PARÁMETROS y encontrar si es Prime O no. El número que es divisible solo por 1 o por sí mismo se llama número primo, mientras que el número que es divisible por cualquier otro número también aparte de 1 y en sí mismo no es un número primo.
En el programa (Programa de números primos en ABAP) dado a continuación, encontraremos si el número ingresado es primo o no.

PARÁMETROS p_num TIPO int2. DATOS: lv_check TIPO int2 VALOR 2, lv_flag TIPO int1 VALOR 0, lv_length TIPO c. IF p_num EQ 1. MENSAJE '1 no es ni primo ni compuesto' TIPO 'I'. ELSEIF p_num ES INICIAL. MENSAJE 'La entrada no puede estar vacía o 0' TIPO 'I'. DEMÁS. MIENTRAS lv_check <= p_num / 2 . SI ( p_num MOD lv_check ) EQ 0. lv_flag = 1. SALIR. TERMINARA SI. lv_check = lv_check + 1. ENDWHILE. SI lv_flag EQ 0. ESCRIBE 'Principal'. DEMÁS. ESCRIBA 'No primo: compuesto'. TERMINARA SI. TERMINARA SI.

Explicación:

Línea 01: Aquí, definimos un parámetro para tomar una entrada del usuario, la entrada siempre será un número.

Línea 02: Aquí definiremos algunos campos que serán utilizados en el programa más adelante. lv_check se usará para verificar si el número es divisible por cualquier número que sea menor o igual a su mitad o no, lv_flag se usará para establecer la bandera 0 o 1. Flag = 0 significará que el número es primo y 1 significará , el número no es primo. lv_length se utilizará para comprobar la longitud del número.

Línea 03: Aquí comprobaremos si el número es uno o no.

Línea 04: si el número era uno en el paso anterior, mostraremos un mensaje emergente informativo "1 no es ni primo ni compuesto".

Línea 05: Aquí comprobaremos si el número es inicial o no.

Línea 06: si el número era inicial en el paso anterior, mostraremos un mensaje emergente informativo "La entrada no puede estar vacía o 0".

Línea 07: si todas las condiciones anteriores fallan, ejecutaremos las líneas posteriores.

Línea 08: aquí hemos agregado una condición while que se ejecutará hasta que lv_check sea menor o igual a la mitad del número ingresado. Se comprueba, porque un número primo no debe ser divisible a ningún número aparte de sí mismo y del 1. Para comprobarlo lo dividimos por todo el número que es igual o menor que su mitad. Y por qué la mitad, es porque ningún número es divisible por un número mayor que su mitad. Por ejemplo, 10 nunca se puede dividir por 6, es decir, mayor que su mitad, es decir, 5.

Línea 09: Aquí comprobamos si el número es divisible por lv_check o no. Para cada número, lo dividimos de 2 a su mitad con la ayuda de lv_check. Si divide el número, entonces establecemos el indicador 1, de lo contrario, el indicador permanece en 0. Después de cada verificación, incrementamos el valor de lv_check hasta que sea igual a la mitad del número ingresado.

Línea 10 y posteriores: más tarde verificamos si el indicador es 0 o 1. Y, si el indicador permanece en 0, mostramos en la salida 'Prime'; de lo contrario, 'Not Prime: Composite'.

Eso es todo, de esta manera hemos escrito con éxito el programa de números primos en ABAP,

Autor


Comentarios

Deje un comentario

Su dirección de correo electrónico no será publicada. Las areas obligatorias están marcadas como requeridas *

Este sitio usa Akismet para reducir el correo no deseado. Descubra cómo se procesan los datos de sus comentarios.