FONKY-TI
Forum sur la programmation en Ti-Basic et Asm pour apprendre mais aussi pleins de jeux et de programmes utiles pour le lycée |
| | Jeu de primaire amélioré!!! |    |
| | | Auteur | Message |
|---|
Gyzou
Membre
Age : 16
Inscrit le : 10 Oct 2007
Messages : 22
Localisation : ville pomé!!!
Emploi : lycéen dans un lycé avec DE LA BOUF DE MERDE
Loisirs : LE METAL non pas la plaque la music!!!
|  Sujet: Jeu de primaire amélioré!!!  Sam 2 Fév - 11:55 | |
| Quand j'étais en primaire, mon prof me faisait un jeu ou je devait deviner un nombre.
Voici la version calto.
Règle:
-La calto choisit un nombre aléatoire compris entre 0 et X(X=difficulté)
-Vous devez le trouvez grâce aux indications plus moins
Il y a 3 niveaux prédéfinis et un personalisable.
468 OCTETS
Á : theta
ü : sto
ø : inegale
| Code: | :EffEcr
:Lbl A
:Menu("NIVEAUX:","100",B,"10000",C,"1000000",D,"AU CHOIX",Á,"GUITTER",Q
:Lbl B
:ent(NbrAleat100+1)üX
:Lbl B1
:Input "QUEL NB:",Y
:If XøY
:Goto B2
:If X=Y
:Disp "GAGNE
:Pause
:Goto A
:Lbl B2
:If Y>X
:Disp "MOINS
:If Y<X
:Disp "PLUS
:Goto B1
:Lbl C
:ent(NbrAleat10000+1)üX
:Lbl C1
:Input "QUEL NB:",Y
:If XøY
:Goto C2
:If X=Y
:Disp "GAGNE
:Pause
:Goto A
:Lbl C2
:If Y>X
:Disp "MOINS
:If Y<X
:Disp "PLUS
:Goto C1
:Lbl D
:ent(NbrAleat1000000+1)üX
:Lbl D1
:Input "QUEL NB:",Y
:If XøY
:Goto D2
:If X=Y
:Disp "GAGNE
:Pause
:Goto A
:Lbl D2
:If Y>X
:Disp "MOINS
:If Y<X
:Disp "PLUS
:Goto D1
:Lbl Á
:Input ",Á
:ent(NbrAleatÁ+1)üX
:Lbl Á1
:Input "QUEL NB:",Y
:If XøY
:Goto Á2
:If X=Y
:Disp "GAGNE
:Pause
:Goto A
:Lbl Á2
:If Y>X
:Disp "MOINS
:If Y<X
:Disp "PLUS
:Goto Á1
:Lbl Q
:EffEcr
:Stop |
|
|  | | Fonky
Administrateur
Age : 109
Inscrit le : 14 Jan 2007
Messages : 1012
Localisation : sous mes cheveux
Emploi : Aucun, mais promu a un avenir de chomeur
Loisirs : non aucun
| | Sujet: Re: Jeu de primaire amélioré!!! Sam 2 Fév - 12:04 | |
| tu dois pas connaitre les boucles?
edit: j'ai rien dit, mais t'aurais pu raccorucir quand meme de beaucou^^
_________________
je suis sexy |
| | | | Gyzou
Membre
Age : 16
Inscrit le : 10 Oct 2007
Messages : 22
Localisation : ville pomé!!!
Emploi : lycéen dans un lycé avec DE LA BOUF DE MERDE
Loisirs : LE METAL non pas la plaque la music!!!
| | Sujet: Re: Jeu de primaire amélioré!!! Sam 2 Fév - 12:11 | |
| | je suis encore nouveau et c'est mon premier prog de A à Z |
| | | | Fonky
Administrateur
Age : 109
Inscrit le : 14 Jan 2007
Messages : 1012
Localisation : sous mes cheveux
Emploi : Aucun, mais promu a un avenir de chomeur
Loisirs : non aucun
| | Sujet: Re: Jeu de primaire amélioré!!! Sam 2 Fév - 12:14 | |
| ok normal moi aussi j'avais fait un pile ou face de 1000 octets^^
y'avait des bugs et j'ai raccoruci et amélioré, normalement ça doit marcher
lol ton avatr, l'épisode de south park sur wow
| Code: | :EffEcr
:Lbl A
:0üW
:Menu("NIVEAUX:","100",B,"10000",C,"1000000",D,"AU CHOIX",Á,"QUITTER",Q
:Lbl B
:ent(NbrAleat100+1)üX
:Goto H
:Lbl C
:ent(NbrAleat10000+1)üX
:Goto H
:Lbl D
:ent(NbrAleat1000000+1)üX
:Goto H
:Lbl Á
:Input A
:abs(arrondi(A,0üA
:ent(NbrAleatA+1)üX
:Lbl H
:W+1üW
:Disp W
:Input "QUEL NB:",Y
:If X=Y
:Then
:Disp "GAGNE! EN",W,"ESSAIS
:Pause
:Goto A
:End
:If Y>X
:Disp "MOINS
:If Y<X
:Disp "PLUS
:Pause
:EffEcr
:Goto H
:Lbl Q |
_________________
je suis sexy |
| | | | Gyzou
Membre
Age : 16
Inscrit le : 10 Oct 2007
Messages : 22
Localisation : ville pomé!!!
Emploi : lycéen dans un lycé avec DE LA BOUF DE MERDE
Loisirs : LE METAL non pas la plaque la music!!!
| | Sujet: Re: Jeu de primaire amélioré!!! Sam 2 Fév - 12:17 | |
| wa le racourci!!!
ca veut dire coi
:abs(arrondi(A,0üA |
| | | | Sangohan38
Membre
Age : 17
Inscrit le : 24 Jan 2007
Messages : 67
Localisation : Isère/France
Emploi : Interne
Loisirs : Programmation
| | Sujet: Re: Jeu de primaire amélioré!!! Ven 18 Avr - 21:02 | |
| Racourcissement encore possible:
| Code: | Lbl 0
ClrHome
Menu("NIVEAU:","FACILE",1,"MOYEN",2,"DIFFICILE",3,"AU CHOIX",4,"QUITTER",5
Lbl 5
Output(1,1," "
Stop
Lbl 4
Input "NOMBRE MAX:",A
int(abs(A->A
int(randA+1->B
0->D
Goto 7
Lbl 1
2->A
Goto 6
Lbl 2
4->A
Goto 6
Lbl 3
6->A
Lbl 6
0->D
int(rand 10^A+1->B
Lbl 7
ClrHome
D+1->D
Input "QUEL NOMBRE?",C
If C<B
Disp "PLUS
If C>B
Disp "PLUS
If C=B
Disp "GAGNE EN",D,"ESSAIS."
Pause
If C=B
Goto 0
Goto 7 |
Sangohan38 |
| | | | tama
Membre
Age : 17
Inscrit le : 14 Oct 2007
Messages : 10
Localisation : Derrière toi !
Loisirs : TI
| | Sujet: Re: Jeu de primaire amélioré!!! Ven 25 Avr - 20:59 | |
| | Sangohan38 a écrit: | Racourcissement encore possible:
| Code: | Lbl 0
ClrHome
2->A
Menu("NIVEAU:","FACILE",6,"MOYEN",3,"DIFFICILE",2,"AU CHOIX",4,"QUITTER",5
Lbl 4
Input "NOMBRE MAX:",A
int(abs(A->A
1+int(A*rand->B
Goto 6
Lbl 2
A+2->A
Lbl 3
A+2->A
Lbl 6
DelVar DDelVar C
1+int(10^A*rand->B
ClrHome
While C!=B != =>différent de
D+1->D
Input "QUEL NOMBRE?",C
Disp sub("MOINSPLUS ",5(C<B)+1,5
End
Disp "GAGNE EN",D
Pause "ESSAIS.
Goto 0
Lbl 5
Output 1,1,"
|
Sangohan38 |
Encore raccourci 
252 octets |
| | | | Mmmmm
Membre
Inscrit le : 15 Mar 2007
Messages : 186
| | Sujet: Re: Jeu de primaire amélioré!!! Ven 25 Avr - 22:03 | |
| encore raccourci
Lbl 0
ClrHome
2->A
Menu("NIVEAU:","FACILE",6,"MOYEN",3,"DIFFICILE",2,"AU CHOIX",4,"QUITTER",5
Lbl 4
Input "NOMBRE MAX:",A
int(abs(A->A
1+int(Arand->B
Goto 6
Lbl 2
A+2->A
Lbl 3
A+2->A
Lbl 6
DelVar DDelVar C
1+int(10^A*rand->B
ClrHome
While C!=B != =>différent de
D+1->D
Input "QUEL NOMBRE?",C
Disp sub("MOINSPLUS ",5(C<B)+1,5
End
Disp "GAGNE EN",D
Pause "ESSAIS.
Goto 0
Lbl 5
Output 1,1," |
| | | | tama
Membre
Age : 17
Inscrit le : 14 Oct 2007
Messages : 10
Localisation : Derrière toi !
Loisirs : TI
| | Sujet: Re: Jeu de primaire amélioré!!! Ven 25 Avr - 22:16 | |
| | Mmmmm a écrit: | encore raccourci
Lbl 0
ClrHome
2->A
Menu("NIVEAU:","FACILE",6,"MOYEN",3,"DIFFICILE",2,"AU CHOIX",4,"QUITTER",5
Lbl 4
Input "NOMBRE MAX:",A
int(abs(A->A
1+int(Arand->B
Goto 6
Lbl 2
A+2->A
Lbl 3
A+2->A
Lbl 6
DelVar DDelVar C
1+int(10^Arand->B
ClrHome
While C!=B != =>différent de
D+1->D
Input "QUEL NOMBRE?",C
Disp sub("MOINSPLUS ",5(C<B)+1,5
End
Disp "GAGNE EN",D
Pause "ESSAIS.
Goto 0
Lbl 5
Output 1,1," |
:p |
| | | | Mmmmm
Membre
Inscrit le : 15 Mar 2007
Messages : 186
| | Sujet: Re: Jeu de primaire amélioré!!! Ven 25 Avr - 23:40 | |
| | tama a écrit: | | Mmmmm a écrit: | encore raccourci
Lbl 0
ClrHome
2->A
Menu("NIVEAU:","FACILE",6,"MOYEN",3,"DIFFICILE",2,"AU CHOIX",4,"QUITTER",5
Lbl 4
Input "NOMBRE MAX:",A
int(abs(A->A
1+int(Arand->B
Goto 6
Lbl 2
A+2->A
Lbl 3
A+2->A
Lbl 6
DelVar DDelVar C
1+int(10^Arand->B
ClrHome
While C!=B != =>différent de
D+1->D
Input "QUEL NOMBRE?",C
Disp sub("MOINSPLUS ",1,5+5(C<B
End
Disp "GAGNE EN",D
Pause "ESSAIS.
Goto 0
Lbl 5
Output 1,1," |
:p |
|
| | | | tama
Membre
Age : 17
Inscrit le : 14 Oct 2007
Messages : 10
Localisation : Derrière toi !
Loisirs : TI
| | Sujet: Re: Jeu de primaire amélioré!!! Sam 26 Avr - 16:34 | |
| | Mmmmm a écrit: | | tama a écrit: | | Mmmmm a écrit: | encore raccourci
Lbl 0
ClrHome
2->A
Menu("NIVEAU:","FACILE",6,"MOYEN",3,"DIFFICILE",2,"AU CHOIX",4,"QUITTER",5
Lbl 4
Input "NOMBRE MAX:",A
int(abs(A->A
1+int(Arand->B
Goto 6
Lbl 2
A+2->A
Lbl 3
A+2->A
Lbl 6
DelVar DDelVar C
1+int(10^Arand->B
ClrHome
While C!=B != =>différent de
D+1->D
Input "QUEL NOMBRE?",C
Disp sub("MOINSPLUS ",1,5+5(C<B
End
Disp "GAGNE EN",D
Pause "ESSAIS.
Goto 0
Lbl 5
Output 1,1," |
:p |
|
raté, ça va pas marcher là :p
si B>C ça va afficher "MOINSPLUS "
si B<C ça va afficher "MOINS" |
| | | | Mmmmm
Membre
Inscrit le : 15 Mar 2007
Messages : 186
| | Sujet: Re: Jeu de primaire amélioré!!! Lun 28 Avr - 19:51 | |
| | ah oui oups j'avais confondu , et . |
| | | | | Jeu de primaire amélioré!!! | |
|
| Page 1 sur 1 |
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| | |
| |
|
