Aide pour un programme pascal Fermé

Question

bonjour, 

j'aimerais faire un programme du jeu mastermind en pascal (c'est un mini projet que je sois faire), et j'aurais besoin de votre aide pour corriger et améliorer le programme que j'ai écris , je vous signale que je suis débutant, je connais à peine les procédures, les fonctions, les tableaux les enregistrementrs ... dans mon programme j'aimerais integrer une matrice qui affiche les differentes tentatives effectuées pour trouver la combinaison secrète (cette matrice va donc être actualisée et affichée à chauqe tentative), j'aurais besoin que vous m'aidiez pour cela et que vous me montriez ce que je sois ajouter et/ou enlever pour améliorer mon programme.  

Voici le programme 

rogram mastermind;

Type t_combinaison=string[4];
t_frequence=array[1..6] of integer;

Procedure Initial (C:t_combinaison; T:t_frequence);
Var i,j:integer; A:char;
Begin
randomize ;
for i:=1 to 4 do
begin
random(A)
C[i]:=CouleurVersNum(A)
end;
for i:=1 to 4 do
begin
j:=CouleurVersNum(C[i]);
T[j]:=T[j]+1;
end;
end;

Function CouleurVersNum ( Coul : Char) : Integer;
Var nb : Integer;
Begin
Case Coul Of
'R': nb := 1;
'B': nb := 2;
'V': nb := 3;
'J': nb := 4;
'N': nb := 5;
'O': nb := 6;
End;
CouleurVersNum := nb
End;


Procedure Essai (Var E : t_Combinaison ; Var F : t_Frequence);
Var i, j ,nb : Integer;
Begin
For j := 1 To 6 Do
F[j] := 0;
Write('Donner une combinaison ');
ReadLn(E);
For i := 1 To 4 Do
Begin
nb := CouleurVersNum (E[i]);
F[nb] := F[nb]+1;
End;
End;

Procedure Resultat(C, E : t_Combinaison; T, F : t_Frequence);
Var i, j, nb, x, y : Integer;
Begin
x := 0;
For i := 1 To 4 Do
If C[i] = E[i]
Then Begin
x := x + 1;
nb := CouleurVersNum(C[i]);
F[nb] := F[nb]-1;
T[nb] := T[nb]-1;
End;
y := 0;
For j := 1 To 6 Do
If  (T[j] > 0) AND (F[j] > 0) Then
If F[j] >= T[j]
Then y := y + T[j]
Else y := y + F[j];
WriteLn('Valeurs de x et y pour cet essai : x= ', x , ' et y = ', y);
End;

VAR C, E : t_Combinaison;
F, T : t_Frequence;
Nbessai : Integer;
BEGIN
Initial (C, T);
Nbessai := 0;
Repeat
NbEssai := NbEssai + 1;
Essai (E, F);
ResulTat ( C, E, T, F)
UNTIL (E=C) OR (NbEssai=10);
END.



Merci d'avance.

KX · Answer

Décortiquons tout ça...   

