Vache Taureau est un jeux ou on doit trouver un nombre formée par quatre chiffre par l’ordinateur le PLUS VITE possible et, pour ca, on se base sur les réponses qu’on reçoit:

• Si le nombre proposé contient un chiffre juste mais qui n’est pas a ca place, l’ordinateur affiche 1 Vache
• Et si le nombre proposé contient un chiffre juste et a sa place, l’ordinateur nous affiche 1 Taureau.

Enoncé:

Dans cet article, on va se proposé de crée un programme pascal qui permet de crée ce jeux!

Exemple:

Nombre choisis par l’ordinateur = 5478;
Votre proposition = 5182;
5 est a sa place et 8 est juste mais pas a ca place, donc l’ordinateur nous dira qu’il y a un taureau et une vache!

Solution:

program vache_taureau;
uses wincrt;
var n,nbp:integer;
	Nc:string;
function verifp (p:string):boolean;
var i:integer;
begin
 verifp:=false;
 i:=0;
 repeat
  i:=i+1;
 until (not(p[i] in ['1'..'9']) or (i>=4) or (i=length(p)));
 if i=4 then
  verifp:=true;
end;
procedure verif (p,Nc:string);
var i,j:integer;
    t,v:integer;
begin
t:=0;
v:=0;
 for i:=1 to length(Nc) do
 begin
 j:=0;
  repeat
   j:=j+1;
  until (Nc[i]=p[j]) OR (j>=length(Nc));
  if (Nc[i]=p[i]) then
  t:=t+1
  else if ((ji) AND (Nc[i]=p[j])) then
  v:=v+1;
 end;
 if (T<4) then
 begin
 writeln('#####################@@@@@@@####################');
 write('###  ');
 case v of
  0: write('aucune vache');
  1: write('une vache');
  2: write('deux vaches');
  3: write('trois vaches');
  4: write('quatres vaches');
 end;
 write (' et ');
 case t of
  0: write('aucun taureau');
  1: write('un taureau. Vous avancez!');
  2: write('deux taureaux. C''est bien!');
  3: write('trois taureaux. Encore un peu et vous y étes!');
  4: write('quatre taureaux!')
 end;
 writeln;
 writeln('#####################@@@@@@@####################');

 end;
end;
procedure essai(Nc:string;nbp:integer);
var p:string;
begin
 repeat
  repeat
   writeln;
   write('Donnez moi votre préposition composé de 4 chiffres : ');
   readln(p);
  until (length(p)=4);
  verif(p,Nc);
  nbp:=nbp+1;
 until (p=Nc);
 writeln('Bien jouer! C''était bel et bien le numéro ',p,' !');
 writeln('et vous avez trouver mon numéro en ',nbp,' essais!');
 if (nbp<=5) then writeln('Et c''est EXCELLENT!');
end;
begin
 randomize;
 n:=random(9000)+1000;
 str(n,Nc);
 writeln('J''ai choisis mon nombre!');
 nbp:=0;
 essai(Nc,nbp);
end.

Programme complet!

Veuillez m’informer par commentaire si vous trouvez une erreur… Merci!

Quelques explication:

• J’ai utiliser exprès le case . of car ca fait longtemps que je ne l’ai pas fait!
• la variable nbp est un compteur des essais de l’utilisateur…
• Comme vous l’avez surement remarqué, le random(9000)+1000 affecte a la variable n un un nombre entre 1000 et 9999.