Discussion :

[med.ycf]

Bonjour à tous,

il y a un exercice que je n'arrive pas à traiter :

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 :

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

[EpiTouille]

Bonjour, cette fonction devrais faire ton bonheur

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

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

[l_autodidacte]

NON.
On n'en a pas besoin car il s'agit d'une information à saisir jusqu'à satisfaire la condition 2<= NoTable <= 9.

[med.ycf]

mrc l'ami

[Roland Chastain]

mrc

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

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