Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> DEVINE

DEVINE

Auteur

Message

alexvire

Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31

Posté le : Mer 19 Mai 2010, 15:46

DEVINE

(Je sais que plusieurs programmes de ce genre ont déjà été posté, mais celui-ci est différent car il n'affiche pas si le nombre à trouver est plus petit ou plus grand mais il vous donne l'intervalle dans lequel il est.)

• Taille: 400 octets

• Le jeu le plus simple à programmer en TI-BASIC, en effet, vous devez trouver un nombre entre 0 et 99 en un minimum de coups. Mais contrairement à la plupart que vous trouverez celui affiche non pas si le nombre est inférieur ou pas mais l'intervalle dans lequel se trouve le nombre.

• Fonctionne sur:
- TI-82 Stats(.fr)
- TI-83
- TI-83+(.fr)
- TI-84+

• Télécharger:
- 83p
- 8xp

• Taper à la main: (Français)

Code

1{->}dim({L}DE
Lbl 0
EffEcr
Menu(">>>> DEVINE <<<<","JOUER",1,"RECORD",2,"QUITTER",3
Lbl 1
0{->}A
entAléat(0,99{->}B
0{->}C
99{->}D
Repeat E=B
EffEcr
Disp "COUPS:","
Output(1,8,A
Output(8,2,"ENTRE ET
Output(8,8,C
Output(8,14,D
Input "NOMBRE: ",E
A+1{->}A
If E<B
Then
If E>C
ent(E{->}C
Else
If E<D
ent(E{->}D
End
End
EffEcr
If 0={L}DE(1) ou A<{L}DE(1
Then
Output(8,2,"RECORD VAINCU!
A{->}{L}DE(1
End
Output(1,6,"DEVINE
Disp "","","SCORE:",A,"RECORD:
Pause {L}DE(1
Goto 0
Lbl 2
Output(1,6,"DEVINE
Disp "","","","RECORD:
Pause {L}DE(1
Goto 0
Lbl 3
Output(4,6,"ALEXIS
EffVar AEffVar BEffVar CEffVar DEffVar E
Output(1,1,"

• Taper à la main: (Anglais)

Code

1{->}dim({L}DE
Lbl 0
ClrHome
Menu(">>>> DEVINE <<<<","JOUER",1,"RECORD",2,"QUITTER",3
Lbl 1
0{->}A
randInt(0,99{->}B
0{->}C
99{->}D
Repeat E=B
ClrHome
Disp "COUPS:","
Output(1,8,A
Output(8,2,"ENTRE ET
Output(8,8,C
Output(8,14,D
Input "NOMBRE: ",E
A+1{->}A
If E<B
Then
If E>C
iPart(E{->}C
Else
If E<D
iPart(E{->}D
End
End
ClrHome
If 0={L}DE(1) or A<{L}DE(1
Then
Output(8,2,"RECORD VAINCU!
A{->}{L}DE(1
End
Output(1,6,"DEVINE
Disp "","","SCORE:",A,"RECORD:
Pause {L}DE(1
Goto 0
Lbl 2
Output(1,6,"DEVINE
Disp "","","","RECORD:
Pause {L}DE(1
Goto 0
Lbl 3
Output(4,6,"ALEXIS
DelVar ADelVar BDelVar CDelVar DDelVar E
Output(1,1,"

• Caractères spéciaux:
{L} = [2nde] + [0] + [)]
{->} = [sto->]

----------------------
Salut, visitez mon site:

Et mon forum !

Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI.

devig

Autorisation : Membre
Nb de messages : 5
Inscrit le : Sam 24 Avr 2010, 23:06

Posté le : Lun 07 Jui 2010, 11:01

il me marque une erreur sur le end

Code

Output(8,2,"RECORD VAINCU
A->LDE(1)
End

----------------------
malgré ke chui nouveaux pas de bisutage

alexvire

Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31

Posté le : Lun 07 Jui 2010, 16:50

Tu as bien mis If 0={L}DE(1) or A<{L}DE(1 avant ?

----------------------
Salut, visitez mon site:

Et mon forum !

Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI.

Persalteas

Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Mer 09 Jui 2010, 18:30

le l c'est bien celui du menu liste et pas la lettre?

alexvire

Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31

Posté le : Jeu 10 Jui 2010, 17:22

Oui, c'est pour ça que je l'ai mis entre { }.

Si vous voulez une meilleur visibilité du code avec des caractère unicodes, rendez-vous ici.

----------------------
Salut, visitez mon site:

Et mon forum !

Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI.

Persalteas

Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Jeu 10 Jui 2010, 21:17

je préfère les balises code de tout 82 que sur ton site.
ça me trouble de voir un prog écrit en centré.

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> DEVINE

Page générée en 6 requêtes

Flux RSS