Explicación de la programación de la conjetura de QBasic Goldbach

CLS borra la pantalla

DO inicia el bucle

INPUT "A=", una entrada "A=" cuánto

CLS limpia la pantalla

BUCLE HASTA a > 6 Y a MOD 2 = 0 El bucle rompe la condición, A debe ser mayor que 6 y A debe ser un número par

FOR I = 2 TO a / 2 Iniciar bucle, bucle El número de veces es a/2-2 veces

F = 0 para que F=0

FOR J = 2 TO I / 2 inicia el bucle interno, el número de bucles es I/2 -2 veces

SI I MOD J = 0 ENTONCES F = 1: SALIR POR Si el resto de I dividido por J es 0, entonces sea F =1: luego sal del bucle

NEXT J Siguiente bucle (para bucle J)

SI F = 0 ENTONCES Si la condición F=0 es verdadera, entonces

B = a - I B=a-I

F = 0 F=0

FOR J = 2 TO B / 2 Iniciar J tiempos de ciclo del bucle B/2-2 veces

SI B MOD J = 0 ENTONCES F = 1: SALIR PARA Si el resto de B dividido por J es 0 entonces F=1: Salir del bucle

NEXT J Siguiente bucle

SI F = 0 ENTONCES IMPRIMIR a; "="; I; " +"; FINAL Si F=0, genera el valor de a = el valor de I+B en la pantalla, finalice

END IF Declaración final coincidente de IF

NEXT I La próxima vez Bucle (for I loop)

IMPRIMIR "NO" salida "NO"

FIN Fin