Java: Determinar si un numero es divisible por otro numero

Un numero x es divisible por y si al dividirlos el residuo es cero. Escribe un programa que determine si un numero es disible por otro numero. Leer ambos numeros del teclado. 

public static void divisible() {

            Scanner kb = new Scanner(System.in);

            System.out.println("Entrar un numero x...");

            int x = kb.nextInt();

            System.out.println("Entrar un numero y...");

            int y = kb.nextInt();

            if (x % y == 0) {

                  System.out.println(x + " es divisible por " + y);

            } else {

                  System.out.println(x + " es divisible por " + y);

            }

      }

Explicacion del codigo:

public static void divisible(): Aqui el metodo es void porque no va a retornar ninguna variable, sino a imprimir un resultado mediante System.out.println. 

Scanner kb = new Scanner(System.in): en este programa vamos a leer dos numeros del teclado. Scanner sirve para lograr ese objetivo. Nota: para poder utilizar Scanner hay que importarla libreria de Scanner al programa mediante la siguente linea de codigo: import java.util.Scanner;

System.out.println("Entrar un numero x..."): System.out.println imprime un mensaje en la consola. En este caso le da instrucciones al usuario.

int x = kb.nextInt(): Aqui declaramos la variable x de tipo int que va a ser igual a la variable kb que declaramos en Scanner. Es punto nextInt() porque va a tomar el siguente numero entero que inserte el usuario al techado y se va a almacenar en x. 

Luego se repite el proceso para la variable y.

if (x % y == 0): Para obtener el residio de la division entre dos numeros utilizamos el metodo Mod. En Java es representado por el simbolo de porciento (%). 


El resto del codigo imprime que x es divisible por y si el residuo es cero, o de lo contrario imprime que no es divisible. 

Read more

Encontrar factor Visual Basic 6.0

El siguiente programa puede encontrar los factores de un numero introducido por el usuario el cual los mostrara en un Listbox. Para ello se utilizo la simple logica de que un numero es divisible por todos sus factores. El codigo es el suguiente:

Option Explicit

Private Sub Command1_Click()
List1.Clear
Dim N, x As Integer
N = Val(Text1.Text)
For x = 2 To N - 1
If N Mod x = 0 Then
List1.AddItem (x)
End If
Next
List1.AddItem (N)
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text1.Text = "0"
List1.Clear
Text1.SetFocus
End Sub

Read more