Problème passage algo en VB

Bonjour,

Je dois écrire un algo qui permet de simuler la multiplication par l'addition.

En analysant par exemple nbr1 x nbr2 comme nbr2 + nbr2 + ... nbr2 (nbr1 fois)

Voici ce que j'ai fais, mais ça ne fonctionne pas, par exemple pour 5 x 10 il me donne 60 comme résultat.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Public Sub main()   Dim nbr1 As Single Dim nbr2 As Single Dim i As Integer Dim resultat As Single     nbr1 = InputBox("Saisir un premier nombre") nbr2 = InputBox("Saisir un deuxième nombre")   i = 0 resultat = 0   Do While (i <= nbr1) resultat = nbr2 + resultat i = i + 1   Loop     MsgBox ("Le resultat de la multiplication est de : " & resultat)   End Sub

---

Merci d'avance pour votre aide.

revoit ton test :

Code:

---

1 2	Do While (i <= nbr1)

---

La boucle While s'exécute "tant que" la condition est vrai...;)

Ah oué merci ! J'ai mis i = 1 et ça fonctionne maintenant ! :D

Citation:

---

Envoyé par franck1001

Ah oué merci ! J'ai mis i = 1 et ça fonctionne maintenant ! :D

---

:koi: elle sert à quoi alors ta boucle...?

Heu j'avoue que je comprend plus là... :roll:

Salut

Tu a deux solutions pour résoudre ton problème
Soit

Code:

---

1 2 3 4 5 6 7 8

i = 1 resultat = 0   Do While (i <= nbr1) resultat = nbr2 + resultat i = i + 1   Loop

---

soit

Code:

---

1 2 3 4 5 6 7 8

i = 0 resultat = 0   Do While (i < nbr1) resultat = nbr2 + resultat i = i + 1   Loop

---

a+

Citation:

---

Envoyé par bbil

:koi: elle sert à quoi alors ta boucle...?

---

oup's... je pensai que tu vais changé le test par i=1...:aie:

Bonjour,

algo pour algo, j'en aurais alors fait une fonction récursive,

du genre (exemple) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Command1_Click() Dim nombre As Integer, mult As Integer nombre = 11 mult = 6 MsgBox multiplie(nombre, mult) End Sub   Private Function multiplie(nb As Integer, fois As Integer) As Integer If fois = 0 Then Exit Function multiplie = multiplie + nb + multiplie(nb, fois - 1) End Function

---

C'est à mon avis ce qu'attend le prof.

EDIT :
si enfin l'exercice que doit faire frank 1001 a pour ennoncé celui qu'il nous a donné, sans autres précisions, ni sa méthode si mon exemple ne sont une réponse satisfaisante et frank1001 a du pain sur la planche ...
Il pourra néanmoins s'inspirer de mon exemple et... bûcher.

Bonjour,

Le problème c'est qu'on a jamais vu de programme en VB écrit comme cela. Donc vu que le mien fonctionne, je pense garder celui là que j'ai fait, je le montrerai à ma prof pour voir ce qu'elle en pense.

Mais ce sont mes début de VB, je suis seulement en première année de BTS informatique de gestion !:D

Merci quand même.

ouais...

le vrai problème est que :

1) je n'utilise que très rarement la récursivité, mais que, sans une seule année de cours, elle me vient immédiatement à l'esprit lorsque nécessaire.
2)

Citation:

---

Je dois écrire un algo qui permet de simuler la multiplication par l'addition.

---

sans aucune autre précision, implique beaucoup de choses...

Je te donne déjà la plus simple de ces "petites" choses :
le signe du nombre, celui du facteur et enfin la conjugaison de ces 2 signes...

Ma timidité m'impose de ne pas aborder la "chose" encore plus gênante, dans cette affaire ...(devine la)

Bonne étude.

SAlut
@ucfoutu : peut etre le decimal :)
A++
Qwaz

Un grand salut à toi, Qwazerty ;)

(mais fais gaffe, quand même ! décimal est peut-être un gros mot :lol:)
Ou comment, maintenant :

- soit changer l'énoncé de l'exercice
- soit parvenir à exprimer la division à l'aide de l'addition/soustraction

Amitiés

Une erreur de fond dans cet algorithme est d'utiliser une boucle While : boucle généralement utilisée lorsque l'on ne sait pas à l'avance combien de fois il sera nécessaire de la répéter.

A partir du moment où l'on connait le nombre de fois que l'on doit répéter une boucle, ton prof d'algo préfèra toujours te voir utiliser l'ago "Pour" plutot qu'un "Tant que"

Soit en VB :

Code:

---

1 2 3 4 5

resultat = 0 For i = 1 to nbr1 resultat = nbr2 + resultat Next i

---

Il y a egalement une amelioration pour optimiser ...

pense bien que 2 x 4 ou 4 x 2 c'est identique ...

