Algorithme du ppmc
Résolu/Fermé
stephane
-
24 févr. 2005 à 11:54
KX Messages postés 16733 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 31 janvier 2024 - 31 déc. 2011 à 08:31
KX Messages postés 16733 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 31 janvier 2024 - 31 déc. 2011 à 08:31
A voir également:
- Ppcm algorithme
- Ecrire un algorithme qui permet de resoudre ax²+bx+c=0 - Forum Algorithmes / Méthodes
- Algorithme euromillion excel gratuit - Forum Excel
- Logiciel algorithme gratuit - Télécharger - Édition & Programmation
- Algorithme du ppcm e pgcd - Forum Programmation
- Ppcm recursive ✓ - Forum Programmation
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/
