FoxPro/Visual FoxPro - Numeros primos

   
Vista:

Numeros primos

Publicado por Jhonnatti-k (22 intervenciones) el 23/09/2008 18:05:36
Hola............

La verad es que no eh podido hacer el codigo para encontar la cantidad de numero primos que hay entre 1 y X, donde x es el numero que ingrese el usuario.

esto es lo que hago, no se que esta mal, o si alguin tiene una sugerencia de como hacerlo, le agradeceria.

La verdad no entiendo muy bien como actua la funcion mod, si alguin me la exlica de paso mil gracias.

x= val(thisform.text1.Value)
x=ABS(x)

FOR j= 1 TO x

FOR i=2 to j-1
IF MOD(j,i)=0
*MESSAGEBOX("El numero "+ALLTRIM(STR(j))+"no es primo")
RETURN
ENDIF
ENDFOR
*MESSAGEBOX("El numero"+ALLTRIM(STR(x))+" es primo")
thisform.list1.AddItem (STR(j))

NEXT
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Numeros primos

Publicado por enrique (1041 intervenciones) el 24/09/2008 03:05:35
Clear
Numero = 0
@10,10 Say 'Introduzca el Rango desde 2 hasta Numero:' Get Numero
Read
for i = 2 to Numero
Primo = .T.
for x = 2 To i-1
modo = mod(i,x)
IF Modo = 0
Primo = .F.
Endif
next x
If Primo = .T.
? i
?? ' es primo'
Endif
next i
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Numeros primos

Publicado por Jhonnatti-k (22 intervenciones) el 24/09/2008 17:14:01
Muchas gracias enrique.

Fue de gran ayuda tu codigo, No se si puediera abusar de tu confianza y me exolicaras como funciona el comando mod.

Muchas gracias de verdad.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Numeros primos

Publicado por enrique (1041 intervenciones) el 24/09/2008 23:39:04
MOD() devuelve el resto de una division entre dos expresiones, por ej

?MOD(10,3) mostrara 1

?MOD( (9*4) , (90/9) ) mostrara 6
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Numeros primos

Publicado por Jhonnatti-k (1041 intervenciones) el 25/09/2008 02:53:01
Hola enrique.

De verdad muchas gracias, por fin pude entender como funciona este comando y como resolver mi problema, Muchas gracias por tu colaboración.

Jhonnattan.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar