Programmation

Fermé
nathalienumbi Messages postés 1 Date d'inscription vendredi 19 août 2016 Statut Membre Dernière intervention 19 août 2016 - 19 août 2016 à 03:11
telliak Messages postés 3645 Date d'inscription mercredi 20 septembre 2006 Statut Membre Dernière intervention 24 novembre 2022 - 19 août 2016 à 03:43
Écrire un programme en Q_basic,qui vérifie si un nombre est premier
A voir également:

2 réponses

telliak Messages postés 3645 Date d'inscription mercredi 20 septembre 2006 Statut Membre Dernière intervention 24 novembre 2022 872
19 août 2016 à 03:43
1
raxos Messages postés 661 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 31 juillet 2022 71
19 août 2016 à 03:24
Bonjour,

C'est le mauvais forum, il faut aller par la : https://codes-sources.commentcamarche.net/
Mais je vais essayer de te répondre :


DECLARE FUNCTION NombreFacteur! (N!)
DECLARE FUNCTION Premier! (N!)
DECLARE FUNCTION NombrePremierPlusPetit! (N!)
 
PRINT "Liste des nombres premier avant 1000: "
FOR I = 2 TO 1000
 IF Premier(I) THEN PRINT STR$(I) + " ";
NEXT
PRINT
PRINT "Nombre de nombre premier avant 1000: ";
PRINT NombrePremierPlusPetit(1000)
 
FUNCTION NombreFacteur (N)
 Count = 2
 Racine = SQR(N)
 FOR I = 2 TO Racine
  IF N MOD I = 0 THEN Count = Count + 1
 NEXT
 NombreFacteur = Count
END FUNCTION
 
FUNCTION NombrePremierPlusPetit (N)
 Count = 0
 FOR I = 2 TO N - 1
  IF Premier(I) THEN Count = Count + 1
 NEXT
 NombrePremierPlusPetit = Count
END FUNCTION
 
FUNCTION Premier (N)
 Premier = (NombreFacteur(N) = 2)
END FUNCTION
0