Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Nombre mistere
jack-59 le 04/05/2008 à 13:22
Salut tout le monde, je suis nouveau sur le forum, et je voulais vous proposer un jeu que j'ai créer moi même ^^
Il faut trouver un nombre et les seul indications données sont "plus haut" / "plus bas"
Le jeu se compose de 3 programmes, un pour le jeu et deux pour les scores
/!\ prog en français
ü = Sto->
!= pour différent
Le jeu (nombmist) :
Code
EffEcr
ent(NbrAléat1000ü ( 
) U
Disp "DIT UN CHIFFRE
Disp "ENTRE 1 et 1000":Input A
1ü ( ) G
While A!=U
G+1ü ( ) G
If A<U
Disp "PLUS HAUT
If A>U
Disp "PLUS BAS
If A!=U
Prompt A
End
EffEcr
Output(1,6,"BRAVO
Output(2,5,"TU A MIS
Output(3,8,G
Output(4,6,"ESSAIS
Output(5,3,"POUR TROUVER
Output(6,7,U
Pause
prgmSCORE
prog Score :
Code
If P>G
Then
Gü ( ) P
EffEcr
Disp "NOM :":Input Chaîne2
End
EffEcr
prgmSCORE2
prog SCORE2 :
Code
If O<G
Then
Gü ( ) O
Disp "NOM :":Input Chaîne3
End
EffEcr
Output(3,5,"BEST :"
Output(3,12,P
Output(4,5,"=>"
Output(4,9,Chaîne2
Output(5,5,"BAD :"
Output(5,12,O
Output(6,5,"=>"
Output(6,9,Chaîne3
Pause
EffEcr
Stop
Bien sûr tout commentaire sera le bien venu !!
Sangohan38 le 04/05/2008 à 13:38
Pour commencer, tu peut réduire la taille de ton prog.
Ensuite, pourquoi ne pas fusionner les 3 progs en un seul.
Sangohan38ratuss le 04/05/2008 à 14:05
Citation
Ensuite, pourquoi ne pas fusionner les 3 progs en un seul.
en effet, ce serait beaucoup plus judicieux.
jack-59 le 04/05/2008 à 14:10
c'est vrai que le fusionner c'est mieux , je l'avais fais en morceau pour retrouver plus facilement les erreur.
Par contre, comment le réduire , je débute en programmation ,et il y a peut être des boucle que je ne connais pas
.
voila donc le code pour les prog fusionné, sauf erreur de ma par
Code
EffEcr
ent(NbrAléat1000ü ( ) U
Disp "DIT UN CHIFFRE
Disp "ENTRE 1 et 1000":Input A
1ü ( ) G
While A!=U
G+1ü ( ) G
If A<U
Disp "PLUS HAUT
If A>U
Disp "PLUS BAS
If A!=U
Prompt A
End
EffEcr
Output(1,6,"BRAVO
Output(2,5,"TU A MIS
Output(3,8,G
Output(4,6,"ESSAIS
Output(5,3,"POUR TROUVER
Output(6,7,U
Pause
If P>G
Then
Gü ( ) P
EffEcr
Disp "NOM :":Input Chaîne2
End
EffEcr
If O<G
Then
Gü ( ) O
Disp "NOM :":Input Chaîne3
End
EffEcr
Output(3,5,"BEST :"
Output(3,12,P
Output(4,5,"=>"
Output(4,9,Chaîne2
Output(5,5,"BAD :"
Output(5,12,O
Output(6,5,"=>"
Output(6,9,Chaîne3
Pause
EffEcr
Stop ratuss le 04/05/2008 à 14:28
-> le stop n'est pas nécessaire à la fin
+jack-59 le 04/05/2008 à 14:31
Ok merci
c'est peut être qu'une ligne, mais c'est déjà ça !
337 octets est-ce raisonnable ?
Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
