 معلومات
العضو |
|
|
|
إحصائية
العضو |
|
|
|
اقتباس:
المشاركة الأصلية كتبت بواسطة you92cef
كود:
de cours
Il est parfois demandé de trouver le plus petit nombre divisible par le plus de nombres possibles :
PPCM(1, 2) = 2
PPCM(1, 2, 3) = 6
PPCM(1, 2, 3, 4) = 12
PPCM(1, 2, 3, 4, 5) = 60
PPCM(1, 2, 3, 4, 5, 6) = 60
PPCM(1, 2, 3, 4, 5, 6, 7) = 420
PPCM(1, 2, 3, 4, 5, 6, 7, 8) = 840
PPCM(1, 2, 3, 4, 5, 6, 7, 8, 9) = 2520
PPCM(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) = 2520
PPCM(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20) = 232792560
Algorithme de calcul d'un PPCM
Méthode n° 1 : les multiples des nombres 12 et 10.
Les multiples de 12 sont : 0,12,24,36,48,60,72 etc.
Les multiples de 10 sont 0,10,20,30,40,50,60,70 etc.
Le premier multiple commun non nul est : 60.
Méthode n° 2 : la décomposition en facteurs premiers.
12 = 2 * 2 * 3
10 = 2 * 5
Il faut prendre les facteur qui figurent dans, au moins, une des décomposition ; s'ils sont répétés, il faut conserver la plus longue répétition (leur plus grand exposant)
Le PPCM est le produit de ces nombres : 2 * 2 * 3 * 5
Méthode n° 3 : en passant par le PGCD
On utilise la formule : ppcm(a, b) = a * b / pgcd(a, b)
pgcd(10, 12) = 2
ppcm(10, 12) = (10 * 12) / 2 = 60
Programmes pour calculatrices (TI, Casio)
Les calculatrices intégrent généralement les fonction de PPCM sous le nom de LCM (Lowest Common Multiple). Si vous n'avez que la fonction PGCD (ou GCD), appliquez les formules ci dessus.
ارجوا ان تبرمج*-*ي*-* انطلاقا من الطريقة الثالثة *-* الالغوريتم موجود في الطريقة الثالثة*-*
|
شرح جيد وواضح
اقتباس:
المشاركة الأصلية كتبت بواسطة AKKAINMOH
السلام عليكم اريد صنع هذه العملية باستعمال لغة pascal Trouver le PPCM de eux entier A et B وجعلها الله في ميزان حسناتكم
|
هذا تأليف اخر للطريقة الاولى في مشاركة الاخ you92cef
كود:
Si a=b alors PPCM(a,b)=a (ou b)
Sinon, chercher les multiples de a en ordre croissant et s’arrêter s’il est multiple aussi de b.
وبالتالي
En algorithme
كود:
0) Début PPCM
1) Lire (a,b)
2) Si a>b alors
Max := a
Min := b
Sinon
Max := b
Min := a
Finsi
3) Tantque (max mod min <>0) faire
Max := max+(a+b-min)
Fin tantque
4) Ecrire(max)
5) Fin PPCM
|