Expliquenme esto por favor..
Jorge Sosa
11 de Febrero del 2006
Necesito realizar un algoritmo que me imprima los numeros primos del 2 hasta el 1000. por favor ayudenme y gracias...
saludos.
saludos.
NetLoboX
11 de Febrero del 2006
Es un poco lioso, pero...
dim a as Integer ' numero que se comprueba si es o no primo
dim b as Integer ' numero auxiliar
for a=2 to 1000
b=2
while b < a
'se dividen uno a uno, si el resto es 0
' no es primo y salta al siguiente numero a
' si se supera este bucle, que imprima dicho número
if a mod b =0 then
goto siguiente
end if
wend
print "El número " & a & " es primo."
siguiente:
next
puede ser pesado al final, aunque se dice que una vez superado la mitad, si ningún número divide, entonces es que es primo, es decir, en el supuesto de 1000, no habrÃa que dividir 1000 desde 2 hasta 999, sino que llegara a 500 serÃa suficiente.
dim a as Integer ' numero que se comprueba si es o no primo
dim b as Integer ' numero auxiliar
for a=2 to 1000
b=2
while b < a
'se dividen uno a uno, si el resto es 0
' no es primo y salta al siguiente numero a
' si se supera este bucle, que imprima dicho número
if a mod b =0 then
goto siguiente
end if
wend
print "El número " & a & " es primo."
siguiente:
next
puede ser pesado al final, aunque se dice que una vez superado la mitad, si ningún número divide, entonces es que es primo, es decir, en el supuesto de 1000, no habrÃa que dividir 1000 desde 2 hasta 999, sino que llegara a 500 serÃa suficiente.
GABRIEL
11 de Febrero del 2006
prueba con el siguiente codigo...
for i=2 to 1000
if 2 mod (i) then
else
text1=i & vbCrlf
end if
next i
for i=2 to 1000
if 2 mod (i) then
else
text1=i & vbCrlf
end if
next i