La Web del Programador: Comunidad de Programadores
 
    Pregunta:  4690 - CONVERSION
Autor:  Ricardo Lopez
Quisiera saber si alguno de ustedes cuenta con un codigo que convierta un numero x en caracteres, por ejemplo; 5 = cinco, si aulguna persona lo tiene por favor aviseme

  Respuesta:  CARLOS NOE ZELAYA
MIRA YO TENGO UN PROGRAMA QUE HACE EXACTAMENTE LO QUE TU DESEAS SOLO NECESITA DE UNA BASE DE DATOS INDEXZADA Y UNA RUTINA DE UNOS 40 LINEAS PUEDES ESCRIBIRME A MI CORREO PARA YO ENVIERTE EL PROGRAMA POR ESCRITOS Y EL DETALLE DE LA TABLA COMO DE VA A CONSTRUIR... AMI ME DA MUY BUENOS RESULTADOS

  Respuesta:  vikingo ii
definelo como funcion o procedimiento

PARAMETER numero
xunidad=""
xdecena=""
xcentena=""
munidad=""
mdecena=""
mcentena=""
millunidad=""
milldecena=""
millcentena=""
cadmil=""
cadmillon=""
resul=""
DIMENSION unidad(9)
DIMENSION decena(9)
DIMENSION centena(9)
DIMENSION ccentena(9)
DIMENSION dece(9)
DIMENSION raros(15)
STORE "uno" TO unidad(1)
STORE "dos" TO unidad(2)
STORE "tres" TO unidad(3)
STORE "cuatro" TO unidad(4)
STORE "cinco" TO unidad(5)
STORE "seis" TO unidad(6)
STORE "siete" TO unidad(7)
STORE "ocho" TO unidad(8)
STORE "nueve" TO unidad(9)

STORE "diez" TO decena(1)
STORE "veinte" TO decena(2)
STORE "treinta" TO decena(3)
STORE "cuarenta" TO decena(4)
STORE "cincuenta" TO decena(5)
STORE "sesenta" TO decena(6)
STORE "setenta" TO decena(7)
STORE "ochenta" TO decena(8)
STORE "noventa" TO decena(9)

STORE "dieci" TO dece(1)
STORE "veinti" TO dece(2)
STORE "treinta y " TO dece(3)
STORE "cuarenta y " TO dece(4)
STORE "cincuenta y " TO dece(5)
STORE "sesenta y " TO dece(6)
STORE "setenta y " TO dece(7)
STORE "ochenta y " TO dece(8)
STORE "noventa y " TO dece(9)

STORE "1" TO raros(1)
STORE "2" TO raros(2)
STORE "3" TO raros(3)
STORE "4" TO raros(4)
STORE "5" TO raros(52