Ordenar digitos de menor a mayor

[luisito2011]

[quote=gatosoft;398969]No se si reir o llorar...

voj.. si querej reite llora... hace lo que voj queraj..viejo..
nadie nace sabiendo...

quote]

[Casimiro Noteví]

Empezado por luisito2011

nadie nace sabiendo...

Tienes toda la razón, amigo, el problema es que nos parece que no estás haciendo mucho esfuerzo, que estás exponiendo tus problemas un poco superficialmente a la espera de que te lo solucionen. Pero ya te digo, es la sensación que nos da.

Aquí no hay ningún problema en ayudar, al contrario, eso es lo que hacemos todos, para eso existe estos foros, pero la mayoría de esos problemas que nos relata no son "problemas", son cosas que se solucionan poniéndose a seguir paso a paso el código y pensando un poco.
Además que tienes la opción de buscar, hay cientos de miles de posts, también tienes la sección de trucos, y el FTP con muchísimo código, tutoriales, programas, ejemplos, libros, etc.

En fin, no estoy contando nada que no esté escrito en nuestras normas, la guía de estilo.

Saludos.

[[gatosoft]]

Empezado por luisito2011

voj.. si querej reite llora... hace lo que voj queraj..viejo..
nadie nace sabiendo...

Empezado por luisito2011

no pue.. si yo quisiera que me resuelvan todo.. les pongo todos ejercicios... que me dieron.... de los 50.. son como 10 o 5..que me parte la cabeza..ademaj... solo posteo.. los que.. no le entiendo..
y solo les pedi...una ayuda... ni modo graciaj de todoj modos

Es cierto que nadie nace sabiendo, pero no puedes negar que hemos intentado ayudarte en este hilo... Así como en otros que has posteado...

Ya en un hilo pasado habia pasado algo parecido contigo, y apoyo el comentario de casimiro cuando dice

nos parece que no estás haciendo mucho esfuerzo

Entendemos que estas empezando, pero parece que no has entendido la mecanica del club... (Es por eso que cada tanto te remiten a visitar la guia de estilo)

Vaya amigo, ya tienes un buen numero de post en este sitio, otros han abandonado ante la primera insinuación de "visitar la guia de estilo"... Te invito a que continues, pero por favor intenta tambien comprender que estamos aqui por que nos gusta ayudar y no por que tengamos que hacerlo... desde ese punto de vista no sobra un "por favor" y un gracias" pero de corazón.

y bueno, ya volviendo sobre tu tema, te repito mi teoria sobre la causa del error:

está en las líneas:

Código Delphi [-]
x:=b.digito(i);
b.AsignarValor(b.Digito(I+1)* 10+ x);

Debes generar un procedimeitno para reemplazar un digito dentro del número:

Código Delphi [-]
x:=b.digito(i);
b.ReemplazarDigito(I   , b.digito(i+1));
b.ReemplazarDigito(I+1, x);

Un saludo,

[luisito2011]

mmm bueno eso del esfuerzo... si lo hago..
solo que si.. lo acepto es como si no lo haga...

//beuno dejando eso aparte.. aca resolvi mi problema... solo
que solo me funciona con 8 digitos..cuando pongo mas de 9.. error..//

me pueden decir por que...

Código Delphi [-]
 
procedure ordenar(var b:cnumeronatural);
var veces,i:integer;
begin
  for veces  := 1 to(b.NumeroDigitos - 1) do
    begin
      for i := 1 to (b.NumeroDigitos - veces) do
          begin
          if b.Digito(i) > b.Digito(I+1) then
          begin
            b.InsertarDigito(i,b.Digito(i+1));
            b.ObtenerValor;
             b.EliminarDigito(i+2);
          end;
        end;
    end;
end;

[Casimiro Noteví]

Empezado por luisito2011

[..]
que solo me funciona con 8 digitos..cuando pongo mas de 9.. error..//
[..]

¿Y qué error es?

[beginner01]

saludos.

porque no usas la propiedad invertir?

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils,caja1;

 
 var a:cnumeronatural;
 X:integer;
 begin
  a:=cnumeronatural.crear;
  Writeln('Digite un Numero');
  Readln(x);
  a.AsignarValor(x);
  a.Invertir;
  writeln('Numero Ordenado De Menor a Mayor ',a.obtenervalor);
  readln;
 end.

[luisito2011]

el error que me sale.. es // fuera de rango//

[luisito2011]

Empezado por beginner01

saludos.

porque no usas la propiedad invertir?

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils,caja1;
 
 
 var a:cnumeronatural;
 X:integer;
 begin
  a:=cnumeronatural.crear;
  Writeln('Digite un Numero');
  Readln(x);
  a.AsignarValor(x);
 a.Invertir;
  writeln('Numero Ordenado De Menor a Mayor ',a.obtenervalor);
  readln;
 end.

No pue si uso el metodo invertir.. solo me sirve para los digitos
ordenados como 98765.. o 654321..

//Y sobre el error .. me sale fuera de rango..//
/

[ecfisa]

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;

Y digo 'tendría' por que así lo haría si el método InsertarDigito funcionara como se espera...

Como un ejemplo vale más que mil palabras, intentemos llenar los 6 dígitos de una cifra con ceros:

Código Delphi [-]
var
  N: TNumeroNatural;
  i: Integer;
begin
  N:= TNumeroNatural.Crear;
  N.AsignarValor(123456);
  for i:= 1 to 8 do
    N.InsertarDigito(i,0);
  ShowMessage(IntToStr(N.ObtenerValor));   
end;

Seguro que esperabas ver: 000000, pero por suerte la programación nunca deja de sorprendernos...
El resultado es: 3569126384

Un saludo.