Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Dev - C++ » Rutina Convertir Numeros a Texto

Dev - C++ - Rutina Convertir Numeros a Texto

Volver
Nuevo Tema
<<>>
 
Vista:

Rutina Convertir Numeros a Texto

Publicado por Add (1 intervención) el 19/04/2002 19:14:55
Les agradecería a alguien que tenga una rutina que permita ingresar un numero de varios digitos y luego se vea expresado en letras.
Ej: Input: 1575 Output: Mil quinientos setenta y cinco

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Rutina Convertir Numeros a Texto

Publicado por Jesus Barragan Vesga (1 intervención) el 15/05/2002 16:44:10
No soy un experto en visual C++, conozco más o menos el Turbo C y referente a tu problema, se me ocurre (repito turbo C), que podrias primero tener en cuenta la ubicacion del digito, es decir 0 para unidades 1 para decenas, 2 centenas etc y luego mediante un Switch case asignarle el valor en letras correspondiente a una cadena de caracteres, por ejemplo en numero 1575 , el primer un es posicion tre, y mediante un switch case le asignar el valor de mil. es una idea..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Rutina Convertir Numeros a Texto

Publicado por Angel Toasa (1 intervención) el 02/02/2010 17:56:59
por favor necesito un programita en c ++ que me permita transformar de numeros a letra tambien corregir errores de ingreso de letra y llegar al menu necesito saber como me pueden ayudar por favor gracias estare muy agradecido
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Rutina Convertir Numeros a Texto

Publicado por cesar armando (2 intervenciones) el 01/07/2002 19:48:42
por favor necesito que me ayude con el funte para convertir un numero entero a numeros romanos, pero solo puede cojer hacta cuatro digitos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Rutina Convertir Numeros a Texto

Publicado por jose (1 intervención) el 30/01/2008 19:39:38
este es el codigo para convertir numeros a letras en BV

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Function Num2Text(ByVal value As Double) As String
    Select Case value
        Case 0 : Num2Text = "CERO"
        Case 1 : Num2Text = "UN"
        Case 2 : Num2Text = "DOS"
        Case 3 : Num2Text = "TRES"
        Case 4 : Num2Text = "CUATRO"
        Case 5 : Num2Text = "CINCO"
        Case 6 : Num2Text = "SEIS"
        Case 7 : Num2Text = "SIETE"
        Case 8 : Num2Text = "OCHO"
        Case 9 : Num2Text = "NUEVE"
        Case 10 : Num2Text = "DIEZ"
        Case 11 : Num2Text = "ONCE"
        Case 12 : Num2Text = "DOCE"
        Case 13 : Num2Text = "TRECE"
        Case 14 : Num2Text = "CATORCE"
        Case 15 : Num2Text = "QUINCE"
        Case Is < 20 : Num2Text = "DIECI" & Num2Text(value - 10)
        Case 20 : Num2Text = "VEINTE"
        Case Is < 30 : Num2Text = "VEINTI" & Num2Text(value - 20)
        Case 30 : Num2Text = "TREINTA"
        Case 40 : Num2Text = "CUARENTA"
        Case 50 : Num2Text = "CINCUENTA"
        Case 60 : Num2Text = "SESENTA"
        Case 70 : Num2Text = "SETENTA"
        Case 80 : Num2Text = "OCHENTA"
        Case 90 : Num2Text = "NOVENTA"
        Case Is < 100 : Num2Text = Num2Text(Int(value  10) * 10) & " Y " & Num2Text(value Mod 10)
        Case 100 : Num2Text = "CIEN"
        Case Is < 200 : Num2Text = "CIENTO " & Num2Text(value - 100)
        Case 200, 300, 400, 600, 800 : Num2Text = Num2Text(Int(value  100)) & "CIENTOS"
        Case 500 : Num2Text = "QUINIENTOS"
        Case 700 : Num2Text = "SETECIENTOS"
        Case 900 : Num2Text = "NOVECIENTOS"
        Case Is < 1000 : Num2Text = Num2Text(Int(value  100) * 100) & " " & Num2Text(value Mod 100)
        Case 1000 : Num2Text = "MIL"
        Case Is < 2000 : Num2Text = "MIL " & Num2Text(value Mod 1000)
        Case Is < 1000000 : Num2Text = Num2Text(Int(value  1000)) & " MIL"
            If value Mod 1000 Then Num2Text = Num2Text & " " & Num2Text(value Mod 1000)
        Case 1000000 : Num2Text = "UN MILLON"
        Case Is < 2000000 : Num2Text = "UN MILLON " & Num2Text(value Mod 1000000)
        Case Is < 1000000000000.0# : Num2Text = Num2Text(Int(value / 1000000)) & " MILLONES "
            If (value - Int(value / 1000000) * 1000000) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000) * 1000000)
        Case 1000000000000.0# : Num2Text = "UN BILLON"
        Case Is < 2000000000000.0# : Num2Text = "UN BILLON " & Num2Text(value - Int(value / 1000000000000.0#) * 1000000000000.0#)
        Case Else : Num2Text = Num2Text(Int(value / 1000000000000.0#)) & " BILLONES"
            If (value - Int(value / 1000000000000.0#) * 1000000000000.0#) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000000000.0#) * 1000000000000.0#)
    End Select
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Rutina Convertir Numeros a Texto

Publicado por WENDY  (1 intervención) el 23/05/2008 11:44:02
HOLA SOY WENDY NECESITO UN PROGRAMA EN LENGUAJE C QUE CONVIERTA NUMEROS A LETRAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar