CODIGOS GRATIS

                                     CODIGO EN LPP

FACTORIAL DE NUMEROS EN LPP
AUTOR:FRANK ANTONIO PIÑIN ATO
FECHA : 26/10/2017



ENTERO N // EL NUMERO
ENTERO J,FACT
CARACTER RPTA
inicio
    RPTA <- 'S' // VALOR INI9CCIAL PARA QUE ENTRE
    MIENTRAS (RPTA = 'S')O ( RPTA = 's' ) HAGA
 
         LLAMAR LIMPIAR_PANTALLA()
     N <- -1//PARA QUE ENTRE LA PRIMERA VEZ
     LLAMAR COLOR_TEXTO(11)//CELESTE
     MIENTRAS (N < 0)HAGA
     LLAMAR NUEVA_LINEA()
     ESCRIBA "INFGRESE UN NUMERO ENTERO (NO NEGATIVO):"
     LEA N
     SI  (N < 0) ENTONCES
         LLAMAR NUEVA_LINEA()
         LLAMAR COLOR_TEXTO(12)//ROJO
         ESCRIBA "ERROR.NO EXISTE FACTOPRIAL DE NEGATIVOS."
         LLAMAR COLOR_TEXTO(11)//CELESTE
     FIN SI
      FIN MIENTRAS
      //AL SALIR DE MIENTRAS "N" YA TINE UN AVALOR POSITIVO
      FACT <- 1 // EL ACUMULADOR DE MULTIPLICACIIONES
      PARA J <- 1 HASTA N HAGA
           FACT <- FACT * J
      FIN PARA
      // MOSTRAR ELÑ RESAULTADO
      LLAMAR NUEVA_LINEA()
      ESCRIBA "EL FACTORIAL DE ", N ," ES:", FACT
      LLAMAR NUEVA_LINEA()
      LLAMAR NUEVA_LINEA()
      ESCRIBA "DESEA CONTINUAR (S/N):?"
      LEA RPTA
FIN MIENTRAS   
     
   
final