Programme permettant de réviser la multiplication

Version imprimable

Bonjour à tous,

il y a un exercice que je n'arrive pas à traiter :
Citation:
On veut écrire une procédure (reviser multi) qui demande à l'utilisateur de réciter sa table de multiplication. L'utilisateur commence par entrer un nombre entre 2 et 9 (si le nombre est incorrect, le programme redemande) ; ensuite, le programme affiche une à une les lignes de la table de multiplication de ce nombre ,en laissant le résultat vide et en attendant que l'utilisateur entre le résultat. Si celui ci est correct, on passe à la ligne suivante, sinon on affiche un message d'erreur donnant la bonne valeur et on continue. Si toutes les réponses sont correctes, on affiche une message de félicitation sinon on affiche un message donnant le nombre d'erreurs. Créer 2 programmes, un avec la boucle for et l'autre avec repeat.
On représente ci-dessous une exécution possible :
valeur de n:12
ressayez:la valeur doit être comprise entre 2 et 9
valeur de n:6
1*6=6
2*6=12
3*6=15
erreur! 3*6=18 et non 15
.
.....
.....
Voilà ce que j'ai fait :
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 program multiplication; uses crt; var n:integer; procedure multi(x:integer); var i,s,k,p:integer; begin repeat read(x); until (n>=2) and (n<=9); i:=0; s:=0; repeat i:=i+1; p:=n*i; write(n,'*',i,'='); read(k); if p<>k then begin writeln('erreur le produit est',p,'et non',k); end; until i>=10; if (p=k) and (s=0) then write ('bravo'); else write('le nombre d'erreur est',s); end; begin write('valeur de n'); read(n); multi(n); end.
Ce qu'il y a c'est que je pense que mon programme est incorrect malgré qu'il s'exécute et puis, pour la boucle for, j'ai essayé mais je n'y suis pas arrivé ; donc je vous demande de l'aide svp.
Bonne journée.

Bonjour, cette fonction devrais faire ton bonheur :)

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 reviser_multi;
 
uses crt;
 
procedure ReviserTable;
var
	NoTable 			: Integer;
	NbBonneReponse 		: Integer;
	ConteurTable		: Integer;
	ReponseUtilisateur	: Integer;
begin
	NbBonneReponse := 0;
 
	(* Récupérer le numéro de table *)
	repeat
		Write('Rentrez un numéro de table à réviser : ');
		Readln(NoTable);
	until (NoTable >= 2) and (NoTable <= 9);
 
	(* Parcourir les élements*)
	for ConteurTable := 1 to 10 do
	begin
		Write(NoTable, ' * ', ConteurTable, ' = ');
		Readln(ReponseUtilisateur);
 
		(* La réponse est juste *)
		if (ReponseUtilisateur = NoTable * ConteurTable) then
		begin
			NbBonneReponse := NbBonneReponse + 1;
		end
 
		else
		(* La réponse est fausse *)
		begin
			Writeln('La réponse était : ', ConteurTable * NoTable);
		end;
 
	end;
 
	(* On fait un résumé à l'utilisateur *)
	if (NbBonneReponse = 10) then
	begin
		Writeln('Félicitation !');
	end
	else
	begin
		Writeln('Vous avez commis ', 10 - NbBonneReponse, ' !');
	end;
 
end;
 
begin
	ReviserTable;
end.

23/02/2014, 21h34
med.ycf

oui c'est vraiment cool,mais j'ai une question:
pourquoi on a pas mis un conteur i:=i+1; dans la premiere boucle repeat normalement on doit le faire pour que la boucle repeat doit se repeter ??
mrc pour votre aide.
24/02/2014, 16h37
l_autodidacte

NON.
On n'en a pas besoin car il s'agit d'une information à saisir jusqu'à satisfaire la condition 2<= NoTable <= 9.
24/02/2014, 19h03
med.ycf

mrc l'ami ;)
24/02/2014, 19h46
Roland Chastain

Citation:

Envoyé par med.ycf

mrc

Merci de bien vouloir consulter les règles du forum.

Citation:

L'utilisation du langage SMS est proscrite sur le forum.