Programación General > ABAP

 Decimal A Binario En Abap

<< < (3/3)

Blag:
Así:


--- Código: Text --- SELECTION-SCREEN BEGIN OF BLOCK BLOCK.PARAMETERS:     NUMERO  TYPE I,SELECTION-SCREEN END OF BLOCK BLOCK.  
Saludos,

Blag  :devil:

RadicalEd:
Cual de las 2 preguntas es???.
Mira he hecho esto:

--- Código: Text ---REPORT FACTORIAL.DATA: FACT TYPE I,      ICICLO TYPE I.SELECTION-SCREEN BEGIN OF BLOCK BLOCK.PARAMETERS:      XCAPT TYPE I.SELECTION-SCREEN END OF BLOCK BLOCK.START-OF-SELECTION.FACT = 1.WHILE XCAPT GE 1.FOR ICICLO = 1 TO XCAPT.  FACT = ICICLO * FACT.ENDFORPERFORM FACTORIAL USING FACT.ENDWHILEFOR FACTORIAL USING FACT. WHILE:/'EL FACTORIAL DE: ',XCAPT,' ES: ',FACT.ENDFORM 

Blag:
Bueno.....no está mal  :hola:  pero en ABAP, no existe el FOR  :blink:

 :o  Me acabo de dar cuenta de que me preguntaste por los ciclos  :lol: , puedes utilizar....


--- Código: Text --- DO N TIMES.ENDDO. WHILE.ENDWHILE.  
Aquí está el programa resuelto  :comp:


--- Código: Text --- ****************************************************** Programa : Z_ATG_DUMMY                            ** Consultor ABAP : Alvaro Tejada Galindo            ** Descripción: Programa de Ejemplo de ABAP          ****************************************************** REPORT Z_ATG_DUMMY. DATA: FACT TYPE I,      ICICLO TYPE I. SELECTION-SCREEN BEGIN OF BLOCK BLOCK.PARAMETERS:     XCAPT TYPE I.SELECTION-SCREEN END OF BLOCK BLOCK. START-OF-SELECTION.  FACT = 1.   DO XCAPT TIMES.    ICICLO = ICICLO + 1.    FACT = ICICLO * FACT.  ENDDO.  PERFORM FACTORIAL USING FACT. *---------------------------------------------------------------------**       FORM FACTORIAL                                                **---------------------------------------------------------------------**       Obtiene el factorial                                          **---------------------------------------------------------------------*FORM FACTORIAL USING FACT.  WRITE:/'EL FACTORIAL DE: ',XCAPT,' ES: ',FACT.ENDFORM.  
Saludos,

Blag  :smartass:

Navegación

[0] Índice de Mensajes

[*] Página Anterior

Ir a la versión completa