par consequent il vaut mieux faire 2 x 4 (4 + 4) plutot que 4 x 2 (2 + 2 + 2 + 2)


donc ton coefficient multiplicateur doit etre le plus petit ;)

et effectivement la methode de recursivite s'impose d'elle meme...

Code:

---

1 2 3 4 5 6 7 8

mult(res, coef, n) as double   if coef = 0 then return res else res = res + n coef=coef-1 res = mul(res, coefm n)

---

Citation:

---

Envoyé par ucfoutu

Bonjour,

algo pour algo, j'en aurais alors fait une fonction récursive,

du genre (exemple) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Command1_Click() Dim nombre As Integer, mult As Integer nombre = 11 mult = 6 MsgBox multiplie(nombre, mult) End Sub   Private Function multiplie(nb As Integer, fois As Integer) As Integer If fois = 0 Then Exit Function multiplie = multiplie + nb + multiplie(nb, fois - 1) End Function

---

C'est à mon avis ce qu'attend le prof.

EDIT :
si enfin l'exercice que doit faire frank 1001 a pour ennoncé celui qu'il nous a donné, sans autres précisions, ni sa méthode si mon exemple ne sont une réponse satisfaisante et frank1001 a du pain sur la planche ...
Il pourra néanmoins s'inspirer de mon exemple et... bûcher.

---

J'en ai sauté tout un bout, de la discussion, pour élucider ceci:

Pour être moi-même étudiante en programmation, et que le principe de la multiplication par l'addition est un classique de l'exercice sur les boucles, je peux affirmer ceci sans trop de risque de me tromper: Je ne crois pas que franck1001 en soit à la récursivité. Or, tu propose une fonction récursive. Faudrait pas mettre la charrue devant les bœufs. ;)

Bon, maintenant, je retourne lire le reste de la discussion. Histoire de voir si mes bœufs ne sont pas en train de brouter les fleurs du presbytère. Si c'est le cas, je les renvoie au champ illico.

[Edit] Au champ, les bœufs!

Gio,

Arrêtez donc avec vos fonctions récursives.

La récursivité est une belle chose conceptuelle, mais en pratique, l'expérience montre qu'il vaut mieux l'éviter chaque fois qu'on le peut sans problème.

Et là, on est typiquement dans un cas où elle est totalement superflue. :)

Vos propositions là-dessus me font penser à la fameuse utilisation de la récursivité pour calculer une factorielle, ce qui est totalement stupide, et de plus n'encourage pas les débutants à réellement creuser à quoi ça peut servir, alors qu'il est bien sûr des cas où c'est bien pratique, mais on leur montre rarement ces cas là. :)

Citation:

---

Envoyé par droggo

Gio,

Arrêtez donc avec vos fonctions récursives.

La récursivité est une belle chose conceptuelle, mais en pratique, l'expérience montre qu'il vaut mieux l'éviter chaque fois qu'on le peut sans problème.

Et là, on est typiquement dans un cas où elle est totalement superflue. :)

Vos propositions là-dessus me font penser à la fameuse utilisation de la récursivité pour calculer une factorielle, ce qui est totalement stupide, et de plus n'encourage pas les débutants à réellement creuser à quoi ça peut servir, alors qu'il est bien sûr des cas où c'est bien pratique, mais on leur montre rarement ces cas là. :)

---

Pas dans le cas d'un exercice de compréhension. Mais, en effet, pour calculer 4 * 8, la récursivité n'est pas vraiment utile. Mais pour trier une grande quantité de données, là, on a quelque chose de performant.

Ceci dit, et en gris pour faire comme si je chuchotais, si ça t'embête qu'on la ramène avec la récursivité, t'as qu'à ne pas en ajouter. À prendre sur le ton de la blague, bien entendu. Loin de moi l'idée de choquer qui que ce soit. ;)

Bonjour
selon l'algo...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Sub main()   Dim nbr1,nbr2,resultat As integer   nbr1 = InputBox("Saisir un premier nombre") nbr2 = InputBox("Saisir un deuxième nombre")   resultat = 0   for i=0 to nbr2-1 resultat=resultat+nbr1 next i   MsgBox ("Le resultat de la multiplication est de : " & resultat)   End Sub

---

j'ai pas essayé mais ça devrait marcher

Code:

---

Dim nbr1 As integer,nbr2 As integer,resultat As integer

---

Citation:

---

Envoyé par Mr NGANZI

j'ai pas essayé

---

Essai, même sur un bout de papier

Motif de l'edit
J'aime mieux le for i=0 to nbr2-1 ;)

Bonjour,

Je n'ai pas encore vu les Pour...

Et j'ai vu les fonctions à peine aujourd'hui, donc je pense que la première solution est celle qui est le plus adapté à mon nivau actuel.

Merci encore pour toute cette aide.:D