primos.bas [Texto-Plano]

Esta página es de solo lectura. Puedes ver la fuente pero no puedes cambiarla. Pregunta a tu administrador si crees que esto es incorrecto.

<code freebasic>
10 REM PRIMOS CAKCULAR NUMEROS PRIMOS
15 PRINT "ALTAIR WITH 62K OF RAM"
16 PRINT "* * * PROGRAMA DE NUMEROS PRIMOS * * *"
17 PRINT "Copyleft Ubuntu Peronista"
18 PRINT ""
19 PRINT "GIVE ME A HIGH LIMIT AND I WILL SEARCH FOR PRIME NUMBERS:"
20 PRINT "DAME UN LIMITE MAXIMO PARA BUSCAR NUMEROS PRIMOS:";
30 INPUT L
40 PRINT 2;
50 REM PRUEBA SOLO NROS IMPARES M
60 FOR N = 3 TO L STEP 2
70 REM DIVIDE SOLO POR D = 3 5, 7, ...
80   FOR D = 3 TO SQR(N+1) STEP 2
90     IF N/D = INT(N/D) THEN GOTO 130
100 NEXT D
110 PRINT N;".";
120 GOTO 140
130 PRINT "..";
140 NEXT N
144 PRINT ""
145 PRINT "NO HAY MAS NROS PRIMOS EN ESE LIMITE. VIVA PERON!"
146 PRINT "THERE ARE NOT MORE PRIME NUMBERS ON THAT LIMIT, DUDE. I'M A MATH ACE!
"
147 PRINT "ADIOS HUMANO! COMPARTE TU SOFTWARE!"
150 REM final del programa
160 END
</code>