Programmer le mastermind en pascal
steeve
-
heyquem Messages postés 759 Date d'inscription Statut Membre Dernière intervention -
heyquem Messages postés 759 Date d'inscription Statut Membre Dernière intervention -
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+
A voir également:
- Technique mastermind
- Logiciel dessin technique gratuit - Télécharger - CAO-DAO
- Notice technique pdf - Guide
- Faux support technique - Accueil - Arnaque
- Pcs problème technique aujourd'hui - Forum Consommation & Internet
- Msi n1996 fiche technique ✓ - Forum Carte-mère/mémoire
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;
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;
zozo
ca marche pas a la fin
hassouna
j'ai trouvé des erreurs la fonction error in statement j'ai changé la place de la fonction et encore il yy a un erreur le-mastermind-eny a unexpected end of file
2Q3AWS4EDR6FT7I8JOPKLèò+à
1
2Q3AWS4EDR6FT7I8JOPKLèò+à
WA SIR alli khtare3 had le jeu nnnnnnnnnnnnnnn
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é' ?
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