Programmer le mastermind en pascal
steeve
-
heyquem Messages postés 808 Statut Membre -
heyquem Messages postés 808 Statut Membre -
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+
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; -
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é' ? -
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
-
