Discussion :

[nulinfo]

Bonjour à tous,

Je tente présentement de faire un programme qui prévoit un nombre aléatoire pour formuler un question d'addition. Mon problème est que mon programme me donne aussi un nombre aléatoire comme réponse !!!! Quelqu'un aurait des pistes à me soumetre.....merci à l'avance. Voici mon programme:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
« program Testaddition;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
Const max = 10;
 
Var
test : Boolean;
rep : Integer;
x,y,quest,z : Integer;
cummubon,cummuerreur : Integer;
 
 
BEGIN
Randomize;
x := Random (max);
y := Random (max);
z := Random(x +y);
quest:=0;
cummubon:=0;
cummuerreur:=0;
quest:=0;
While cummuerreur <3 do
While cummubon <6 do
BEGIN
 
repeat;
 
WriteLn ('la question est:',Random(max),'+',Random(max));
Write('La reponse est :');
ReadLn(rep) ;
quest:=quest + 1;
 
test := (rep=);
If test Then WriteLn ('Bravo, votre score cumulatif est :',cummubon)
ELSE WRITELN('Desole, la bonne reponse etait : ',z);
cummubon:=cummubon +1 ;
 
UNTIL QUEST=10 ;
END;
END.
ELSE
cummuerreur:=cummuerreur +1;
 
WriteLn (
Writeln ('Votre score cumulatif est :',cummuerreur);
 
Until quest=10;
WriteLN ('Fin du test');
ReadLn;
end;
END.
»

[qi130]

Bien bien bien

1/ x, y et z sont invariants car "calculés" en début de prog
2/ z devrait être le résultat de x+y, mais ce n'est pas le cas (z := Random(x +y); )
3/ tu ne compares jamais la réponse saisie (rep) avec la réponse théorique (z)

Tout ceci est à déplacer/coder dans ta boucle repeat

[zemeilleurofgreg]

Bonjour,

Randomize;
x := Random (max);
y := Random (max);
z := Random(x +y);
[/CODE]

quelques explications me semblent utiles :

[CODE]x := Random (max);
y := Random (max);

x vaut une valeur aléatoire comprise entre 0 et 10
y vaut une valeur aléatoire comprise entre 0 et 10

Code :

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

z := Random(x +y);

c'est ici qu'il y a un problème !
tu dis que z est égal à une valeur aléatoire entre 0 et (x+y)

donc tu dois faire simplement

Code :

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

z:=x+y

[Aos]

Oui c'est vrai qu'il est pas clair du tout ton code.

Regarde ça :

Code :

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

WriteLn ('la question est:',Random(max),'+',Random(max));

Ca n'a aucun sens...! Tu généres un X et un Y au dessus (qu'une seule fois d'ailleurs comme la déja souligné qi550 ) et tu ne le compares jamais.

De plus, ton Z doit être égale a x+y et non a Random(x+y).

Essaye comme ça mais j'ai pas vérifié :

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
31
32
33
34
35
36
37
38
39
40
41
42
 
BEGIN
Randomize;
 
quest:=0;
cummubon:=0;
cummuerreur:=0;
quest:=0;
While cummuerreur <3 do
While cummubon <6 do
BEGIN
 
repeat;
 
x := Random (max);
y := Random (max);
z := x +y;
 
WriteLn ('la question est:',x,'+',y);
Write('La reponse est :');
ReadLn(rep) ;
quest:=quest + 1;
 
 
If (z=rep) Then WriteLn ('Bravo, votre score cumulatif est :',cummubon)
ELSE WRITELN('Desole, la bonne reponse etait : ',z);
cummubon:=cummubon +1 ;
 
UNTIL QUEST=10 ;
END;
END.
ELSE
cummuerreur:=cummuerreur +1;
 
WriteLn (
Writeln ('Votre score cumulatif est :',cummuerreur);
 
Until quest=10;
WriteLN ('Fin du test');
ReadLn;
end;
END.

[nulinfo]

merci. Vos commentaires m'ont permis d'avancer....