27 jul. 2010

Ejercicio VB.NET: Divisores

PROBLEMA: Desarrole un programa para encontrar e imprimir todos los divisores de todos los numeros comprendidos entre 1 y 100. Para ello desarrolle un procedimiento que genere cada uno de los numeros y otro procedimiento que determine los divisores que pueda tener un numero cualquiera.


01 Module Module1
02     ' programa principal
03     Sub Main()
04         Generar_numero()
05     End Sub
06 
07     ' procedimiento que imprime los divisores de un numero
08     Private Sub imprimir_divisores(ByVal numero As Integer)
09         Dim divisor, cociente, producto As Integer
10         For divisor = 2 To numero
11             cociente = numero \ divisor
12             producto = cociente * divisor
13             If producto = numero Then
14                 Console.WriteLine(divisor & " es un divisor de " & numero)
15             End If
16         Next
17         Console.WriteLine("presione una tecla para continuar")
18         Console.ReadLine()
19     End Sub
20 
21     ' procedimiento que genera los numeros de 1 a 100
22     Private Sub Generar_numero()
23         Dim numero As Integer
24         For numero = 1 To 100
25             imprimir_divisores(numero)
26         Next
27     End Sub
28 End Module
Resultado:

2 comentarios:

Retazos de mi corazón dijo...

Hola amigo, me gusto la entrada, pero quisiera saber como publicas esa caja de codigos html en tu blog, asi con numeros, yo se hacerlos, pero sin numeros..

desde ya hace mucho que trato de buscar algun codigo, pero no encuentro, si me ayudaras estaria mil veces agradecido.

mi correo:

retazosdemicorazon@gmail.com

gracias

Anónimo dijo...

como se hace un programa con while que imprima divisores del 1 al 100 porfavor contesten

Publicar un comentario en la entrada

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | cna certification