Déjà, je fais copier-coller, et ça me met une erreur ligne 12, sur random(A)   
Vu comment tu l'utilises avec C[i]:=couleurVersNum(A) à la ligne d'après, je pense que ce que tu veux faire est plutôt C[i]:=1+random(6); mais dans ce cas C ne doit pas être un string[4] mais un array[1..4] of 0..5 (l'utilisation de chiffres plutôt que des char va te simplifier considérablement la vie et couleurVersNum ne serviras plus à rien !)   

Remarque :   
* Très vite on voit qu'on se retrouve avec des 4, des 5 des 6, et on s'y perd, si tu veux augmenter la difficulté ça va être un vrai casse-tête pour tout changer, le mieux est donc de mettre des constantes dans ton code.   
* Il est préférable de passer tes array par référence c'est à dire avec le mot clé var pour améliorer les performances   
* Randomize, doit être lancé une seule fois, juste après le BEGIN du programme.   
* Le t_ est plutôt embêtant à promener, le nom du type est suffisamment explicite !   

Voici donc à quoi pourrait ressembler le début de ton code en prenant en compte mes remarques :   

program mastermind;   

const   
     NB_CHIFFRES = 4;   
     NB_COULEURS = 6;   

type   
    chiffre = 1..NB_CHIFFRES;   
    couleur = 1..NB_COULEURS;   
    combinaison=array[chiffre] of couleur;   
    frequence=array[couleur] of integer;   

function couleurAleatoire:couleur;   
begin   
     result:=1+random(NB_COULEURS);  // entre 1 et NB_COULEURS inclus   
end;   

procedure initial(var c:combinaison; var f:frequence);   
var ch:chiffre; co:couleur;   
begin   
     for ch:=1 to NB_CHIFFRES do   
     begin   
         co:=couleurAleatoire;   
         c[ch]:=co;   
         inc(f[co]); // inc(x) <=> x:=x+1   
     end;   
end;
Il y a toute la suite du code encore à modifier, mais le mieux est que tu le fasses toi même (moi je sais le faire ^^) pour comprendre comment réutiliser les constantes et surtout te passer des char pour les couleurs, car avec des chiffres c'est plus simple !   

Pour ta question sur la matrice, tu peux faire quelque chose comme ça :   

const   
     NB_ESSAIS = 10;   

type   
    essai = 1..NB_ESSAIS;   

    partie = record // enregistrement, on utilise le . pour accéder aux champs   
             c : array[essai] of combinaison;   
             n : essai;   
             end;   

procedure ajouterCombinaison(var p:partie; var c:combinaison);   
begin   
     if p.n < NB_ESSAIS   
     then begin   
          inc(p.n);   
          p.c[p.n]:=c;   
          end;   
end;   

procedure afficherPartie(var p:partie)   
var e:essai;   
begin   
     writeln('Récapitulatifs des ',p.n,' essais');   
     for e:=1 to p.n do   
         afficherCombinaison(p.c[e]);   
end;
La confiance n'exclut pas le contrôle

Aldores · Answer

dois je donc reprendre les mêmes étapes, donc les mêmes procedures et fonctions avec les modifications suggérées ?

Aldores · Answer

J'ai tenu compte des suggestions faites et voilà à quoi j'arrive :

code
program mastermind;

const
NB_CHIFFRES = 4;
NB_COULEURS = 6;
NB_ESSAIS = 10;
type
chiffre = 1..NB_CHIFFRES;
couleur = 1..NB_COULEURS;
essai = 1..NB_ESSAIS;
combinaison=array[chiffre] of couleur;
frequence=array[couleur] of integer;
partie = record // enregistrement, on utilise le . pour accéder aux champs
c : array[essai] of combinaison;
n : essai;
end;

function couleurAleatoire:couleur;
begin
result:=1+random(NB_COULEURS); // entre 1 et NB_COULEURS inclus
end;

procedure initial(var c:combinaison; var f:frequence);
var ch:chiffre; co:couleur;
begin
for ch:=1 to NB_CHIFFRES do
begin
co:=couleurAleatoire;
c[ch]:=co;
inc(f[co]); // inc(x) <=> x:=x+1
end;
end;

procedure ajouterCombinaison(var p:partie; var c:combinaison);
begin
if p.n < NB_ESSAIS
then begin
inc(p.n);
p.c[p.n]:=c;
end;
end;

procedure afficherPartie(var p:partie)
var e:essai;
begin
writeln('Récapitulatifs des ',p.n,' essais');
for e:=1 to p.n do
afficherCombinaison(p.c[e]);
end;

Procedure Essai (Var c : combinaison ; Var f : frequence);
Var i, j ,nb : Integer;
Begin
For j := 1 To NB_COULEURS Do
f[j] := 0;
Write('Donner une combinaison ');
ReadLn(c);
For i := 1 To NB_CHIFFRES Do
Begin
nb := c[i];
f[nb] := f[nb]+1;
End;
End;

Procedure Resultat(c, d : combinaison; t, f : frequence);
Var i, j, nb, x, y : Integer;
Begin
x := 0;
For i := 1 To NB_CHIFFRES Do
If d[i] = c[i]
Then Begin
x := x + 1;
nb := C[i];
f[nb] := f[nb]-1;
f[nb] := t[nb]-1;
End;
y := 0;
For j := 1 To NB_COULEURS Do
If (t[j] > 0) AND (f[j] > 0) Then
If f[j] >= t[j]
Then y := y + t[j]
Else y := y + f[j];
WriteLn('Valeurs de x et y pour cet essai : x= ', x , ' et y = ', y);
End;
/code

Il ne me reste que le programme principal à écrire mais je trouve que c'est dur d'ordonner tout ça, tu pourrais m'aider s'il te plaît ? ca serais très sympa vu que c'est la première fois que j'écris un programme pascal sans être guidé (vu que c'est un mini projet) et vu que je ne suis pas très doué en programmation. S'il ya d'autres remarques ou suggestions, elles sont le bienvenue !

merci d'avance.

Aldores · Answer

j'ai pu ajouter des choses à mon programme principal, mais il y a un truc bizarre, c'est que quand on tape la première combinaison, p affiche une valeur bizarre qui ne correspond pas a la combinaion proposée, mais après quand je sasis une 2éme combinasion, p affiche cette fois la combinaison bizarre et la toute première que j'ai proposé, il ya donc un décalage, mais je ne sais pas ou et je ne sasi pas comment est générée cette combinaison qui apparait en premier.
la 2ème chose, c'est que dans le programme principal, toute la partie après le until n'agit pas a l'execution comme si elle était absente, je ne sais pas pourquoi elle n'inytervien pas.

peux-tu me dire ce qui ne va pas stp ?
Je te mets le programme en entier au cas ou ...

program mastermind;

const
NB_CHIFFRES = 4;
NB_COULEURS = 6;
NB_ESSAIS = 10;
type
chiffre = 1..NB_CHIFFRES;
couleur = 1..NB_COULEURS;
essai = 1..NB_ESSAIS;
combinaison=array[chiffre] of couleur;
frequence=array[couleur] of integer;
partie = record // enregistrement, on utilise le . pour accéder aux champs
c : array[essai] of combinaison;
n : essai;
end;

function couleurAleatoire:couleur;
var result:integer;
begin
result:=1+random(NB_COULEURS); // entre 1 et NB_COULEURS inclus
couleurAleatoire:=result;
end;

procedure initial(var c:combinaison; var f:frequence);
var ch:chiffre; co:couleur;
begin
for ch:=1 to NB_CHIFFRES do
begin
co:=couleurAleatoire;
c[ch]:=co;
inc(f[co]); // inc(x) <=> x:=x+1
end;
end;

procedure ajouterCombinaison(var p:partie; var c:combinaison);
begin
if p.n < NB_ESSAIS
then begin
inc(p.n);
p.c[p.n]:=c;
end;
end;

procedure afficherCombinaison(var c:combinaison);
var n:chiffre;
begin
for n:=1 to NB_CHIFFRES do
write(c[n],' '); // un exemple d'affichage parmi d'autres
writeln;
end;

procedure afficherPartie(var p:partie) ;
var e:essai;
begin
writeln('Recapitulatifs des ',p.n,' essais');
for e:=1 to p.n do
afficherCombinaison(p.c[e]);
end;

procedure lireCombinaison(var c:combinaison);
var i:chiffre;
begin
writeln('Donner une combinaison (',NB_CHIFFRES,' chiffres entre 1 et ',NB_COULEURS,')');

for i:=1 to NB_CHIFFRES do
begin
write('Couleur ',i,' : ');
readln(c[i]);
end;
end;

procedure essais (var c:combinaison; var f:frequence);
var i:chiffre; j:couleur; //var i,j,nb:integer;
begin
for j:=1 to NB_COULEURS do
f[j]:=0;

lireCombinaison(c);//ReadLn(c);

for i := 1 to NB_CHIFFRES do
inc(f[c[i]]);
(*begin
nb := c[i];
f[nb] := f[nb]+1;
end;*)
end;

procedure resultat(var c,d:combinaison; var t,f:frequence);
var i:chiffre; j,nb:couleur; x,y:integer;//var i, j, nb, x, y : Integer;
begin
x := 0;
for i := 1 to NB_CHIFFRES do
if d[i]=c[i]
then begin
inc(x); //x := x + 1;
nb := c[i];
dec(f[nb]);//f[nb] := f[nb]-1;
dec(t[nb]);//f[nb] := t[nb]-1;
end;

y := 0;
for j := 1 to NB_COULEURS do
if (t[j]>0) and (f[j]>0)
then
if f[j]>=t[j]
then y := y + t[j]
else y := y + f[j];

writeln('Nombres de couleurs bien placees pour cet essai: x= ', x);
writeln('Nombres de couleurs mal placees pour cet essai est y = ', y);
end;

Var c,d:combinaison;
f,t: frequence;
p:partie;
e,i:integer;
MDP:string;
OK:boolean;
Begin
Writeln ('Bonjour, vous allez jouer au jeu Mastermind Version Pascal');
Writeln ('Si vous voulez continuer sasissez le MDP : azerty');
Readln (MDP);

if MDP='azerty' then
begin
randomize;
initial(c,t);
e:=0;
OK:=false;
Repeat
inc(e);
ajouterCombinaison(p,c);
essais(c,f);
resultat(c,d,t,f);
afficherPartie(p) ;
For i:=1 to NB_CHIFFRES do
begin
if c[i]=d[i]
then OK:=true
end;
until (e=NB_ESSAIS) or (OK=true);

if OK=false
then write ('Game Over, la combinaison secrète est:');
for i:=1 to NB_CHIFFRES do
write(c[i]) ;
writeln;
writeln ('Occurance des couleurs de la combinaison secrète :');
for i:=1 to NB_COULEURS do
write (i, (' ')); writeln; write (f[i], ' ');
writeln;
writeln;
writeln ('Occurence des couleurs proposées lors de cette partie :');
for i:=1 to NB_COULEURS do
write (i, (' ')); writeln; write (t[i], ' ');
writeln ;
else writeln ('Veuillez donc fermer le programme, au revoir');
end

merci d'avance.

Aide pour un programme pascal

4 réponses

Discussions similaires