<< Testeador de Primos >>

Este es un ejemplo de como usar la función EsprimoLenta para ver si algunos número son primos. El programa pregunta un número menor o igual que 32767 y dice si es primo o no. Repite este proceso hasta que uno ingresa el 0.

Defint A-Z 'Todas las variables son enteras
Do 'Repite el proceso muchas veces
     Input n 'Pregunta un numero
     If EsPrimoLenta(n)=-1 Then
          Print n; "Es primo!!!!"
     Else
          Print n; "No es primo."
     End If
Loop Until n=0 'Termina si n=0

Defint A-Z 'Todas las variables son enteras
Function EsPrimoLenta(N)
     Resultado = -1 'Si llega a ser primo devuelve -1
     For i = 2 To N-1
          If N / i = Int ( N / i ) Then
               Resultado = 0 'No, no es primo y devuelve 0
               Exit For 'Sale del For...Next
          End If
     Next i
     EsPrimoLenta = Resultado
End Function

Ejemplo de Salida

? 13
     13 Es primo !!!!
? 15
     15 No es primo.
? 17
     17 Es primo !!!!
? 33
     33 No es primo.
? 0
     0 Es primo !!!!

Hay formas más rápidas de hacer esto, que se pueden encontrar en Los números primos.

Lecciones anteriores:

Los números primos

OmaNet   Curso CyM98	OmaNet - Educación Interactiva    www.oma.org.ar/omanet | omanet@oma.org.ar
mensajes: webmaster@oma.org.ar