-->
-->
Ecrire un programme Pascal qui Permet de simuler le je de
Motus :
Le premier joueur choisit un mot M formé seulement par
des lettres alphabétiques.
Ce mot M doit être convertit en majuscule.
Le deuxieme joueur est demandé de trouver le mot M en 2xN
essaies, avec N est le nombre de caractéres du M.
A chaque essaie, le deuxiéme joueur choisit une lettre
majus qui occupe toute les positions dans ch initialement formé par N tirés.
Le jeu s’arrête soit en trouvant le mot M, soit après
2xN essaies
program jeu;
uses wincrt;
var ph,m:string;
b:boolean;
f,i,n:integer;
c:char;
begin
repeat
gotoxy(5,3);
writeln('saisir un mot');
gotoxy(20,3);
readln(m);
i:=0;
repeat;
i:=i+1;
b:= m[i] in ['a'..'z','A'..'Z'];
until not(b) or (i=length(m));
until b;
clrscr;
n:=length(m);
for i:= 1 to n do
m[i]:= upcase(m[i]);
ph:='';
for i:= 1 to n do
ph:=ph+'-';
f:=0;
gotoxy(60,8);
writeln(ph);
repeat
repeat
gotoxy(10,5);
writeln('il vous reste ', 2*n-f, ' essais ');
gotoxy(10,7);
write('proposer une lettre majus');
gotoxy(45,7);
readln(c);
until (c) in ['A'..'Z'];
f:=f+1;
for i:= 1 to n do
if m[i]=c then ph[i]:=c;
gotoxy(60,8);
writeln(ph);
until (f=2*n) or (m=ph);
gotoxy(60,18);
if (ph=m) then
writeln ('Bravo')
else
writeln('Echec: ',m)
end.
