Pascal/Turbo Pascal - Invertir un numero sin usar arreglos

   
Vista:

Invertir un numero sin usar arreglos

Publicado por Ramiro (1 intervención) el 26/11/2007 23:44:51
diseñe un algoritmo que perimita Invertir un numero sin usar arreglos por ejemplo si se digita 364 deberia quedar 463, 9784 se debe aroojar 4879.
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:Invertir un numero sin usar arreglos

Publicado por Mariano (57 intervenciones) el 26/11/2007 23:59:25
Hola, mira para hacerlo , lo que se me ocurre mas rapido y que es facil de hacer es
utlizar la funcion DIV
Seria asi: pongamos x ej el numero 364

si haces 364 div 100 esto es = a 3, por lo tanto en otra variable guardas ese numero
dps, al num le restas 300 y t qda 64.
Nuevamente haces div 10 y t qda 6, y lo volves a guardar en otra variable, y con num mod 10 t qda 4.
d esa manera guardaste los cuatro numeros. lo unico q t qda es multiplicar por 100 el 4, por 10 el 6 y sumar directamente el 3. y asi el numero te qda invertidoo!

Cualquier cosa si no t sale la codificacion, t doy una mano!

Un abrazoo!!
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:Invertir un numero sin usar arreglos

Publicado por Laysquad (47 intervenciones) el 27/11/2007 01:09:21
Hola que tal^^ hey mariano, creo que se la has puesto un poco dificil, no lo crees, a mi se me ocurrion una idea mas sencilla. mira:

1. declara 4 variables,
a) numero, numero2
b) cadena1
c) cadena2

2), pides el numero y lo conviertes en cadena con la funcion str(numero,cadena1) ;

3) has esto : for x := length(cadena1) downto 0 do cadena2 := cadena2 + cadena1[x] ;

4) ahora conviertes cadena2 en numero con la funcion val(cadena2,numero,numero2) ;
{numero 2 solo te sirve para la verificación que no importa mucho jeje}

y ya está, eso es todo
espero que te sirva si tienes dudas avisame ok^^. Saludos^^.
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:Invertir un numero sin usar arreglos

Publicado por daniel danielvega_2008@yahoo.com (1 intervención) el 06/06/2011 06:18:50
hola disculpen necesito invertir un numero osea ingresamos el numero 123 y al invertir sale 321 pero usando funcion recursiva o rcursividad en visual basic
porfis respondan lo mas rapido q puedan sii :/
es un deber y no se como hacerlo xq no hemos visto esto :/
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:Invertir un numero sin usar arreglos

Publicado por Diego Romero (997 intervenciones) el 27/11/2007 02:48:50
Debe ser downto 1 y no downto 0 ;)
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:Invertir un numero sin usar arreglos

Publicado por Laysquad (47 intervenciones) el 27/11/2007 02:51:33
perdon tienes razon es hasta 1 lo siento
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:Invertir un numero sin usar arreglos

Publicado por Mechanic (181 intervenciones) el 27/11/2007 02:52:48
Lo que dice Diego Romero es por lo siguiente:

Porque la celda de memoria cadena1[0] se usa para almacenar la longitud del valor real de cadena, y se almacena en forma de caracter,
O sea que cuando cadena tiene un valor Juan, cadena1[0] almacenará el caracter cuyo valor ASCII es 4.

Las variables Numero y X, mejor que sean LongInt (bueno esto es solo para que el usuario pueda ingresar un número con más de 5 cifras).
Saludos!
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:Invertir un numero sin usar arreglos

Publicado por KEVIN WALDO (1 intervención) el 25/03/2009 00:38:10
Tengo una parecido, aunque creo que es mas rapido:

VAR: a: integer;
begin
writeln('dame un numero de 2 cifras')
readln(a);
writeln('el numero invertido es: ', a MOD 10, a DIV 10);

Eso seria todo, si entienden por que DIV y MOD?
Ej: 50 div 10= 5 Y 50 mod 10= 0
Solo hay que escribir primero el mod y luego el DIv.

PD: tambien tengo uno de 3 cifras, por si les interesa.

Saludos
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:Invertir un numero sin usar arreglos

Publicado por daniel (1 intervención) el 02/11/2009 17:50:23
me interesa el de tres cifras y uno para invertir palabras ok gracias
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:Invertir un numero sin usar arreglos

Publicado por Gabriela (1 intervención) el 13/02/2011 22:15:38
Ajá, y para numeros enteros sin limite de cifras?... como podría ser? :)
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:Invertir un numero sin usar arreglos

Publicado por marisol (1 intervención) el 11/02/2013 16:08:56
muy buena solucion a mi problema gracias me sirvio de mucho ok gracias :)
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:Invertir un numero sin usar arreglos

Publicado por Diana Contreras (1 intervención) el 09/05/2013 02:59:57
hola me interesa el inverso de 3 cifras porfaaa!!
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:Invertir un numero sin usar arreglos

Publicado por Andres (1 intervención) el 30/05/2014 03:27:43
Gracias me has salvado de un examen :9
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:Invertir un numero sin usar arreglos

Publicado por mery (2 intervenciones) el 08/04/2010 01:04:58
me puede ayudar con el programa para saber si un numero es capicua o no por la atencion prestada reciba un cordial saludo
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:Invertir un numero sin usar arreglos

Publicado por mery (2 intervenciones) el 08/04/2010 01:17:51
me puede ayudar con el programa para saber si un numero es capicua o no por la atencion prestada reciba un cordial saludo
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:Invertir un numero de 4 cifras en free pascal

Publicado por dora (2 intervenciones) el 10/11/2011 08:30:38
tengo una tarea urgente por fa, como puedo Invertir un numero de 4 cifras en free pascal
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:Invertir un numero sin usar arreglos

Publicado por mariana (1 intervención) el 24/01/2013 21:02:41
explicate biennnn
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

Publicado por reinaldo reinaldo_101010@hotmail.es (1 intervención) el 05/05/2016 01:46:41
lo que yo quisiera es invertir este numero

n:=50 y el resultado es ==> 05
si alguien me podria ayudar ..........
gracias
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 sin usar arreglos

Publicado por anonimo (1 intervención) el 24/11/2011 19:44:04
Ingresar n

//Proceso
while (n>0){
d=n%10
n=n/10
i=i*10+d
}
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