Como parte de las clases que estoy tomando de .NET nos pidieron desarrollar el siguiente algoritmo. Seguro para muchos es fácil de construir pero a mi me costo más de la cuenta. Aún así me sentí satisfecho al final y decidí compartirlo:
Module Module1
'Considerando al 1 como número primo
Sub Main()
Dim N, i, j, C, D As Integer
D = 0
Console.WriteLine("Ingrese número")
N = Console.ReadLine
For i = 1 To N Step 1
C = 0
For j = 1 To i Step 1
If i Mod j = 0 Then
C = C + 1
Else
C = C
End If
Next
If C = 2 Then
D = D + 1
Else
D = D
End If
Next
Console.WriteLine("El número de números primos debajo de " & N & " es " & D)
Console.ReadKey()
End Sub
End Module
Me hizo sufrir este algoritmo, pero no tanto por la lógica si no por un error que no encontraba en el script. Espero que les sea provechoso.
Saludos cordiales, Renzo
El número de números primos debajo de N
mayo 28, 2011Algoritmo para saber si un número es primo en .NET
mayo 15, 2011
Acabo de terminar este pequeño algoritmo para saber si un número es primo utilizado Visual Basic. Lo comparto con ustedes por si les es de utilidad.
Module Module1
Sub Main()
Dim N As Integer
Dim M As Integer
M = 2
Console.WriteLine("Ingrese un número")
N = Console.ReadLine()
While (N Mod M > 0)
M = M + 1
End While
If (N = M) Then
Console.WriteLine("El número es primo")
Else
Console.WriteLine("El número es no primo")
End If
Console.ReadKey
End Sub
End Module
Saludos, Renzo
Module Module1
Sub Main()
Dim N As Integer
Dim M As Integer
M = 2
Console.WriteLine("Ingrese un número")
N = Console.ReadLine()
While (N Mod M > 0)
M = M + 1
End While
If (N = M) Then
Console.WriteLine("El número es primo")
Else
Console.WriteLine("El número es no primo")
End If
Console.ReadKey
End Sub
End Module
Saludos, Renzo
