Programmation

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