Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: jpablom95 en 1 Mayo 2013, 16:54 pm



Título: (AYUDA) conjetura de goldbach
Publicado por: jpablom95 en 1 Mayo 2013, 16:54 pm
hola,les agradecería si me ayudan, tengo este código que calcula todos los números primos hasta un determinado numero par dado por el usuario, ahora los tengo que guardar en un arreglo (los números primos) para después sumarlos consecutivamente hasta que de el numero par ingresado por el usuario, pero no se como guardarlos en vector, espero que me ayuden, gracias.

el algoritmo calcula los dos números primos que sumados dan el numero par ingresado.

Sub Main()
        Dim num As Integer
        Dim comprobacion As Boolean = True
        comprobacion = True
        Console.Write("Digite numero ")
        num = Console.ReadLine()
        For num = 1 To num
            comprobacion = True
            For I = 2 To num - 1
                If (num Mod I = 0) Then
                    comprobacion = False

                End If
            Next
            If (comprobacion = True) Then
                Console.WriteLine(num)
               

            End If
        Next

        Console.ReadLine()


Título: Re: (AYUDA) conjetura de goldbach
Publicado por: Danyfirex en 2 Mayo 2013, 19:53 pm
Me parece algo tonto. si yo ingreso el numero par 2 como consigues la suma  :silbar:


con un numero mas alto de 2 si se da.


tendrías  que crear un simple arreglo para verificar que mi numero primo  arreglo(0)+arreglo(1) sean mi numero no necesariamente crear un arreglo completo sino ir rellenando y comprobando.

saludos




Título: Re: (AYUDA) conjetura de goldbach
Publicado por: tincopasan en 3 Mayo 2013, 07:54 am
no entiendo!
decis que muestre los números primos hasta un número par dado, por ejemplo:
si pongo 6 me mostraría 1 3 5
y después decis que los sume consecutivamente
1 + 3+ 5 = 9
para que de 6 no es consecutivamente.
agregarlos a un vector es fácil:
declaras un vector dim vector() as integer
dim num as integer
num = val(text1)
y con redim vector (1 to num) as integer le asignas el tamaño
esto es básicamente en vb6 en .net ni idea


Título: Re: (AYUDA) conjetura de goldbach
Publicado por: Elemental Code en 3 Mayo 2013, 22:51 pm
mmm no hicimos un reto de esto?


http://foro.elhacker.net/empty-t298929.0.html