Pascal/Turbo Pascal - Invertir un numero sin usar arreglos

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.

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!!

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^^.

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 :/

Debe ser downto 1 y no downto 0 ;)

perdon tienes razon es hasta 1 lo siento

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!

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

me interesa el de tres cifras y uno para invertir palabras ok gracias

Ajá, y para numeros enteros sin limite de cifras?... como podría ser? :)

muy buena solucion a mi problema gracias me sirvio de mucho ok gracias :)

hola me interesa el inverso de 3 cifras porfaaa!!

Gracias me has salvado de un examen :9

me puede ayudar con el programa para saber si un numero es capicua o no por la atencion prestada reciba un cordial saludo

me puede ayudar con el programa para saber si un numero es capicua o no por la atencion prestada reciba un cordial saludo

tengo una tarea urgente por fa, como puedo Invertir un numero de 4 cifras en free pascal

explicate biennnn

lo que yo quisiera es invertir este numero

n:=50 y el resultado es ==> 05
si alguien me podria ayudar ..........
gracias

Ingresar n

//Proceso
while (n>0){
d=n%10
n=n/10
i=i*10+d
}