Pascal/Turbo Pascal - Invertir un numero kpl

   
Vista:

Invertir un numero kpl

Publicado por geovanny (1 intervención) el 04/12/2011 13:16:40
Necesito invertir un numero. Ejemplo: 123 a 321 pero en formato kpl, porque nosotros estamos trabajando con phrogram...porfa ayudenme...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

Invertir un numero kpl

Publicado por Ramon (2072 intervenciones) el 04/12/2011 22:55:54
{De veras de convertirlo a tu sistema no te sera difícil}

program invetnumero;
uses
crt;
var
numero, num2, error, i : integer;
inv, inver : string[12];

procedure inversion(nu : integer); {Invertir el Numero Entrado}
var
long : integer;
begin
writeln('Numero Entrado');
writeln(' ',nu);
writeln;
str(nu, inver); {Convertimos el numero a caracteres}
long := length(inver); {Comprovamos Longitud}
writeln('Numero Invertido');
for i := 1 to long do {}
begin {}
inv[i] := inver[(long + 1) - i]; {Invertimos el Numero}
inv[0] := chr(i); {}
end; {}
val(inv, num2, error); {Convertimos a Numero Invertido}
writeln(' ',num2);
end;

begin
clrscr;
writeln('Entre Numero [0] Por Defecto 123');
readln(numero);
if numero = 0 then
numero := 123;
inversion(numero); {El numero Entrado}
readln;
end.
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