Algorithme du ppmc
Résolu
stephane
-
24 févr. 2005 à 11:54
KX Messages postés 16761 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 9 août 2025 -
KX Messages postés 16761 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 9 août 2025 -
A voir également:
- Fonction ppcm algorithme
- Fonction si et - Guide
- Algorithme euromillion excel gratuit - Forum Logiciels
- Fonction miroir - Guide
- Logiciel algorithme euromillion - Télécharger - Loisirs créatifs
- Fonction moyenne excel - Guide
24 réponses
tout d'abord tu prends le plus grand de tous les nombres que tu veux comparer, tu l'appelle [maxi], puis tu le multiplie par n (tu demare avec n=1)
ensuite tu divise chaque nombre par [maxi] x n si le resultat de la division est un entier pour chaque nombre tu as trouvé le ppcm. si pour au moin un des nombre le resultat de la division n'est pas un entier alors tu incremente n de 1 et tu recommence.
voici le code en Liberty BASIC.
print "calcul du plus petit commun multiple"
input "combien de nombres voulez-vous comparer ";nb
dim n(nb)
maxi=0
for i=1 to nb
print "entrez le nombre numero ";i
input n(i)
maxi=max(maxi, n(i))
next i
while z=0
z=1
count=count+1
multiple=maxi*count
for u=1 to nb
cp=multiple/n(u)
ab=int(cp)
if ab<>cp then z=0
next u
wend
print "le ppcm de :"
for i=1 to nb
print n(i)
next i
print "est :"
print multiple
wait
Tu trouveras Liberty BASIC en telechargement sur le site :
http://lbasic.atomysk.com
et de l'aide sur le forum qui va avec:
http://lbasic.atomysk.com/forum/
ensuite tu divise chaque nombre par [maxi] x n si le resultat de la division est un entier pour chaque nombre tu as trouvé le ppcm. si pour au moin un des nombre le resultat de la division n'est pas un entier alors tu incremente n de 1 et tu recommence.
voici le code en Liberty BASIC.
print "calcul du plus petit commun multiple"
input "combien de nombres voulez-vous comparer ";nb
dim n(nb)
maxi=0
for i=1 to nb
print "entrez le nombre numero ";i
input n(i)
maxi=max(maxi, n(i))
next i
while z=0
z=1
count=count+1
multiple=maxi*count
for u=1 to nb
cp=multiple/n(u)
ab=int(cp)
if ab<>cp then z=0
next u
wend
print "le ppcm de :"
for i=1 to nb
print n(i)
next i
print "est :"
print multiple
wait
Tu trouveras Liberty BASIC en telechargement sur le site :
http://lbasic.atomysk.com
et de l'aide sur le forum qui va avec:
http://lbasic.atomysk.com/forum/
