Discussion :

[Ihaveadream]

Bonjour à tous,
alors voilà je suis nouvelle dans le monde de l'informatique et je m'adresse à vous parce que je dois créer ce programme sous Virtual Basic qui me pose problème :

« Le programme qui lit dans vos pensées en 10 questions.
Ecrire le programme qui vous demande de penser à un nombre entre 1 et 999,
- propose une valeur (le milieu d’un certain intervalle [min, max[ contenant la solution),
- attend que vous répondiez à l’aide des signes ">" et "<" si le nombre est « plus grand ou égal» ou
« strictement plus petit »,
- restreint l’intervalle des possibilités en fonction de la réponse,
- relance le processus d’interrogation jusqu’à réduire l’intervalle [min, max[ à un seul élément : le
nombre recherché. »

J'ai essayé de faire quelques trucs mais je n'y arrives pas
J'ai ceci :

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
25
26
27
28
29
30
Sub COMPTER()
Dim n As Integer
Dim i As Integer
Dim s As String
 
MsgBox "Pensez à un chiffre entre 1 et 999." & vbCr & "Je  vais le deviner. "
i = 500
s = InputBox("Est-il supérieur à" & i & " (Tapez >), égal à " & i & " (Tapez =)  ou inférieur à " & i & " (Tapez <)")
 
If s <> ">" Or s <> "<" Then
MsgBox "Erreur de caractère. Tapez < ou >"
Else
End If
 
While (s = "<")
Max = i
i = (Min + Max) / 2
s = InputBox("Est-il supérieur ou égal à " & i & "(Tapez >) ou inférieur à " & i & "(Tapez <)")
Wend
 
While (s = ">")
i = Min
i = (Min + Max) / 2
s = InputBox("Est-il supérieur ou égal à " & i & "(Tapez >) ou inférieur à " & i & "(Tapez <)")
Wend
 
MsgBox n
 
 
End Sub

Je sais qu'il faut que je fasse une boucle mais je ne maitrise pas assez ça ne doit pas être comme cela qu'il faut la faire, je suis perdue je sais plus quoi faire !

Voilà, je vous remercie de votre aide.

[patricktoulon]

bonjour

moi j'ai plus simple je vais voir mme irma

et pour être sérieux en combien de temps ton programme doit trouver

ton premier chiffre est 500 donc 499 possibilités le tout réduit en fonction des réponse "< ou>"

ça n'est pas deviner ça s'appelle une opération a 1 inconnu

au plaisir

je pourrais même ajouter que une seule boucle suffirait

boucler sur le string"< ou>"
et dans la boucle

Code :

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

1
2
if reponse ="<" then max=i
if reponse=">" then min=i

forcement ça te réduirait l’écart du bon résultat

[Ihaveadream]

bonjour

moi j'ai plus simple je vais voir mme irma

et pour etre serieux en combien de tems ton programme doit trouver

ton premier chiffre est 500 donc 499 possibilités le tout reduit en fonction des reponse"< ou>"

c'a n'est pas deviner ca s'appelle une operation a 1 inconu

au plaisir

^^ Ce n'est pas moi qui est fait cet énoncé, mais mes professeurs,
D'accord je vais essayer cette boucle merci !

@mercatog Merci beaucoup mais je ne connais pas la fonction "case" à quoi sert - elle ?

[Ihaveadream]

je pourrais meme ajouter que une seule boucle suffirait

boucler sur le string"< ou>"
et dans la boucle

Code :

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

1
2
if reponse ="<" then max=i
if reponse=">" then min=i

forcement ca te reduirais l'ecart du bon resultat

Euh je n'ai pas compris quelle serait alors la condition de la boucle ?

Tant que s <> "=" ??

[patricktoulon]

re
si la reponse est "="

tu donne le resultat donc ca n'est pas un pseudo devinage tu donne la reponse

en testant le max et min au moins pour le dernier tour c'est l'appli qui te donne le resultat

et utiliser la fonction "rnd" peut te permettre l'acceleration du processuset d'ajouter un peu de suspense unpeu comme au juste prix a la fin quand le candidat doit trouver le prix de la vitrine plutot qu'utilise ine incrementaion de 1 a chaque fois

a tu compris ?

[mercatog]

@Ihaveadream
Regarde l'aide sur Select Case, c'est plus approprié dans le cas de plusieurs conditions au lieu des If Then
Tu pourras faire le même 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
22
23
24
Sub COMPTER()
Dim i As Integer, Max As Integer, Min As Integer
Dim S As String
 
MsgBox "Pensez à un chiffre entre 1 et 999." & vbCr & "Je vais le deviner. "
i = 500
Max = 1000
Do
    S = InputBox("Est-il supérieur à " & i & " (Tapez >), égal à " & i & " (Tapez =) ou inférieur à " & i & " (Tapez <)")
    If S = "" Then
        Exit Sub
    ElseIf S = ">" Then
        Min = i
    ElseIf S = "<" Then
        Max = i
    ElseIf S = "=" Then
        Exit Do
    Else
        MsgBox "Erreur de caractère. Tapez < ou > ou ="
    End If
    i = (Max + Min) / 2
Loop
MsgBox "Bingo, le nombre deviné est " & i
End Sub

[Ihaveadream]

re
si la reponse est "="

tu donne le resultat donc ca n'est pas un pseudo devinage tu donne la reponse

en testant le max et min au moins pour le dernier tour c'est l'appli qui te donne le resultat

et utiliser la fonction "rnd" peut te permettre l'acceleration du processuset d'ajouter un peu de suspense unpeu comme au juste prix a la fin quand le candidat doit trouver le prix de la vitrine plutot qu'utilise ine incrementaion de 1 a chaque fois

a tu compris ?

Ok donc en gros je dois enlever le signe "=" , c'est vrai que c'est logique !
Que veut dire "incrémenter" ? ^^

@Ihaveadream
Regarde l'aide sur Select Case, c'est plus approprié dans le cas de plusieurs conditions au lieu des If Then
Tu pourras faire le même 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
22
23
24
Sub COMPTER()
Dim i As Integer, Max As Integer, Min As Integer
Dim S As String
 
MsgBox "Pensez à un chiffre entre 1 et 999." & vbCr & "Je vais le deviner. "
i = 500
Max = 1000
Do
    S = InputBox("Est-il supérieur à " & i & " (Tapez >), égal à " & i & " (Tapez =) ou inférieur à " & i & " (Tapez <)")
    If S = "" Then
        Exit Sub
    ElseIf S = ">" Then
        Min = i
    ElseIf S = "<" Then
        Max = i
    ElseIf S = "=" Then
        Exit Do
    Else
        MsgBox "Erreur de caractère. Tapez < ou > ou ="
    End If
    i = (Max + Min) / 2
Loop
MsgBox "Bingo, le nombre deviné est " & i
End Sub

D'accord je pense avoir compris, mais n'y aurait t - il pas un moyen avec "while" parce qu'en fait on nous a donné cela en exercice d'application du cours sur les boucles ^^.

[Ihaveadream]

En testant j'ai remarquer que quoi que je mette il s'affiche "erreur de caractère ... " même quand je mets ">" "<"

Code :

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

1
2
3
4
If s <> ">" Or s <> "<" Then
MsgBox "Erreur de caractère. Tapez < ou >"
Exit Sub
End If

[droggo]

Qia,

Il faut rendre le programme un peu moins stupide dans ses réponses, et le faire travailler comme un humain traitant ce problème : vive la dichotomie !

[mercatog]

Une variante

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
Sub COMPTER()
Dim i As Integer, Max As Integer, Min As Integer
Dim S As String
 
MsgBox "Pensez à un chiffre entre 1 et 999." & vbCr & "Je vais le deviner. "
i = 500
Max = 1000
Do
    S = InputBox("Est-il supérieur à " & i & " (Tapez >), égal à " & i & " (Tapez =) ou inférieur à " & i & " (Tapez <)")
    Select Case S
        Case "": Exit Sub
        Case ">": Min = i
        Case "<": Max = i
        Case "=": Exit Do
        Case Else: MsgBox "Erreur de caractère. Tapez < ou > ou ="
    End Select
    i = (Max + Min) / 2
Loop
MsgBox "Bingo, le nombre deviné est " & i
End Sub

[patricktoulon]

bonjour mercatog

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
 
Sub COMPTER()
Dim i As Integer, Max As Integer, Min As Integer
Dim S As String
 
MsgBox "Pensez à un chiffre entre 1 et 999." & vbCr & "Je vais le deviner. "
i = 500
Max = 1000
Do
    S = InputBox("Est-il supérieur à " & i & " (Tapez >), égal à " & i & " (Tapez =) ou inférieur à " & i & " (Tapez <)")
    Select Case S
        Case "": Exit Sub
        Case ">": Min = i
        Case "<": Max = i
        Case "=": Exit Do
        Case Else: MsgBox "Erreur de caractère. Tapez < ou > ou ="
    End Select
    i = (Max + Min) / 2
Loop
MsgBox "Bingo, le nombre deviné est " & i
End Sub

pour que ca soit du tonnerre il faudrais remplacer

Code :

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

Case "=": Exit Do

par un truc du genre dans la boucle

Code :

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

if min+1=max then exit do

juste pour avoir l'ilusion qu'il a trouver tout seul

et pour rendre un peu plus rapide incrementer i par un truc du genre

Code :

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

(rnd*max)+min