Quelques programmes pour calculatrice (TI82)

Voici quelques programmes que j'ai inventé...

Morpion

:ZStandard
:AxesOff
:ClrDraw
:Horizontal 3.33
:horizontal -3.33
:vertical 3.33
:vertical -3.33
:Pause
:1->J
:1->X
:Repeat X=0
:ClrHome
:Disp "A1=7, A2=8, A3=9","B1=4, B2=5, B3=6","C1=1, C2=2, C3=3","0:ABANDON"
:Disp "","JOUEUR :",J
:Prompt X
:if X=7 and J=1
:then
:Line(-10,3.33,-3.33,10)
:Line(-10,10,-3.33,3.33)
:End
:if X=8 and J=1
:then
:Line(-3.33,10,3.33,3.33)
:Line(-3.33,3.33,3.33,10)
:End
:if X=9 and J=1
:then
:Line(3.33,10,10,3.33)
:Line(3.33,3.33,10,10)
:End
:if X=4 and J=1
:then
:Line(-10,-3.33,-3.33,3.33)
:Line(-10,3.33,3.33,-3.33)
:End
:if X=5 and J=1
:then
:Line(-3.33,-3.33,3.33,3.33)
:Line(-3.33,3.33,3.33,-3.33)
:End
:if X=6 and J=1
:then
:Line(-3.33,-3.33,10,3.33)
:Line(3.33,3.33,10,-3.33)
:End
:if X=1 and J=1
:then
:Line(-10,-10,-3.33,-3.33)
:Line(-10,-3.33,-3.33,-10)
:End
:if X=2 and J=1
:then
:Line(-3.33,-10,3.33,-3.33)
:Line(-3.33,-3.33,3.33,-10)
:End
:if X=3 and J=1
:then
:Line(3.33,-10,10,-3.33)
:Line(3.33,-3.33,10,-10)
:End
:if X=7 and J=2
Circle(-6.675,6.675,2)
:if X=8 and J=2
Circle(0,6.675,2)
:if X=9 and J=2
Circle(6.675,6.675,2)
:if X=5 and J=2
Circle(0,0,2)
:if X=6 and J=2
Circle(6.675,0,2)
:if X=1 and J=2
Circle(-6.675,-6.675,2)
:if X=2 and J=2
Circle(0,-6.675,2)
:if X=3 and J=2
Circle(6.675,-6.675,2)
:if X!=0
:Pause
:if J=2
:then
:1->J
:Else
:if J=1
:2->J
:End
:End
:ClrDraw
:AxesOn
:Disp

Je vais en poster un autre

TIRESSAI

