1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Jeux
  5. Petit jeu pour noël kastet

Petit jeu pour noël kastet

Soyez le premier à donner votre avis sur cette source.

Vue 4 880 fois - Téléchargée 860 fois

Télécharger le projet
Commenter

Description

Voici pour Noël et les petits enfants un petit jeu de logique, pas très compliqué, mais c'est normal il faut leur faire plaisir, pas leur casser la tête !

Source / Exemple : 


Tout est dans le Zip

Conclusion :


Peut bien sur être améliorer en variant les difficultés !
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 14
15 déc. 2012 à 19:17
à éviter les écritures en bout d'instruction comme par exemple
if numchamp = DerChamp
then result := copy(chaine, posComaPrec + 1, length(chaine))
else result := copy(chaine, posComaPrec + 1, posComa - posComaPrec - 1);
end;

sympa ce petit jeu..et il marche bien.
code bien écrit et un bon point pour avoir eu l'idée de penser aux enfants.
Est ce qu'ils jouent encore à ce type de jeux ?
tiens ça me fait penser qu'on pourrait créer une rubrique "spécial enfants".

8/10
dubois77 Messages postés 675 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 19 février 2019 14
16 déc. 2012 à 08:05
Salut Cantador
juste une petite précision : "à éviter les écritures en bout d'instruction" :
comment faut-il l'écrire ?
j'ai cherché sur http://www.delphibasics.co.uk/Article.asp?Name=Logic, à priori c'est écrit comme cela
tu penses à cette façon peut être :
if numchamp = DerChamp
then
result := copy(chaine, posComaPrec + 1, length(chaine))
else
result := copy(chaine, posComaPrec + 1, posComa - posComaPrec - 1);
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 14
16 déc. 2012 à 18:46
Oui
dans l'article cité, on trouve les deux formules..
et puis ce n'est pas une norme mais
chez les pros, ils éclatent toutes les écritures, ce qui facilite
la lecture.
Une exception toutefois avec l'exit, le continue ou le break.
ex:if (ARecord nil) or (GridView.Control nil) then Exit;

n'oublie pas de mettre un "X" à NIVEAU
ou alors décale le texte.
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 14
20 déc. 2012 à 15:56
à noter que le chiffre en haut à gauche est le nombre de cases rouges restantes
qui n'est pas en rapport avec le niveau et aussi que le
jeu s'arrête au bout de 4 parties gagnantes.
Caribensila Messages postés 2527 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 16 octobre 2019 18
31 déc. 2012 à 20:09
Qu'il est agréable à lire, ce code !
C'est de l'eau de source ! :)))


Sinon, on évite aussi de mettre plus d'une instruction par ligne pour le débogage pas-à-pas.

Et un petit truc qui augmente les performances :
éviter
case etat of
1 : ...
0 : ...
end;

pour
case etat of
0 : ...
1 : ...
end;

Le faire dans l'ordre logique est plus rapide pour les dernières versions de Delphi. C'est donc une bonne habitude à prendre.

10/10
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (dubois77)