Discussion :

[20cents]

Bonjour à tous,

Alors voici mon problème, je suis à ma première année de programmation mais je ne parviens pas à faire tourner ce programme ou plutôt il n'affiche pas ce qu'il devrait afficher ! Alors voici ce qu'il mais demandé :

Ecrire un programme qui demande à l'utilisateur 2 nombres entiers positifs N1 et N2. Le programme affichera alors tous les nombres entiers compris entre ces deux nombres, sauf les multiples de 3 et de 5.

Voici mon code :

---------------------------------------------------------------------------

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
Private Sub main()
 
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim i As Integer
 
Do
n1 = InputBox("Entrez le premier nombre entier positif: ")
n2 = InputBox("Entrez le deuxième nombre entier posotif: ")
Loop Until n1 < n2
n3 = 0
For i = n1 To n2
 If i Mod 3 = 0 And i Mod 5 = 0 Then
    n3 = 0
 Else: If i Mod 3 > 0 And i Mod 5 > 0 Then n3 = n3 + 1
 End If
Next i
MsgBox ("Nombres entiers compris entre ces deux nombres sauf les multiples de 3 et de 5 :" & n3)
 
End Sub

---------------------------------------------------------------------------

Qu'est ce qui ne va pas pour que mon programme m'affiche toujours 0 ?

Merci d'avance...
20cents

[SfJ5Rpw8]

bonjour , est bienvenue sur le forum.. déjà as tu lu les régles .. du dit forum ..? modifie ton titre ..et rajoute y le tag approprié ( en modifiant ton permier post .. et tu rajoute.. [VB6] .. par exemple..)


ensuite relis-ton code ... et voir la position remise à 0 de ton compteur n3. (la deuxiéme ..) . et ton affichage résultat..?.. n'y aurai t'il pas un probléme ?

[20cents]

Désolé de ne pas avoir appliqué la règle mais ca ne se passera plus la prochaine fois!
Quand au programme pour tu êtres plus précis? J'ai décalé mon deuxième compteur plus vers la gauche quand à l'affichage du résultat je ne vois pas bien le problème! Pouruoi cela m'affiche toujours 0? J'ai fait le test avec 1 et 15, et il me met toujours 0. Bizare nan? Merci pour la réponse rapide je crois que beaucoup de gars de ma classe vont venir chercher de l'aide ici plus tard

20cents

[SfJ5Rpw8]

et le résultat à touver c'est combien 8 ? le nombre .... Un compteur ?

et pour ce qui est des régles il y en as une que tu devrai lire :

4.12. lycéen, collégien, étudiant, (bref un apprenti développeur)

essai de repenser cette partie du code :

Code :

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

1
2
3
4
 
 If i Mod 3 = 0 And i Mod 5 = 0 Then
    n3 = 0
 Else: If i Mod 3 > 0 And i Mod 5 > 0 Then n3 = n3 + 1

? il y as beacoup de if.. ? non ?.. pense aussi qu'elle est exécuté as chaque tour de boucle .. ( fais toi un dessin à la limite .. en écrivant les variations des valeurs de chacune des variables.. à chaque tour de boucle for..)

[jmfmarques]

Voilà un problème bien facile à résoudre, pour peu que l'on commence par un tout petit algo... ou même du français pur et simple. Et je suis stupéfait de ce que ce soit là une question de fin d'année
Notre demandeur a-t-il commencé par là, au moins ?
Si oui :
qu'il nous montre ce raisonnement par algo ou par français ...
Si non : qu'il s'y mette sans attendre ... C'est le meilleur service qu'on puisse lui rendre !
Il s'agit d'un examen, nous dit-il...
un code tout fait ne lui rendra certainement pas service....

[20cents]

Ce n'est pas un programme de fin d'année nan! C'est un programme de début d'année auquel le prof ne m'a pas encore donné de solution! Pour le moment nous faisons les chaînes de caractères et ca bizarement ca va! J'ai déja fait un GNS mais mal je crois. Mon algorithme n'a pas l'air de m'aider fort alors que c'est la partie la plus importante d'un programme si on réussi ca on résussi le codage! Mais moi nan...