La commande randomize

Version imprimable

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:

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.
»

30/03/2009, 10h09
qi130

Bien bien bien :roll:

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
30/03/2009, 12h17
zemeilleurofgreg

Bonjour,

Citation:

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:

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:

z:=x+y

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

Regarde ça :

Code:

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:

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.

02/04/2009, 14h24
nulinfo

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