Programación en lenguaje QBASIC
¡Esto es muy útil! ¡Simple!
CLS
DIM A(100)
F=-1
PARA I=1 A 100
LLAMADA PDSS(I,F)
SI F=-1 ENTONCES A(I)=-1
F=-1
SIGUIENTE
PARA I=1 A 100
SI A(I)=-1 ENTONCES IMPRIMA I:
SIGUIENTE
FIN
——————————Subrutina————————————
SUB PDSS(J,F)
FOR I= 2 A INT(SQR(J))
SI J MOD I=0 ENTONCES F=0:SALIR PARA
SIGUIENTE
END SUB
Esto es más sencillo y es muy conveniente utilizar subrutinas para solucionarlo. Recuerde, simplemente seleccione NUEVO SUB en el menú de edición.
¡De esta manera la introducción es clara y no es fácil fallar! Lo probé y funciona.
El algoritmo básico es: dado que necesita números hasta 100, marque todos los números hasta 100. F es una marca temporal (de hecho, F se puede eliminar, pero por seguridad y para verlo más claramente, F se conserva). Prueba los números entre 2 y 100 uno por uno. ¡No necesito decirte esto! Entonces -1 significa verdadero y 0 significa falso. ¡Finalmente juzgue el resultado!
En realidad, aprender a programar no es difícil, siempre que puedas calmarte y analizar el problema, es muy sencillo. Y pruébalo, no lo des por sentado.
Espero que puedas condensar este programa una y otra vez. La última vez convertí un programa con más de diez líneas en unas pocas oraciones, ¡y el efecto fue el mismo!