Mot de passe avec blocage au 3ème essai ?

Version imprimable

Bonjour,

Je commence a programmer en Pascal (4h de cours) alors soyez indulgent :mrgreen:

Notre prof souhaite que l'on crée un mot de passe avec un bloquage au bout du 3eme essai si celui-ci est incorrect...

Pour le moment je ne sais faire qu'un mot de passe sans bloquage à l'aide de repeat/until. Comment faire pour le bloquer au bout de 3?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Program Entrainement; Uses Wincrt; Var mot:string [10]; rep:char; Begin repeat Write('Taper votre mot de passe: '); Readln (Mot); Until (Mot='12345'); clrscr; End.
Merci d'aider un pauvre débutant ;)

08/01/2007, 19h23
M.Dlb

Il te faut utiliser un compteur, que tu incrémentes à chaque fois qu'un mot de passe est tapé. Ensuite, tu peux vérifier dans ta condition until si le mot de passe est bon ou si les trois tentatives ont été faites. Si une des deux conditions sont remplies, tu sort de ta boucle, il te suffit ensuite de tester avec un if, si le nombre de tentative est 3 ou si le mot de passe rentré est bon.

n'hésite pas si tu as besoin de plus d'infos :)
08/01/2007, 19h59
Vroom06

Merci mais comment fais-tu un compteur? :?
Si tu peux me donner un exemple, ca m'arrangerai bien.;)

Un compteur est juste une variable de type entier, initialisée à 0.

Je te donne l'algo :
Code:

1 2 3 4 5 6 7 8 compteur = 0; répète lire mot de passe; compteur = compteur + 1; jusqu'à ce que (mot de passe = '123456') ou (compteur = 3) si compteur = 3 alors blocage sinon mot de passe trouvé

Il y a une erreur dans ton algorithme wormful_sickfoot, supposons que l'utilisateur entre le bon mot de passe à la 3ième fois, le compteur aura la valeur 3 évidemment donc blocage... il faut plutôt tester le mot de passe.
Code:

1 2 3 4 5 6 7 8 9 10 compteur = 0; répète lire mot de passe; compteur = compteur + 1; jusqu'à ce que (mot de passe = '123456') ou (compteur = 3) si (mot de passe = '123456') alors mot de passe trouvé sinon blocage fin si

16/01/2007, 19h03
'ti programmeur

on peut aussi utiliser la boucle FOR.
j'avais fait ce programme en débutant en utilisant la boucle FOR je crois.
mais je trouve que le derniere alghortime est très bien.
16/01/2007, 19h08
'ti programmeur

A quoi sert l'unité "wincrt" ??:question:
16/01/2007, 21h44
Loceka

wincrt est l'unité CRT pour les programmes compilés avec Turbo Pascal for Windows (entre autre). Donc elle sert à l'utilisation d'une console sous windows pour ces programmes là.
17/01/2007, 07h33
'ti programmeur

ah ok ...
Je ne savais pas...
merci pour l'info.

salut mon frere

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program motdepasse;
uses crt;
var mot:string[20];
    rep:string;
    var i:integer;
    trouve:integer;
begin
     clrscr;
     for i:=1 to 3do
                 begin
                 writeln('entrer un mots de passe');
                 readln(mot);
                 if mot='12345' then
                 begin
                      i:=3;
                      trouve:=1;
                 end ;
     end;
if trouve=1 then begin
   writeln('le mots de passe et bonne ');
   end;
readln;
end.

merci mon frere:D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
program motdepasse;
uses wincrt;
var mot:string[20];
    i:integer;
    begin
     clrscr;
                i:=0;     
                 repeat
                 i:=i+1;
                 writeln('entrer un mot de passe');
                 readln(mot);
                 until (mot ='12345')or (i=3);
        end.

je crois ce code devra donner un résultat

24/02/2007, 09h49
krachik

Citation:

Envoyé par proff

je crois ce code devra donner un résultat

oui mais qu'est ce que tu penses du fait de pouvoir dire a l'utilisateur s'il a trouvé ou pas le bon mot de passe,dans ton code l'utilisateur ne sais pas s'il a trouvé le bon mot de passe(n'oublies pas que le programmeur n'est pas forcement l'utilisateur )8-)
@
26/02/2007, 14h01
amine6441

