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
| Program MultiplicaHER_4_3;
Var
n1,n2,cal,rep,n_m,nm_j,nm_f,nmf_p: integer;
reponse: char;
function Alea(n:integer) : integer;
Begin
Alea:=trunc(n*random);
End;
BEGIN
Randomize;
Repeat
Writeln('Combien de multiplication veut-tu faire?');
Readln(n_m);
For cal:=1 to n_m do
Begin
n1:=Alea(11);
n2:=Alea(11);
Writeln(n1,'*',n2,'=');
Readln(rep);
Begin
If rep=n1*n2
Then
Writeln('la rponse est juste.')
Else
Begin
Writeln('la rponse est fause.');
Writeln('Recommence.');
nmf_p:=nmf_p+1;
Begin
Writeln(n1,'*',n2,'=');
Readln(rep);
If rep=n1*n2
Then
Writeln('la rponse est juste.')
Else
Begin
Writeln('la rponse est toujours fause.');
nm_f:=nm_f+1;
End;
Writeln(n1,'*',n2,'=',n1*n2);
End; End;
End;
End;
nm_j:=nm_j+1;
Write('Tu as ');
Write(nm_j);
Write(' multiplications justes et ');
Write(nm_f);
Writeln(' de multiplications fausses.');
Write('Tu as fais aussi ');
Write(nmf_p);
Writeln(' de premire(s) erreur(s).');
Writeln('Une nouvelle srie de multiplication ? (O/N)');
Readln(reponse);
Until (reponse='N') or (reponse='n');
END. |
Partager