calcular numeros primos

[Ives Andrey Rodríguez]

converti un programa que hice en java a visual fox pro 6 pero no calcula bien los numeros primos

LOCAL lncontador
lncontador=0



if thisform.TxtNum1.Value%2==0
Thisform.TxtRes.Value = "El numero "+ STR(thisform.TxtNum1.Value,10,2) + " no es primo"
ELSE
        Thisform.TxtRes.Value = "El numero "+ STR(thisform.TxtNum1.Value,10,2) + " es primo"
ENDIF
for lncontador=3 TO lncontador*lncontador  STEP 1
if thisform.TxtNum1.Value%lncontador==0
Thisform.TxtRes.Value = "El numero "+ STR(thisform.TxtNum1.Value,10,2) + " no es primo"
        ENDIF
    endfor    

Thisform.Refresh

el 2 no lo detecta como primo, detecta a los numeros impares como primos esta parte del programa no esta funcionado correctamente

[Javier Javier]

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

El mar, 7 de mar. de 2023 18:06, Ives Andrey Rodríguez <iarod...@vanguardialiberal.com.co> escribió:

converti un programa que hice en java a visual fox pro 6 pero no calcula bien los numeros primps

LOCAL lncontador
lncontador=0



if thisform.TxtNum1.Value%2==0
Thisform.TxtRes.Value = "El numero "+ STR(thisform.TxtNum1.Value,10,2) + " no es primo"
ELSE
        Thisform.TxtRes.Value = "El numero "+ STR(thisform.TxtNum1.Value,10,2) + " es primo"
ENDIF
for lncontador=3 TO lncontador*lncontador  STEP 1
if thisform.TxtNum1.Value%lncontador==0
Thisform.TxtRes.Value = "El numero "+ STR(thisform.TxtNum1.Value,10,2) + " no es primo"

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/5e28e10a-1058-406b-9792-146f9acfca4fn%40googlegroups.com.