Citation:

Le code que prof a ecrit marche bien mais une petite remarque il faut qu'il afiche si le mot de passe qui a donne est bon ou non
;)
26/02/2007, 14h28
krachik

c'est ce ke je j'ai essaye de le faire comprendre

Citation:

Envoyé par krachik

c'est ce ke je j'ai essaye de le faire comprendre

Je propose ceci :

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
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
 
{ -ed- 
mon compilateur support le précompilateur C ou C++, 
ce qui est bien pratique... }
#define AMINE 0
 
program snippet;
 
#if 0
 procedure main_amine;
 var
  mot:string[20];
 
{ -ed- 
  rep:string;
  variable non utilisee }
 
 var i:integer; 
 { -ed- a quoi sert ce var }
 
 trouve:integer;
 { -ed- un boolean ne serait-il pas mieux adapte ? }
 
 begin
  for i := 1 to 3 do
  begin
   writeln('entrer un mots de passe');
   { -ed- beaucoup de fautes d'orthographe pour une simple ligne... }
 
   readln(mot);
   if mot='12345' then
   begin
    i := 3;
    { -ed- Mon compilateur n'aime pas que l'on modifie un indice de boucle for. 
    Ne compile pas. repeat until s'impose...}
    trouve:=1;
   end ;
  end;
 
  if trouve = 1 then begin
   writeln('le mots de passe et bonne ');
   { -ed- beaucoup de fautes d'orthographe pour une simple ligne... }
 
  end;
 end;
#endif
 
 procedure main_proff;
 var
  mot:string[20];
  i:integer;
 begin
  i:=0;     
  repeat
   i := i + 1;
   writeln('entrer un mot de passe');
   readln(mot);
  until (mot ='12345') or (i=3);
 
  { -ed- il manque l'exploitation du resultat... est-on passe ou non ? }
  if mot ='12345' then
  begin
   writeln ('Welcome to Heaven');
  end else begin
   writeln ('Go to Hell...');
  end;
 end;
 
 procedure main_ed;
 var
  mot:string [10];
  rep:integer;
  ok:boolean;
  err:boolean;
 
 begin
  rep := 0;
  repeat
   write ('Taper votre mot de passe: ');
   readln (Mot);
   ok := Mot = '12345';
   if not ok then
   begin
    inc (rep);
    err := rep = 3;
   end;
  until ok or err;
 
  if ok then
   writeln ('Welcome to Heaven');
 
  if err then 
   writeln ('Go to Hell...');
 
 end;
 
begin
#if AMINE
 main_amine;
#endif
 main_proff;
 main_ed;
 readln;
end.

MR Emmanuel Delahaye
vous reclamer qu'il y a des fotes pouvons nous savoire ou il sont?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
begin
  for i := 1 to 3 do
  begin
   writeln('entrer un mots de passe');
   { -ed- beaucoup de fautes d'orthographe pour une simple ligne... }
 
   readln(mot);
   if mot='12345' then
   begin
    i := 3;
    { -ed- Mon compilateur n'aime pas que l'on modifie un indice de boucle for. 
    Ne compile pas. repeat until s'impose...}
    trouve:=1;
   end ;
  end;
 
  if trouve = 1 then begin
   writeln('le mots de passe et bonne ');
   { -ed- beaucoup de fautes d'orthographe pour une simple ligne... }
 
  end;
 end;

:roll:

26/02/2007, 20h48
M.Dlb

Citation:

Envoyé par amine6441

vous reclamer qu'il y a des fotes pouvons nous savoire ou il sont?

Là, j'en compte 6, sans la ponctuation :)

Sinon y'en a ici :

Citation:

entrer un mots de passe
le mots de passe et bonne

Qui donne en français : "Entrez un mot de passe", et "Le mot de passe est bon".
26/02/2007, 21h03
amine6441

hhhhhhhhhhhhhhhhh
oui MR mais se sont des fotes d'ortographes
le sytaxe est bon

merci comme meme;)
26/02/2007, 21h30
M.Dlb

Oui mais l'orthographe est importante quand même ;)