Programa para encontrar el Número de Armstrong en ABAP

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

A veces, es necesario saber si el número proporcionado por el usuario es el número de Armstrong. En ese caso, programamos para encontrar el número de Armstrong en ABAP. No es una pregunta que simplemente se hace en una entrevista, sino una palabra clave importante que se usa en la programación del día a día.

Introducción

Número Armstrong es un número cuya suma del cubo del número individual es igual al número entero.

Por ejemplo: 153 = 13 + 53 + 33

Esto se puede lograr en ABAP con la ayuda de loop en ABAP y truncar en ABAP. El programa dado implementa lo mismo:

Programa para encontrar el Número de Armstrong
Número de Armstrong – Ilustración de la imagen

Programa ABAP para encontrar el número de Armstrong

PARÁMETROS: lv_data1(10) tipo p. Datos: lv_digit(10) tipo i, lv_final(1) tipo i, lv_arm(10) tipo i, lv_data2(10) tipo p. lv_datos2 = lv_datos1. while lv_data2 <> 0. lv_digit = lv_data2 MOD 10. lv_arm = lv_arm + (lv_digit * lv_digit * lv_digit). lv_datos2 = trunc( lv_datos2 / 10 ). TERMINO. Si lv_data1 EQ lv_arm. Escriba: 'Es un número de Armstrong'. Más. Escriba: 'No es un número de Armstrong'. TERMINARA SI.

Explicación

En el programa, mencionado anteriormente, hemos escrito un algoritmo matemático. El programa anterior se explica a continuación, paso a paso:

  1. Inicialmente, hemos definido un parámetro lv_data1 de tipo es decir, empaquetado (otra forma de flotante) y longitud 10. Este parámetro se utilizará para tomar la entrada.
  2. Posteriormente, hemos definido cuatro variables: lv_digit, lv_final, lv_arm, lv_data2. Estas variables se utilizarán en el algoritmo discutido en el paso siguiente.
  3. Para saber si el número es un número de Armstrong o no, tendremos que sacar cada número individual de la entrada. Luego, obtenga la suma de su cubo.
  4. Si la suma lograda en el paso anterior es igual al número original, imprimimos 'Es un número de Armstrong'; de lo contrario, imprimimos 'No es un número de Armstrong'.

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.