Tester l'algorithme :


(cliquer sur le bouton ci-dessus pour lancer ou relancer l'exécution de l'algorithme)
Remarque : si les messages "Algorithme lancé" et "Algorithme terminé" n'apparaissent pas au bout d'un moment dans la zone ci-dessous, c'est que l'algorithme contient une erreur.

Résultats :

Code de l'algorithme :
1     VARIABLES
2       nombresPremiers EST_DU_TYPE LISTE
3       a EST_DU_TYPE NOMBRE
4       Suite_de_Nombre EST_DU_TYPE NOMBRE
5       b EST_DU_TYPE NOMBRE
6       NewNombre EST_DU_TYPE NOMBRE
7       MauvaisNombre EST_DU_TYPE NOMBRE
8     DEBUT_ALGORITHME
9       AFFICHER "Voici les 1230 premiers nombres premiers (de 1 à 10.000)."
10      AFFICHER " "
11      AFFICHER "Chargement"
12      Suite_de_Nombre PREND_LA_VALEUR 2
13      nombresPremiers[1] PREND_LA_VALEUR 2
14      nombresPremiers[2] PREND_LA_VALEUR 0
15      TANT_QUE (Suite_de_Nombre<10000) FAIRE
16        DEBUT_TANT_QUE
17        SI (Suite_de_Nombre%211==0) ALORS
18          DEBUT_SI
19          AFFICHER "."
20          FIN_SI
21        NewNombre PREND_LA_VALEUR 0
22        MauvaisNombre PREND_LA_VALEUR 0
23        a PREND_LA_VALEUR 0
24        b PREND_LA_VALEUR 0
25        Suite_de_Nombre PREND_LA_VALEUR Suite_de_Nombre+1
26        TANT_QUE (MauvaisNombre!=1 ET NewNombre!=1) FAIRE
27          DEBUT_TANT_QUE
28          a PREND_LA_VALEUR a+1
29          SI (Suite_de_Nombre/nombresPremiers[a]==floor(Suite_de_Nombre/nombresPremiers[a])) ALORS
30            DEBUT_SI
31            MauvaisNombre PREND_LA_VALEUR 1
32            FIN_SI
33          SI (nombresPremiers[a+1]==0) ALORS
34            DEBUT_SI
35            nombresPremiers[a+1] PREND_LA_VALEUR Suite_de_Nombre
36            nombresPremiers[a+2] PREND_LA_VALEUR 0
37            NewNombre PREND_LA_VALEUR 1
38            FIN_SI
39          FIN_TANT_QUE
40        FIN_TANT_QUE
41      AFFICHER " "
42      a PREND_LA_VALEUR 1
43      TANT_QUE (nombresPremiers[a]!=0) FAIRE
44        DEBUT_TANT_QUE
45        AFFICHER nombresPremiers[a]
46        a PREND_LA_VALEUR a+1
47        FIN_TANT_QUE
48    FIN_ALGORITHME