Présentation de l'algorithme :

Cet algorithme détermine le PGCD de deux nombres entiers non nuls.

Tester l'algorithme :


(cliquer sur le bouton ci-dessus pour lancer ou relancer l'exécution de l'algorithme)

Résultats :

Code de l'algorithme :
1     VARIABLES
2       A EST_DU_TYPE NOMBRE
3       B EST_DU_TYPE NOMBRE
4       R EST_DU_TYPE NOMBRE
5     DEBUT_ALGORITHME
6       //Première saisie de la valeur de la variable A.
7       AFFICHER "Saisir la valeur du premier entier."
8       LIRE A
9       TANT_QUE (A-floor(A)!=0 OU A==0) FAIRE
10        DEBUT_TANT_QUE
11        AFFICHER "ATTENTION ! Vous devez saisir un entier non nul !"
12        LIRE A
13        FIN_TANT_QUE
14      AFFICHER "Premier entier considéré : "
15      AFFICHER A
16      //Première saisie de la valeur de la variable B.
17      AFFICHER "Saisir la valeur du deuxième entier."
18      LIRE B
19      TANT_QUE (B-floor(B)!=0 OU B==0) FAIRE
20        DEBUT_TANT_QUE
21        AFFICHER "ATTENTION ! Vous devez saisir un entier non nul !"
22        LIRE B
23        FIN_TANT_QUE
24      AFFICHER "Deuxième entier considéré : "
25      AFFICHER B
26      //Les valeurs des variables A et B sont valides. On démarre la détermination de leur PGCD.
27      //Préparation de l'affichage final.
28      AFFICHER "Le PGCD de "
29      AFFICHER A
30      AFFICHER " et de "
31      AFFICHER B
32      AFFICHER " vaut "
33      A PREND_LA_VALEUR abs(A)
34      B PREND_LA_VALEUR abs(B)
35      R PREND_LA_VALEUR A%B
36      TANT_QUE (R!=0) FAIRE
37        DEBUT_TANT_QUE
38        A PREND_LA_VALEUR B
39        B PREND_LA_VALEUR R
40        R PREND_LA_VALEUR A%B
41        FIN_TANT_QUE
42      AFFICHER B
43      AFFICHER "."
44      SI (B==1) ALORS
45        DEBUT_SI
46        AFFICHER " Les deux entiers sont premiers entre eux."
47        FIN_SI
48    FIN_ALGORITHME