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
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
A voir également:
- Programmer le mastermind en pascal
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Turbo pascal download - Télécharger - Édition & Programmation
- Technique mastermind ✓ - Forum Loisirs / Divertissements
- Programmer message messenger ✓ - Forum Facebook
- My pascal - Télécharger - Édition & Programmation
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;
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
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é' ?
Pourquoi tu fais des études d'informatique si tu n'es pas 'très très doué' ?
heyquem
Messages postés
759
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
29 décembre 2013
130
7 juin 2012 à 13:48
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.
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.
fiddy
Messages postés
11069
Date d'inscription
samedi 5 mai 2007
Statut
Contributeur
Dernière intervention
23 avril 2022
1 816
7 juin 2012 à 14:09
7 juin 2012 à 14:09
Heyquem,
Son post date maintenant ^^.
Son post date maintenant ^^.
heyquem
Messages postés
759
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
29 décembre 2013
130
7 juin 2012 à 14:16
7 juin 2012 à 14:16
J'avais vu. Mais ce n'est pas si vieux
Merci
Merci
fiddy
Messages postés
11069
Date d'inscription
samedi 5 mai 2007
Statut
Contributeur
Dernière intervention
23 avril 2022
1 816
7 juin 2012 à 16:46
7 juin 2012 à 16:46
9 ans c'est pas vieux ? oO
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
15 mars 2011 à 17:15
Modifié par hassouna le 27/06/2011 à 12:16
7 juin 2012 à 12:34
7 juin 2012 à 12:35