A voir également:
- Technique mastermind
- Logiciel dessin technique gratuit - Télécharger - CAO-DAO
- Notice technique pdf - Guide
- Faux support technique - Accueil - Arnaque
- Samsung ce0168 fiche technique - Forum Samsung
- Mastermind ✓ - Forum 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;
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