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
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
.
337 octets est-ce raisonnable ?