Bonjour,

Je vous propose un nouvel élément à utiliser : Jeux mathématiques en tp7

C'est un jeu mathématique qui est en fait une boucle Repeat Until qui génère des nombres aléatoires entre 1 et 10 et il vérifie si votre résultat donnée est juste ou faux. S'il est faux il vous laisse une seconde chance.

Voici le source :
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Program MultiplicaHER_3_2;
 
 
 
Var
 
n1,n2,cal,rep,n_m: integer;
 
reponse: char;
 
 
 
BEGIN
 
     Repeat
 
     Writeln('Combien de multiplication veut-tu faire?');
 
     Readln(n_m);
 
     Randomize;
 
           For cal:=1 to n_m do
 
               Begin
 
                    n1:=trunc(11*random);
 
                    n2:=trunc(11*random);
 
                    Writeln(n1,'*',n2,'=');
 
                    Readln(rep);
 
                    If rep=n1*n2
 
                        Then
 
                            Writeln('la r‚ponse est juste.')
 
                        Else
 
                            Begin
 
                                 Writeln('la r‚ponse est fause.');
 
                                 Writeln('Recommence.');
 
                                 Begin
 
                                      Writeln(n1,'*',n2,'=');
 
                                      Readln(rep);
 
                                      If rep=n1*n2
 
                                         Then
 
                                             Writeln('la r‚ponse est juste.')
 
                                         Else
 
                                             Begin
 
                                                  Writeln('la r‚ponse est toujours fause.');
 
                                             End;
 
                                 Writeln(n1,'*',n2,'=',n1*n2);
 
                            End; End;
 
               End;
 
           Writeln('Une nouvelle s‚rie de 10 multiplication ? (O/N)');
 
           Readln(reponse);
 
     Until (reponse='N') or (reponse='n');
 
END.
Qu'en pensez-vous ?