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:
- Technique mastermind
- Logiciel dessin technique gratuit - Télécharger - CAO-DAO
- Revue technique evinrude gratuite - Forum Loisirs / Divertissements
- Samsung ce0168 fiche technique - Forum Samsung
- Demande d'algo Mastermind - Forum Programmation
- Faux support technique - Accueil - Arnaque
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
131
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 844
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
131
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 844
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