ALGO
Fermé
Biko Styles
-
29 nov. 2009 à 18:25
mis_angel Messages postés 8 Date d'inscription dimanche 29 novembre 2009 Statut Membre Dernière intervention 14 décembre 2009 - 29 nov. 2009 à 19:02
mis_angel Messages postés 8 Date d'inscription dimanche 29 novembre 2009 Statut Membre Dernière intervention 14 décembre 2009 - 29 nov. 2009 à 19:02
A voir également:
- ALGO
- Telecharger algo pour pc - Télécharger - Édition & Programmation
- Algo prono - Télécharger - Sport
- ALGO ET PASCAL - Forum Pascal
- Aide : algo palindrome - Forum Programmation
- Demande d'algo Mastermind - Forum Programmation
2 réponses
maher*91
Messages postés
31
Date d'inscription
vendredi 20 mars 2009
Statut
Membre
Dernière intervention
24 mars 2010
4
29 nov. 2009 à 18:41
29 nov. 2009 à 18:41
bonjour,
p,k,a,b,pgcd,i:entier
repeter
lire(k); {la saisie de deux entiers}
lire(p);
jusqu'a ((a>0)et(b>0));
a<=k;
b<=p;
si p>k alors {a aura la valeur du plus grand entier entre p et k et b aura celle du petit }
a:=p;
b:=k;
fi si
pour i<=1 à (a div2) faire
si a mod i =0 et b mod i=0 alors {la recherche du pgcd(p,k)}
pgcd<=i;
fin si
fin pour
en espérant t'avoir aider a.bientôt
p,k,a,b,pgcd,i:entier
repeter
lire(k); {la saisie de deux entiers}
lire(p);
jusqu'a ((a>0)et(b>0));
a<=k;
b<=p;
si p>k alors {a aura la valeur du plus grand entier entre p et k et b aura celle du petit }
a:=p;
b:=k;
fi si
pour i<=1 à (a div2) faire
si a mod i =0 et b mod i=0 alors {la recherche du pgcd(p,k)}
pgcd<=i;
fin si
fin pour
en espérant t'avoir aider a.bientôt
mis_angel
Messages postés
8
Date d'inscription
dimanche 29 novembre 2009
Statut
Membre
Dernière intervention
14 décembre 2009
29 nov. 2009 à 19:02
29 nov. 2009 à 19:02
si je peux vous aider
algorithme pgcd
entier:a,b
debut
repeter
ecrire('donner a et b :')
lire a,b
jusqu'a (a#0) et (b#0)
tantque (a#b) faire
si (a>b) alors
a -->a-b
sinon
b-->b-a
ecrire ('le pgcd est =',a)
fin.
algorithme pgcd
entier:a,b
debut
repeter
ecrire('donner a et b :')
lire a,b
jusqu'a (a#0) et (b#0)
tantque (a#b) faire
si (a>b) alors
a -->a-b
sinon
b-->b-a
ecrire ('le pgcd est =',a)
fin.