Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Encontrar Todos Los Divisores De Un Numero
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Encontrar Todos Los Divisores De Un Numero 
 
Se puede encontrar a partir de un numero todos sus divisores enteros, para usarlos como números distintos?
 



 
Oleguer - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encontrar Todos Los Divisores De Un Numero 
 
Coloca un botón, un textbox y un textarea en un formulario vacío y pega este código. La función halla los divisores enteros del número dado siempre que el resto de la división sea = 0, mediante la función "Mod". Luego, dentro del bucle for..next puedes hacer lo que quieras con el resultado, como imprimirlo a consola, a un fichero, guardarlo en un array, etc...

Public Sub Button1_Click()
  TextArea1.Clear
  encontrarDivisores(CInt(TextBox1.Text))

End

Private Function encontrarDivisores(numero As Integer) As Integer
  Dim i As Integer
  
  For i = 1 To numero
    If numero Mod i = 0 Then
      TextArea1.Text &= i & "\n"
    Endif
  Next
  
End
 


Saludos
 




===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
 
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encontrar Todos Los Divisores De Un Numero 
 
Muchas gracias por la aportación
 



 
Oleguer - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encontrar Todos Los Divisores De Un Numero 
 
Una ultima duda, para guardar los resultados en un array como se haría?  Quiero que la variable d1, la d2, la d3... cada una tenga un valor

Creo que tendría que hacer un "split" de números de la textarea1 y asignar cada uno a una variable pero no estoy seguro de como hacerlo.

(después, para hacer otros cálculos, también tendría que tener esos mismos números en negativo no? (porque -3*-3 también es 9)
Pero por eso sólo tengo que hacer (d1.value *-1) no?

Gracias y perdona mi ignorancia.
 



 
Oleguer - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encontrar Todos Los Divisores De Un Numero 
 
Oleguer:

Necesitas leer el libro de gambas.Las operaciones con cadenas.
También puedes consultar la ayuda de gambas en linea.

http://gambasdoc.org/help/lang/split?es&v3
(se complica algo mas)

Me quedo con el ejemplo del libro.En la pagina 54. Punto 2.4
La función split la tienes en la 59.

También podrías añadir los divisores directamente a un array cuando los encuentra con MOD, por medio del metodo ADD

Divisores.add(divisor)

¿ Y si hicieras el bucle desde -numero hasta numero ?. Tendrías los negativos y los positivos.

Saludos.
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Encontrar Todos Los Divisores De Un Numero 
 
Muchas gracias, ahora mismo voy a leerme esas paginas del libro y te comento lo que me parece.

Gracias y saludos
 



 
Oleguer - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Encontrar Registros Con Un Mismo Valor Par... bies88 Bases de Datos 2 Martes, 17 Agosto 2010, 23:22 Ver último mensaje
bies88
No hay nuevos mensajes VideoTutorial: Donde Encontrar Documentaci... jsbsan Videotutoriales 0 Miercoles, 09 Febrero 2011, 13:57 Ver último mensaje
jsbsan
No hay nuevos mensajes Creando Nuevos Temas Y Encontrar Similares Shell Sobre Gambas-es 2 Lunes, 11 Septiembre 2017, 09:50 Ver último mensaje
shordi
No hay nuevos mensajes Donde Encontrar Punteros De Raton Gigantes... v3ctor Mundo Linux 2 Viernes, 02 Febrero 2018, 00:53 Ver último mensaje
jguardon
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron