MASTERMIND
elguevel
Messages postés
718
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
-
5 mai 2006 à 21:35
Francky23012301 Messages postés 400 Date d'inscription samedi 6 août 2005 Statut Membre Dernière intervention 11 février 2016 - 6 mai 2006 à 20:29
Francky23012301 Messages postés 400 Date d'inscription samedi 6 août 2005 Statut Membre Dernière intervention 11 février 2016 - 6 mai 2006 à 20:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37458-mastermind
https://codes-sources.commentcamarche.net/source/37458-mastermind
6 mai 2006 à 20:29
Je pense que tu devrais imprimer ton code et le réécrire en suivant les directives de Delphiprog. Ainsi tu progressera.
Sinon c'était à la base une bonne idée : mais ficelée mais bon.. Il faut mieux se planter que de ne rien faire ;)
A+
6 mai 2006 à 16:47
Les redondances dans le code sont trop nombreuses et il eût été plus malin de déclarer un tableau avec les noms des couleurs.
Ainsi, au lieu des :
if (TD[i] = 1) then
begin
write ('Noir ');
end;
if (TD[i] = 2) then
begin
write ('Blanc ');
end;
Un simple :
Write(TableauCouleurs[i]);
TableauCouleurs serait déclaré ainsi :
TableauCouleurs : array [1..8] of string[8] = (
'Noir', 'Blanc', 'Jaune', 'Rouge', 'Orange', 'Vert', 'Bleu', 'Marron');
aurait fait l'affaire et réduirait la taille du code de 30% environ.
Sache aussi que ce n'est pas une bonne habitude d'écrire une multitude de if come tu l'as fait. Si TD[i] vaut 1, il est inutile de tester s'il vaut 2 à la ligne suivante (et ainsi de suite...).
Et, au lieu des nombreux WriteLn, une ch'tite boucle serait plus lisible.
Pour le reste, je rejoint les avis des autres membres notamment celui de Foxi : c'est courageux d'avoir fait ce jeu en mode console et ça mérite des encouragements tout de même.
6 mai 2006 à 16:14
Bizzz...
MICHELE
6 mai 2006 à 01:57
5 mai 2006 à 23:38
sinon ... le mieux aurait peut etre été de faire un vrai jolie master mind dans un paint box par exemple ...
5 mai 2006 à 22:52
Sans vouloir être vexant ton code donne la definition exacte de la notion de travail à la chaine : Lol.
A lire avec une boite d'aspirine à portée de main : 500 lignes de writeLn et 500 lignes de If ... begin. Pour se retrouver la dedans une bousole est fournit avec ??
Les nostalgiques des vieux jeux sous mode console comme on les faisait en 14/18 vont adorés ....
Conclusion : Comme Elguevel. A refaire intégralement
5 mai 2006 à 21:35
Enfin refait çà proprement stp !