Jeux mathématique en tp7 sujet

Bonjour,

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

C'est un jeux 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 vrotre résultat donnée est juste ou faux. S'il est fax il vous laisse une seconde chance.

Voici de srcipt:

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 ?