Programmer le mastermind en pascal

Fermé
steeve - 26 mai 2003 à 19:46
heyquem Messages postés 759 Date d'inscription mercredi 17 juin 2009 Statut Membre Dernière intervention 29 décembre 2013 - 7 juin 2012 à 17:27
Salut a tous.j'ai un projet informatique a faire mais je ne suis pas trés doué donc c'est pour ça que je sollicite toutes les personnes qui pourront m'aider.


le but du jeu est de trouver une combinaison de couleurs en un minimum de coups.la combinaison de couleurs est choisie soit par un joueur soit aleatoirement par l'ordinateur.A chaque coup, le joeueur donne une combinaison.L'ordinateur indique alors le nombre de couleurs bien placées et le nombre de couleurs mal placées.

On demande un programme en pascal realisant ce jeu avec les possibilités suivantes:
1_le joueur peut choisir la difficulté:la longueur de la combinaison(4,5ou 6) et le nombre de couleurs possibles(6,7ou8).
(les couleurs peuvent etre représentées par des lettres(R,V,B,J,O,N,G,M,pour rouge,vert,bleu,jaune,orange,noir,gris,marron)

2_la combinaison est choisie soit par un joueur,soir aleatoirement par l'ordinateur.

3_le joueur peut abandonner et afficher la solution à tout moment.

4_le nombre maximum de coups est 12.

5_le joueur peut enregistrer la partie a tout moment dans un fichier.

6_le joueur peut reprendre une partie enregistrée.

7_les meilleurs scores sont enregistrés dans un fichier.on peut les afficher avnt de commencer une partie.

merci a tous ceux qui aideront et a tous ceux qui auront au moins essayés de m'aider. a+

6 réponses

voila ce que j'ai fait.en plus c'est faux et je ne sais pas pourquoi.




program master_mind;
uses wincrt;
type comb=array[1..8] of char;
var
n:integer;
a:char;
s:comb; {creation du tableau avec la solution}
r:comb;
l,c :integer;
procedure difficulte(var l,c:integer);
{l:longueur du tableau,c nombre couleurs}

begin
writeln ('quelle difficulte voulez-vous?(4,5 ou 6pions)');
readln(l);
writeln ('combien de couleurs voulez-vous? (6,7 ou 8 couleurs)');
readln(c);
end;

procedure rdm (var car:char;c:integer);
var
p:integer;
begin
p:=random(c);
case p of
0:car:='R';
1:car:='V';
2:car:='B';
3:car:='O';
4:car:='J';
5:car:='N';
6:car:='G';
7:car:='M';
end;
end;

procedure aleatoire (var T:comb;l,c:integer);
var
i,j :integer;
begin
randomize;
for i:=1 to l do rdm(t[i],l)
end;

procedure saisie(var h :comb;l,c:integer);
var i :integer;
begin
writeln ('vous avez le droit d'utiliser les',c,'premieres couleurs');
for i:=1 to l do
begin
writeln ('entrer la couleur du ',i,'eme pions (R,V,B,O,J,N,G,M');
readln (H[i]);
end;
end;

procedure affichage_sol (var g:comb ;
l:integer);
vari : integer;
begin
fori:=1 to l do
begin
for i:=1 to l do
begin
write (G[i],' ');
end;
end;

function nbcouleur (G:comb; x:char;l:integer):integer
var i,s:integer;
begin
s:=0;
for i:=1 to l do
if G[i]=x then
s:=s+1;
nbcouleur:=s;

end;
3
ca marche pas a la fin
0
j'ai trouvé des erreurs la fonction error in statement j'ai changé la place de la fonction et encore il y
>y a <code>
y a un erreur le-mastermind-eny a unexpected end of file
0
2Q3AWS4EDR6FT7I8JOPKLèò+à
7 juin 2012 à 12:34
1
0
2Q3AWS4EDR6FT7I8JOPKLèò+à
7 juin 2012 à 12:35
WA SIR alli khtare3 had le jeu nnnnnnnnnnnnnnn
0
Marmot Messages postés 579 Date d'inscription lundi 14 janvier 2002 Statut Membre Dernière intervention 17 août 2006 69
26 mai 2003 à 21:24
Salut a tous.j'ai un projet informatique a faire mais je ne suis pas trés doué donc c'est pour ça que je sollicite toutes les personnes qui pourront m'aider.

Pourquoi tu fais des études d'informatique si tu n'es pas 'très très doué' ?
0
salut marmot.
je ne fais pas des etudes en informatique mais en physique chimie et on a un projet obligatoire.j'ai commencé a le faire mais il fonctionne pas.donc voila je crois que je vais mettre ce que j'ai fait et ceux qui pourront me corriger le feront peut etre.voila
a+
0
heyquem Messages postés 759 Date d'inscription mercredi 17 juin 2009 Statut Membre Dernière intervention 29 décembre 2013 131
7 juin 2012 à 13:48
salut,

Si on t'oblige à utiliser Pascal, c'est navrant, parce que Pascal est dépassé.
Avec Python, tu aurais un confort de développement supérieur qui te faciliterait la réflexion sur l'algorithme.
0
fiddy Messages postés 11069 Date d'inscription samedi 5 mai 2007 Statut Contributeur Dernière intervention 23 avril 2022 1 844
7 juin 2012 à 14:09
Heyquem,
Son post date maintenant ^^.
0
heyquem Messages postés 759 Date d'inscription mercredi 17 juin 2009 Statut Membre Dernière intervention 29 décembre 2013 131
7 juin 2012 à 14:16
J'avais vu. Mais ce n'est pas si vieux
Merci
0
fiddy Messages postés 11069 Date d'inscription samedi 5 mai 2007 Statut Contributeur Dernière intervention 23 avril 2022 1 844
7 juin 2012 à 16:46
9 ans c'est pas vieux ? oO
0
dommage j'avais fait le même projet en pascal en DUT mais je l'ai perdu !!!
0
Programmer le mastermind en pascal
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ce programme n'est juste il y a 1 erreur.
0
c'est faux . il y a des plusieurs erreurs.........????????????????????????????
0