Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-02-2010
Avatar de lily21
lily21 lily21 is offline
Miembro
 
Registrado: nov 2009
Ubicación: Cuba, La Habana
Posts: 13
Poder: 0
lily21 Va por buen camino
Incremento de los digitos de un numero

hola, como puedo hacer para incrementar los digitos de un numero hasta 9 veces, por ejemplo :

si tengo: 123456 seria:
234567
345678
456789
567890
678901
789012
890123
801234
912345
muchas gracias para quien pueda ayudarme ...
saludos
Responder Con Cita
  #2  
Antiguo 09-02-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 23
Caro Va por buen camino
Hola lily21, tendría que ser algo como esto:

Código Delphi [-]
 Indice := 1; 
 digito := numero mod 10;
 if digito<9 then
  numaux := digito+1
 else
  numaux := 0;
 
  numaux := numaux + digito * Power(10,Indice);
 
  while numero>0 do
  begin
   Inc(Indice);
   numero := numero div 10;
   digito := numero mod 10;
   if Length(IntToStr(numero))>1 then
    numaux := numaux  + digito * Power(10,Indice);
  end;

Puedes cambiar la funciíon Length por una que te hagas para contar digitos así no conviertes a String, el resultado esta en numaux, ahora para las 9 veces usas un for con el codigo de arriba, mejor aún si ese codigo lo colocas en una función .

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #3  
Antiguo 09-02-2010
Avatar de lily21
lily21 lily21 is offline
Miembro
 
Registrado: nov 2009
Ubicación: Cuba, La Habana
Posts: 13
Poder: 0
lily21 Va por buen camino
gracias , disculpa mi falta de conocimientos , pero me puedes decir que hace la funcion power??

saludos
Responder Con Cita
  #4  
Antiguo 09-02-2010
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Poder: 18
rgstuamigo Va por buen camino
Arrow

Cita:
Empezado por lily21 Ver Mensaje
gracias , disculpa mi falta de conocimientos , pero me puedes decir que hace la funcion power??

saludos
Es una funcion matemática exponencial que está en la unidad Math(la cual debes incluir en la seccion del Uses) que eleva un numero(Base) a otro numero(exponente).
Para mas informacion consulta la ayuda de Delphi presionando la tecla F1..
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita
  #5  
Antiguo 09-02-2010
Avatar de lily21
lily21 lily21 is offline
Miembro
 
Registrado: nov 2009
Ubicación: Cuba, La Habana
Posts: 13
Poder: 0
lily21 Va por buen camino
ah ya .. gracias y como yo puedo convertir de extended a integer?
saludos
Responder Con Cita
  #6  
Antiguo 09-02-2010
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Poder: 18
rgstuamigo Va por buen camino
Question

Cita:
Empezado por lily21 Ver Mensaje
ah ya .. gracias y como yo puedo convertir de extended a integer?
saludos
Que deseas convertir la parte entera o la parte decimal?
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita
  #7  
Antiguo 09-02-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 23
Caro Va por buen camino
Cita:
Empezado por lily21 Ver Mensaje
ah ya .. gracias y como yo puedo convertir de extended a integer?
saludos
Hola de nuevo lily21, define numaux de tipo Extended y lo demas Integer.

Código Delphi [-]
var
 numero, digito, Indice : Integer;
 numaux : Extended;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Auto Incremento jandj Varios 3 26-12-2008 02:43:53
Descomponer un numero con 7 digitos Camilo Varios 3 05-11-2007 22:58:02
Ingresar un núm de 10 digitos... coronado Varios 1 12-10-2006 14:49:18
Como incremento un numero en la impresion? danytorres Varios 6 07-07-2005 00:42:56
auto incremento valentino MySQL 1 14-02-2005 13:59:33


La franja horaria es GMT +2. Ahora son las 01:09:39.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi