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