Cita:
Hola Luisito.
Este método 'tendría' que ordenarte lenta pero correctamente los dígitos de menor a mayor:
Código Delphi [-]
procedure CNumeroNatural.Ordenar;
var
i,j:integer;
a: Byte;
begin
for i:= 1 to NumeroDigitos do
for j := i+1 to NumeroDigitos do
if Digito(i) > Digito(j) then
begin
a:= Digito(i);
InsertarDigito(i,Digito(j));
InsertarDigito(j,a);
end;
end;
Un saludo
|
mmm.. si te das cuenta.. cuando uso el metodo.. de insertar digito
no remplaza al digito...
ejem... si quiero ordenar esto 54.. solo 2 numeros
mi respuesta sera esto 445554.. eso es con tu procedure..
por eso en mi procedure.. utilize .. eliminardigito... pero solo me funciona con 8 digitos...