QBASIC Prime nombres de 1 à var

Question

Je suis nouveau à Qbasic et je voulais apprendre à imprimer les nombres premiers de 1 à une variable qui est définie à un nombre entré par l'utilisateur .. s'il vous plaît aider ... J'ai essayé d'utiliser la boucle while while mais cela n'a pas fonctionné. Merci

Answer 1

répondre à votre question comme guide:

Vous devez trouver des séparateurs valides de votre numéro d'entrée (n > 1):

séparateurs valides de n:
En cas de un nombre inférieur à n ou n/2 qu'après avoir divisé son réseau est égal à zéro;
n MOD i = 0.

Maintenant, utilisez l'une de ces méthodes pour trouver le nombre premier:

• Somme des séparateurs valides d'un nombre premier est égal à ce nombre plus un, et pour séparateurs valides moins de n ou n/2 est une;
  sum = 1
• Nombre de séparations valides d'un nombre premier est égal à deux, et pour des séparateurs valides moins de n ou n/2 est une;
  count = 1

Answer 2

Cette snip de code calcule les nombres premiers de 2 à une gamme supérieure.

Il fonctionne en divisant la valeur de test par tous les nombres de 2 à la racine carrée de la gamme supérieure.

PRINT "Upper value"; 
INPUT n 
FOR l = 2 TO n 
    f = -1 
    FOR m = 2 TO INT(SQR(l)) 
     IF l/m = l \ m THEN 
      f = 0 
      EXIT FOR 
     END IF 
    NEXT 
    IF f THEN 
     PRINT l 
    END IF 
NEXT 

Answer 3

C'est assez facile. Tout ce que vous avez à faire est de lancer une boucle imbriquée. Une boucle qui vérifie si un nombre est premier ou non et un pour l'afficher.

CLS 
INPUT "enter a range"; a 
FOR i = 1 TO a 
    FOR j = 1 TO i 
     IF i MOD j = 0 THEN 
      check = check + 1 
     END IF 
    NEXT j 
    IF check = 2 THEN 
     PRINT i 
    END IF 
    check = 0 
NEXT i 
END