Ordenar digitos de menor a mayor

[luisito2011]

.... eso de for.. si esta bien.. por que me funciona en vector
.... y tengo que resolver el ejercicio .. utilizando la unit.. que esta arriba..
y no puedo añadir ... o borrar .. nada de la unit...

[luisito2011]

respondan .... porfavor

[[oscarac]]

me he dado cuenta que a nuestro amigo luisito, le han dejado en su centro de estudios varios ejercicios y encima le han dado una libreria con la cual poder resolverlos

entonces (y no quiero ser despectivo ni petulante), creo que es cuestion de pensar y analizar un poquito cual es la solucion (con un martillo no puedo sacar clavos de una madera)

y me uno a lo menciono Roman en otro hilo

[Casimiro Noteví]

Además de que hace falta que le des una releída a nuestra guía de estilo, amigo luisito2011, aquí estamos para ayudar, pero no para hacerle el trabajo a los demás. Si tanto te urge entonces tendrás que buscar a un profesional que te ayude, te pase la minuta, etc.

[luisito2011]

Empezado por Casimiro Notevi

Además de que hace falta que le des una releída a nuestra guía de estilo, amigo luisito2011, aquí estamos para ayudar, pero no para hacerle el trabajo a los demás. Si tanto te urge entonces tendrás que buscar a un profesional que te ayude, te pase la minuta, etc.

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
bye

[[gatosoft]]

Empezado por luisito2011

respondan .... porfavor

No se si reir o llorar...

Bueno luisito...

1) ¿a que te refieres con eso de: "con vector si funciona"?... por que no nos muestras el codigo ejemplo..

2) ¿A que te refieres con que "no funciona"?, te sale error?, te miuestra un numero, pero te lo muestra mal??


3) hice la prueba y efectivamente el ordenamiento sirve... pero veo que el probelma esta en el intercambio que haces en el codigo interno...

Código Delphi [-]
procedure ordenar(var b:cnumeronatural);
var x,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
           x:=b.digito(i);
            b.AsignarValor(b.Digito(I+1)* 10+ x);
          end;
        end;
    end;
end;

Es decir... si has analizado lo que esto hace????

No hay que hacer debug para ver que en cada iteraccion se destruye el numero..!!!

Si tenemos un valor b.Valor ==> 89675 entonces:
x:=8 //en la primera iteraccion
b.Valor==> (9) * 10 + 8 ..!!!

En tu segunda iteraccion vale 98... es decir... 89675 se convirtio en 98...

¿Sabes como hacer un seguimiento paso a paso? podrias valerte de un memo o algo para ver lo que tu codigo esta mostrando...

un saludo.

[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?