AlgoBox : PGCD PGCD : algorithme d'Euclide Donnez lui deux nombres et il vous calculera la valeur du PGCD Code de l' algorithm e 1 VARIABLES VARIABLES 2 A EST_DU_TYPE NOMBRE 3 B EST_DU_TYPE NOMBRE 4 PGCD EST_DU_TYPE NOMBRE 5 chaiseMusicale EST_DU_TYPE NOMBRE 6 Q EST_DU_TYPE NOMBRE 7 R EST_DU_TYPE NOMBRE 8 k EST_DU_TYPE NOMBRE 9 DEBUT_ALGORITHME DEBUT_ALGORITHME 10 AFFICHER "Donner une valeur" 11 LIRE A 12 AFFICHER "Donner une valeur" 13 LIRE B 14 SI SI (A==B) ALORS ALORS 15 DEBUT_SI DEBUT_SI 16 AFFICHER "PGCD = " 17 PGCD PREND_LA_VALEUR 1 18 AFFICHER PGCD 19 FIN_SI FIN_SI 20 SI SI (A<B) ALORS ALORS 21 DEBUT_SI DEBUT_SI 22 chaiseMusicale PREND_LA_VALEUR B 23 B PREND_LA_VALEUR A 24 A PREND_LA_VALEUR chaiseMusicale 25 FIN_SI FIN_SI 26 AFFICHER "On prend A le plus grand et B le plus petit...\r" 27 AFFICHER "Donc A =" 28 AFFICHER A 29 AFFICHER " et B =" 30 AFFICHER B 31 AFFICHER "\r ------------------------------------------- \r" 32 Q PREND_LA_VALEUR floor(A/B) 33 R PREND_LA_VALEUR A-B*Q 34 TANT_QUE TANT_QUE (R!=0) FAIRE FAIRE 35 DEBUT_TANT_QUE DEBUT_TANT_QUE 36 k PREND_LA_VALEUR k +1 37 Q PREND_LA_VALEUR floor(A/B) 38 R PREND_LA_VALEUR A-B*Q 39 SI SI (R!=0) ALORS ALORS 40 DEBUT_SI DEBUT_SI 41 A PREND_LA_VALEUR B 42 B PREND_LA_VALEUR R 43 FIN_SI FIN_SI 44 FIN_TANT_QUE FIN_TANT_QUE 45 AFFICHER "Le PGCD des deux nombres vaut alors " 46 PGCD PREND_LA_VALEUR B 47 AFFICHER PGCD 48 AFFICHER "\r il a fallut " 49 AFFICHER k 50 AFFICHER " division(s) pour le trouver." 51 FIN_ALGORITHME FIN_ALGORITHME Résultats ***Algorithme lancé en mode pas à pas*** Donner une valeur Entrer A : 1631 Donner une valeur Entrer B : 932 On prend A le plus grand et B le plus petit... Donc A =1631 et B =932 ------------------------------------------- Le PGCD des deux nombres vaut alors 233 il a fallut 3 division(s) pour le trouver. ***Algorithme terminé*** Généré par AlgoBox

PGCD Sous Algobox Par Algorithme d'Euclide

Download PDF Report

Upload
gerioka
View
229
Download
1

Embed Size (px)

Citation preview

Page 1: PGCD Sous Algobox Par Algorithme d'Euclide

7/23/2019 PGCD Sous Algobox Par Algorithme d'Euclide

http://slidepdf.com/reader/full/pgcd-sous-algobox-par-algorithme-deuclide 1/1

AlgoBox : PGCD

PGCD : algorithme d'EuclideDonnez lui deux nombres et il vous calculera la valeur du PGCD

Code de l'algorithme

1 VARIABLESVARIABLES2 A EST_DU_TYPE NOMBRE3 B EST_DU_TYPE NOMBRE4 PGCD EST_DU_TYPE NOMBRE5 chaiseMusicale EST_DU_TYPE NOMBRE

6 Q EST_DU_TYPE NOMBRE7 R EST_DU_TYPE NOMBRE8 k EST_DU_TYPE NOMBRE9 DEBUT_ALGORITHMEDEBUT_ALGORITHME10 AFFICHER "Donner une valeur"11 LIRE A12 AFFICHER "Donner une valeur"13 LIRE B14 SISI (A==B) ALORSALORS15 DEBUT_SIDEBUT_SI16 AFFICHER "PGCD = "17 PGCD PREND_LA_VALEUR 118 AFFICHER PGCD19 FIN_SIFIN_SI20 SISI (A<B) ALORSALORS21 DEBUT_SIDEBUT_SI22 chaiseMusicale PREND_LA_VALEUR B23 B PREND_LA_VALEUR A24 A PREND_LA_VALEUR chaiseMusicale25 FIN_SIFIN_SI26 AFFICHER "On prend A le plus grand et B le plus petit...\r"27 AFFICHER "Donc A ="28 AFFICHER A29 AFFICHER " et B ="30 AFFICHER B31 AFFICHER "\r ------------------------------------------- \r"32 Q PREND_LA_VALEUR floor(A/B)33 R PREND_LA_VALEUR A-B*Q34 TANT_QUETANT_QUE (R!=0) FAIREFAIRE35 DEBUT_TANT_QUEDEBUT_TANT_QUE36 k PREND_LA_VALEUR k+137 Q PREND_LA_VALEUR floor(A/B)38 R PREND_LA_VALEUR A-B*Q

39 SISI (R!=0) ALORSALORS40 DEBUT_SIDEBUT_SI41 A PREND_LA_VALEUR B42 B PREND_LA_VALEUR R43 FIN_SIFIN_SI44 FIN_TANT_QUEFIN_TANT_QUE45 AFFICHER "Le PGCD des deux nombres vaut alors "46 PGCD PREND_LA_VALEUR B47 AFFICHER PGCD48 AFFICHER "\r il a fallut "49 AFFICHER k50 AFFICHER " division(s) pour le trouver."51 FIN_ALGORITHMEFIN_ALGORITHME

Résultats

***Algorithme lancé en mode pas à pas***Donner une valeurEntrer A : 1631Donner une valeurEntrer B : 932On prend A le plus grand et B le plus petit...Donc A =1631 et B =932-------------------------------------------Le PGCD des deux nombres vaut alors 233il a fallut 3 division(s) pour le trouver.***Algorithme terminé***

Généré par AlgoBox