FoxPro/Visual FoxPro - invertir un numero de 4 cifras

   
Vista:
Imágen de perfil de Jennipher

invertir un numero de 4 cifras

Publicado por Jennipher jennipherbardales@gmail.com (5 intervenciones) el 09/03/2014 03:43:40
hola que tal? me pueden ayudar con una tarea es hacer un programa en visual foxpro q tome como entrada una cantidad de 4 cifras y devuelva como respuesta el numer alreves (inverso) porfavor ayudenme si contestenme
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
Imágen de perfil de Jennipher

invertir un numero de 4 cifras

Publicado por Jennipher (5 intervenciones) el 09/03/2014 04:06:19
solo ocupo un empujoncito ayudenme ustedes pueden
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
Imágen de perfil de Jennipher

invertir un numero de 4 cifras

Publicado por Jennipher (5 intervenciones) el 09/03/2014 04:16:26
hola alguien me puede ayudar porfavor solo ocupo como haria la formula ya hice para unidad, decena, unidad de millar, pero no se como hacer para la centena ayudenme
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

invertir un numero de 4 cifras

Publicado por Fidel José (558 intervenciones) el 09/03/2014 14:57:44
Te comento una forma sencilla de hacer eso en Visual FoxPro
Puedes poner el código siguiente en un prg, en un método de usuario de un form, o en una clase custom. También puedes hacer una clase Container con todo lo necesario.

Suponiendo que agregas el código a un prg, tenemos

lnEntero=18432495
lnFlag=0

lnResp=InvertirNumero( lnEntero , lnFlag )

? lnResp -> 59423481

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
PROCEDURE InvertirNumero
LPARAMETERS xnInterger,xnFlag
* --------------------------------------
* xnInterger es un número entero
* xnInterger puede ser String o Numeric
* Si xnFlag=0, devuelve un numeric
* Si xnFlag=1, devuelve un String
* --------------------------------------
IF VARTYPE(xnFlag)#"N"
	xnFlag=0
ENDIF
IF !BETWEEN(xnFlag,0,1)
	xnFlag=0
ENDIF
 
LOCAL lcInterger, lcRespuesta,i
STORE "" TO lcRespuesta
 
DO CASE
	CASE VARTYPE(xnInterger)$'NI'
		lcInterger=TRANSFORM(xnInterger)
	CASE VARTYPE(xnInterger)="C"
		lcInterger=ALLTRIM(xnInterger)
	OTHERWISE
		RETURN IIF(EMPTY(xnFlag),0,"")
ENDCASE
 
FOR i=LEN(lcInterger) TO 1 STEP -1
	lcRespuesta=lcRespuesta+SUBSTR(lcInterger,i,1)
ENDFOR
 
RETURN IIF(xnFlag=0,VAL(lcRespuesta),lcRespuesta)
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
Imágen de perfil de Jennipher

invertir un numero de 4 cifras

Publicado por Jennipher (5 intervenciones) el 09/03/2014 23:30:34
gracias fidel por su ayuda, lastima no esta en linea para preguntarle una duda es q realmente eso de programacion me cuesta un universo y realmente si quiero aprender pero es que se me dificultad mucho gracias otra vez
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

invertir un numero de 4 cifras

Publicado por Fidel José (558 intervenciones) el 10/03/2014 15:42:30
Jennipher, solamente tienes que escribir tus dudas.
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
Imágen de perfil de Jennipher

inverso de 4 cifras

Publicado por Jennipher (5 intervenciones) el 16/03/2014 02:35:43
hola que tal fidel supongo que no esta en linea verdad
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

inverso de 4 cifras

Publicado por Fidel José (558 intervenciones) el 16/03/2014 17:52:51
No Jennipher. No estoy en linea. No sé como se estaría en línea en este foro. Lo que te recomiendo es que abras otro hilo con las dudas que tengas. O si quieres ver otro foro, un poco más activo, te recomiendo el que pongo abajo:
https://groups.google.com/forum/?fromgroups#!forum/publicesvfoxpro
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