Red de conocimiento informático - Problemas con los teléfonos móviles - Programación en lenguaje QBASIC

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!