Discussion :

[aristideman]

Bonjour !!

Je dois résoudre un exercice. Je l'ai déjà résolu mais je ne suis pas satisfait de cet algorithme.
C'est un jeu à deux Joueurs. Le Premier Joueur saisit un mot à l’abri du deuxième Joueur, que ce dernier doit deviner puis le saisir.

Mais le problème est que lorsque le premier joueur saisit le mot, il reste visible et donc le deuxième joueur peut jeter un coup d’œil dessus et le voir.

Problème: Je voudrais faire de sorte que dès qu'une lettre est saisie, elle est transformée en point de sorte que le deuxième joueur ne pourra voir que des points apparaître et ne pourra pas tricher; (par exemple pour se connecter sur le forum Pascal, l'identifiant est en clair ; cependant, dès que vous tapez la première lettre du mot de passe, elle est transformée en point).

Merci de me donner les idées pour que je complète cet algorithme de jeux à deux joueurs.

[l_autodidacte]

Salut et bienvenu sur DVP.
D'habitude, on ne donne pas de solution toute faite; mais pour t'encourager à revenir sur ce forum, on peut te donner un petit coup de main avec ce

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
Uses Crt;
VAR
   S:String;
   Rep:Char;
Begin
   Write('Entrer un mot : ');
   S:='';
   Repeat
     Rep:=ReadKey;
     S:=S+Rep;
     If Ord(Rep) In [65..90 , 97..122] Then {plages des lettres}
    {ou encore If Ord(UpCase(Rep)) In [65..90] Then }
       begin Write('*');end;
   Until (Rep=#27) Or (Rep=#13);{Caractère Esc ou Entrée}
   Writeln;
{Pour tester, on utilise ce code ; la variable S stocke le mot ou la chaîne de cararctères entrée : }
   Write('Afficher le mot [O/N] ? ');
   Repeat
     Rep:=ReadKey;
   Until Upcase(Rep) In ['O','N'];
   Writeln;
   Case UpCase(Rep) Of
    'O': begin Write(S);readln;End;
    'N':  Halt(0);
   End;
End.