Discussion :

[franck1001]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SfJ5Rpw8]

revoit ton test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Do While (i <= nbr1)

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

[franck1001]

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

[SfJ5Rpw8]

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

elle sert à quoi alors ta boucle...?

[franck1001]

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

[SfJ5Rpw8]

elle sert à quoi alors ta boucle...?

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

[ucfoutu]

Bonjour,

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

du genre (exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[BM42]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
i = 0
resultat = 0
 
Do While (i < nbr1)
            resultat = nbr2 + resultat
            i = i + 1
 
Loop

a+

[Mr NGANZI]

Bonjour
selon l'algo...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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