:ClrHome
:Disp "","",""," TIR3SSAI"
:Pause
:Disp "","","","MADE BY G-MALO" //////ce programme j'en suis particulièrement fière ^^///////////////
:Pause
:ClrDraw
:FnOff
:0->Xmin
:0->Ymin
:20->Xmax
:20->Ymax
:0->K
:0->W
:0->L
:0->C
:Disp "TAILLE CIBLE"
:Prompt O
:{2,3}->dim [B]
:int (12rand+5)->[B](1,1)
:int ((18-O)rand+O)->[B](1,2)
:[B](1,2)+O->[B](1,3)
:[B](1,1)+0.2->[B](2,1)
:[B](1,2)->[B](2,2)
:[B](1,3)->[B](2,3)
:Line([B](1,1),[B](1,2),[B](1,1),[B](1,3)
:Line([B](2,1),[B](2,2),[B](1,1),[B](2,3)
:Pause
:Disp "NOMBRE C-CIBLES"
:Prompt N
:Disp "TAILLE C-CIBLES"
:Prompt T
:{X,3}->dim [A]
:Pause
:Repeat K=N
:K+1->K
:Repeat [A](K,1)!=[B](1,1)
:int (15rand)->[A](K,1)
:int (15rand)->[A](K,2)
:[A](K,2)+T->[A](K,3)
:End
:Line([A](K,1),[A](K,2),[A](K,1),[A](K,3)
:Pause
:End
:0->K
:Repeat W=1 or L=1
:ClrHome
:C+1->C
:Disp "ANGLE"
:Prompt B
:Disp "PUISSANCE"
:Prompt A
:-(1-A)->A
:FnOn
:"AX²+BX"->Y1
:Line([B](1,1),[B](1,2),[B](1,1),[B](1,3)
:Line([B](2,1),[B](2,2),[B](1,1),[B](2,3)
:Pause
:0->K
:Repeat K=N
:K+1->K
:Line([A](K,1),[A](K,2),[A](K,1),[A](K,3)
:End
:if Y1([B](1,1))>=[B](1,2) and Y1([B](1,1))<=[B](1,3)
:1->W
:0->K
:Repeat K=N
:K+1->K
:if Y1([A](K,1))>=[A](K,2) and Y1([A](K,1))<=[A](K,3)
:1->L
:End
:DispGraph
:Pause
:ClrHome
:if W=1 and L!=1
:Disp "","",""," BRAVO !","NOMBRE DESSAIS :",C
:if L=1
:then
:Disp "",""," PERDUT",""
:Pause
:Disp " TES NUL !"
:Pause
:End
:FnOff
:ZStandard
:Disp
:FnOn


Pour les deux programmes, je n'ai mis que la version minimale, mais j'ai également créé différent modes, exemple : morpion, mode JOUEUR VS TI (avec une chance sur trois de passer son tour sinon c'est trop facile), ou pour le jeu de cible, mode JOUEUR VS JOUEUR.... pour plus d'infos mp moi....

hotar a écrit:

lol, ça parait long mais c'est tout en hauteur, ce qui prend du temps c'est d'immaginer le programme mais vus que je fais ça pendant les cours de math (je connais déjà le programme alors ça me permet de tuer le temps) ce n'est pas un problème....

mais y a vraiment un morpion qu'apparait a l'écran?

euh... un morpion je sais pas mais en tout cas y'a un truc comme ça qui apparait :

Citation :

__|__|__
__|__|__
__|__|__

Et on peut y mettre de croix et des ronds en appuyant sur les touches appropriées (expl:

Citation :

X|0|_
_|X|0
_|_|X

)
Enfin tu vois le principe...

l'autre, c'est tout simplement un jeu de visée, il faut toucher une cible en entrant l'angle de visée et la puissance du tir mais il faut aussi faire gaffe aux contre cible, si tu les touche tu perd, on peut choisir soit même la taille de la cible (il y a aussi un mode ou on peut metre autant de cible qu'on veut en même temps), la taille des contre cibles et leurs nombre....

Ouah attend je vais chercher ma calculatrice!

Euh hotar c'est pas avec une calto du college que tu vas réussir a rentrer ses programmes.

Bah c'est marqué Ti-82 ca marche avec ca ou pas?

Ba au college une ti 82 ca sert a rien, je pensais pas que t'aurais deja une calto scientifique.

Wa bien joué G_malo !
Sa doit pas être facile de creer des programmes comme sa !

Les miens affichant toujours uen erreur alors j'ai laissé tombé ^^

Je vais écrire un tableau pour monter comment afficher chacune des commandes (déjà pour le message d'erreur il y a des chances pour que pour taper [A](ou[B]) tu ais tapé [ puis A (ou B) puis ] au lieu d'aller chercher directement dans Matrx)

Si c'est plutôt simple, il suffit de connaitre un peu lesdifférentes commandes, d'un peu de logique et beaucoup d'immagination, c'est à la portée de tout le monde (à condition d'avoir du temps ^^)

sa marche avec une casio graph35?

Non

(sinon j'ai un nouveau programme un peu dans le goût de worm pour ceux que ça intéresse et plus sur TI82 mais TI82-Stat ^^)

ça marche jamais avec les casio !!!

même pas un graph 65+?

Rêve pas ! C'est conçu pour un strict minimum de lycée, t'iras pas plus loin ! Tout ce que t'as en plus c'est les couleurs...

Zoulaf il rage parce que lui il a pas les couleurs!!Non mais c'est pas grave un jour peut-être tu auras les couleurs!!

Stop le flood.
Merci.

ça marche sur TI-83? ça pourrait m'amuser un peu ^^'

et sur Ti-89 ?

Si votre calculette est plus récente, ça devrait logiquement marcher. Après, c'est un avis personnel donc rien de bien sur.

bah en fait c'est que justement comme c'est pas la même, les programmes sont peut être différents... enfin j'en sais rien ^^'