Discussion :

[Tauma]

Bonjour à toutes et à tous,
J'ai l'exercice suivant à réaliser :
Exercice 3:
Écrire un algorithme qui
 permet de saisir un nombre entier n, puis
 affiche tous les entiers x dont le carré est inférieur à n

J'ai commencé par ceci :

Code :

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

1
2
3
4
5
6
7
8
Sub exercice3()
Dim n, X As Integer
    n = InputBox("Donne une valeur de n")
 
If X ^ 2 < n Then
    MsgBox (X)
End If
End Sub

Le problème : j'obtiens uniquement la valeur 0 . Je pense que ma macro fonctionne mais qu'elle se contente de me donner qu'un seul résultat, en l’occurrence le 1ère qu'elle essaye ( le "0"). Je pense que le problème vient de ma variable X mais je ne sais pas trop comment la programmer ...
Si vous avez une idée merci de me la faire partager.
Cordialement.

[78chris]

Bonjour

Il manque une boucle pour tester chaque entier.

[Tauma]

Comment dois-je procéder ?
Quelle "balise" utiliser ?
En cours nous avons vu tant que , est-ce celle ci?
J'ai déjà essayé mais le résultat est tjrs le même ( 0 ) sauf que là il se répète à l'infini . C'est à dire que lorsque je clique sur ok la fenêtre réapparaît.

[78chris]

Bonjour

FOR serait plus approprié mais WHILE peut le faire

Il ne faut pas oublier d'incrémenter X...

Où se passent tes cours ?

[Tauma]

Je pense que j'ai trouvé la solution , cela semble fonctionner correctement :

Code :

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

1
2
3
4
5
6
7
8
9
Sub exercice3()
Dim n, X As Integer
    n = InputBox("Donne une valeur de n")
For X = 0 To n
If X ^ 2 < n Then
MsgBox (X)
End If
Next X
End Sub

Merci pour ton aide.
Mes cours sont à l'Université de Bordeaux IV.
Juste par curiosité, comment aurais tu fait avec While, j'y arrive qu'avec For ...
Merci encore !

[78chris]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
Sub exercice3()
Dim n, X As Integer
    n = InputBox("Donne une valeur de n")
While X < n
If X ^ 2 < n Then MsgBox (X)
X = X+1
Wend
End Sub