|
Espace TI 83 Plus & TI 84 Plus - Le site référence des TI83+ / TI84+ / Silver Edition > Articles > Débutants > Jeux et Programmes sans câble |
.: Jeux et Programmes sans câble :.
Si vous n'avez pas de câble, voici quelques programmes que vous pouvez copier sur votre calculatrice.
Ces programmes n'ont été en aucun cas vérifiés, ce sont des sources postées sur le formulaire du site www.ti80.online.fr et qui n'y ont pas été publiées.
Vous pouvez également trouver d'autres programmes sur www.ti80.online.fr
Proposé par : Nyarlathotep
Nom : PREMIER
Source : Ce programme permet de dire si un nombre est premier ou divisible par
un autre nombre (pour TI83+ - ou peut-être sur d'autres caltos)
:CLRHOME
:INPUT "NB IMPAIR ",A
:1->B
:LBL 1
:B+2->B
:IF B²<=A
:THEN
:IF FPART(A/B)=0
:THEN
:DISP "DIVISIBLE PAR",B
:ELSE
:GOTO 1
:END
:ELSE
:DISP "PREMIER"
:END
:STOP
Proposé par : tanguy
Nom : destroy
Source : >= correspond a superieur ou egal.
x correspond au signe fois
De plus les lignes du texte respectent la largeur de la calculette.
Ca commence ici:
:lbl 0
:0->C
:0->D
:CLRHOME
:DISP "",""," D
ETRUIT LES","
VAISSEAUX"," ENN
EMIS QUE LA","FL ECHE T INDIQUE"
:PAUSE
:CLRHOME
:DISP "","","","
C PARTIE"
:LBL 1
:4->E
:PAUSE
:CLRHOME
:IF C=10:GOTO 2
:C+1->C
:DISP "","
SCORE",D,""
," ESSAI NUMERO",C
:PAUSE
:CLRHOME
:CLRDRAW
:1->XMIN
:63->XMAX
:0->XSCL
:1->YMIN
:47->YMAX
:0->YSCL
:CLRDRAW
:LINE(1,22,1,26)
:LINE(2,23,2,25)
:PT-ON(3,24)
:RANDINT(1,47)->
A
:PT-ON(63,A)
:PT-ON(61,A)
:PT-ON(60,A+1)
:PT-ON(60,A)
:PT-ON(60,A-1)
:PT-ON(59,A)
:PT-ON(58,A)
:PT-ON(57,A)
:69!:69!:69!:69!
:69!:69!:69!:69!
:PT-OFF(61,A)
:PT-OFF(60,A+1)
:PT-OFF(60,A)
:PT-OFF(60,A-1)
:PT-OFF(59,A)
:PT-OFF(58,A)
:PT-OFF(57,A)
:DISP "","",""
:INPUT " ANG
LE:",B
:CLRHOME
:LBL 4
:PT-ON(E,24+(E-4
)(B/45)
:PT-ON(E-1,25+(E
-4)(B/45)
:PT-ON(E-1,23+(E
-4)(B/45)
:69!:69!:69!
:PT-OFF(E,24+(E-
4)(B/45)
:PT-OFF(E-1,25+(
E-4)(B/45)
:PT-OFF(E-1,23+(
E-4)(B/45)
:IF E>=61:GOTO 3
:E+3->E
:GOTO 4
:LBL 3
:IF IPART (24+60
x(B/45))+1=A
:THEN
:LINE(63,A-2,62,
A-2):LINE(61,A-1
,61,A+1):LINE(62
,A+2,63,A+2)
:69!:69!:69!:69!
69!:69!
:DISP "","","","
CIBLE DETRUITE"
:D+5->D
:GOTO 1
:END
:IF IPART (24+60
x(B/45))-1=A
:THEN
:LINE(63,A-2,62,
A-2):LINE(61,A-1
,61,A+1):LINE(62
,A+2,63,A+2)
:69!:69!:69!:69
69!:69
:DISP "","","","
CIBLE DETRUITE"
:D+5->D
:GOTO 1
:END
:IF IPART (24+60
x(B/45))=A
:THEN
:LINE(63,A-2,62,
A-2):LINE(61,A-1
,61,A-1):LINE(62
,A+2,63,A+2)
:69!:69!:69!:69!
:69!:69!
:DISP "","","","
CIBLE DETRUITE"
:D+5->D
:GOTO 1
:END
:IF E=61
:THEN
:E+3->E
:GOTO 4
:END
:DISP "","","","
CIBLE MANQUEE"
:GOTO 1
:LBL 2
:DISP "","","","
TON SCORE
",D
:PAUSE
:CLRHOME
:IF D<25
:THEN
:DISP "","","","
PERDU"
:PAUSE
:GOTO 0
:END
:DISP "","","","
BRAVO"
:PAUSE
:GOTO 0
Proposé par : Cyerra
Email :
Bom : PGCD
Source :
clrhome
input a
input b
clrlist l1,l2
b->l1(1)
a int/ b->l2(1)
remainder(a,b)->l1(2)
1-var stats l1
for(i,1,99)
if l1(i+1)=0
goto 1
l1(i)->a:l1(i+1)->b
l1(i) int/ l1(i+1)->c
C->l2(i+1)
remainder(l1(i),l1(i+1))->l1(i+2)
end
lbl 1
clrhome
disp "pgcd:"
disp l1(i)
pause
stop
commentaires:
il y a aussi les details du calcul:
ils sont en 2 colones, les listes l1 et l2:
exemple:
le pgcd de 550 et 35:
l1 l2
35 15
25 1
10 2
5 2
0
à la main:
l1 l2
550=35x15+25
35= 25x1+10
25= 10x2+5
10= 5x 2+0
pgcd = 5
autre
on doit taper le plus grand chiffre en premier
Proposé par : Philippe Cote-D'Aoust
Nom : Pile ou Face avec cash
Source :
-> :STO>
/= :PAS EGAL
:10->W
:LBL A
:DISP"VOTRE ARGENT"
:DISP W
:INPUT"VOTRE MISE",V
:IF W
:GOTO A
:CLRHOME
:INPUT"1: PILE","2: FACE",B
:IF B=1
:DISP"PILE"
:IF B=2
:DISP "FACE"
:RANDINT(1,2)->C
:IF C=1
:DISP "PILE"
:IF C=2
:DISP "FACE"
:IF B=C
:DISP "TU GAGNE!"
:IF B=C
:W+V->W
:IF B/=C
:DISP "PERDU"
:IF B/=C
:W-V->W
:PAUSE
:GOTO A
Proposé par : mroussin
Nom : Physique
Source :
Ceci les pour la
Massevo
:CLRHOME
:INPUT "MASSE:",A
:INPUT "VOLUME:",B
:(A*B)->C
:DISP "MASSE VOLUMIQUE",C
:END
VOLUME
:CLRHOME
:INPUT "MASSE:",I
:INPUT "M. VOLUMIQUE:",J
:(I/J->L
:DISP "LE VOLUME EST:",L
:END
MASSE
:INPUT "VOLUME:",A
:INPUT "MASSE VOLUMIQUE:",B
:(A*B)->C
:DISP "MASSE:",C
:END
Puis les TROIS ENSEMBLE
PHYS
:CLRHOME
:DISP "VALEUR MANQUANTE"
:DISP "--------------------"
:DISP "1:MASSE","2:VOLUME","3:M. VOLUMQIUE"
:INPUT "1.2.3:",A
:IF A=1
:PRGM_MASSE
:IF A=2
:PRGM_VOLUME
:IF A=3
:PRGM_MASSEVO
Proposé par : Simon Brodeur
Nom : SOUVIENS-TOI DES NOMBRES 1.0
Source : SOUVIENS-TOI DES NOMBRES Version 1.0
Il faut que vous mémorisiez les 6 chiffres donnés par la calculatrice.
Modifier-le à votre guise. Si vous trouvez des bugs, contactez-moi :
brodeursimon@hotmail.com. C'est une de mes premières créations.
Espace requis : environ 973 octets
LBL 1
CLRHOME
DISP “-----------”
(contient 11 – )
DISP “SOUVIENS-TOI”
DISP “DES NOMBRES”
DISP “-----------”
(contient 11 – )
DISP “ ”
DISP “PAR”
DISP “SIMON BRODEUR”
PAUSE
CLRHOME
DISP “-----------”
(contient 11 – )
DISP “1)JOUER”
DISP “2)QUITTER”
DISP “ ”
DISP “ ”
DISP “-----------”
(contient 11 – )
INPUT “: ”,M
IF M=1:THEN
0–>T
0–>P
GOTO W
ELSE
STOP
LBL W
CLRHOME
DISP “-----------”
(contient 11 – )
DISP “NOMBRE DE COUPS”,“A JOUER”
DISP “ ”
DISP “-----------”
INPUT “: ”,W
LBL 2
RANDINT(1,10) –>A
RANDINT(1,10) –>B
RANDINT(1,10) –>C
RANDINT(1,10) –>D
RANDINT(1,10) –>I
RANDINT(1,10) –>J
CLRHOME
DISP “ ”,A
PAUSE
DISP B
PAUSE
DISP C
PAUSE
DISP D
PAUSE
DISP I
PAUSE
DISP J
PAUSE
CLRHOME
INPUT “: ”,E
INPUT “: ”,F
INPUT “: ”,G
INPUT “: ”,H
INPUT “: ”,K
INPUT “: ”,L
ABCDIJ–>N
EFGHKL–>O
IF O=N:THEN
T+1–>T
P+1–>P
GOTO 4
ELSE
P+1–>P
GOTO 3
LBL 4
CLRHOME
DISP “BRAVO!”
DISP “C’EST CORRECTE!”
PAUSE
GOTO 5
LBL 5
IF P=W:THEN
GOTO X
ELSE
LBL 6
CLRHOME
DISP “NOMBRE DE COUPS”
DISP “REUSSIS: ”,T
DISP “JOUES:”,P
T*100/P–>S (* signifie fois et /
diviser, donc T fois 100 diviser par P donne S)
DISP “POURCENTAGE:”,S
PAUSE
IF P=W:THEN
GOTO Y
ELSE
CLRHOME
DISP “-----------”
(contient 11 - )
DISP “1)CONTINUER”
DISP “2)QUITTER”
DISP “ ”
DISP “ ”
DISP “-----------”
(contient 11 - )
INPUT “: ”,M
IF M=1:THEN
GOTO 2
ELSE
STOP
LBL 3
CLRHOME
DISP “TU L’AS MANQUER!”
PAUSE
CLRHOME
DISP “LA REPONSE ETAIT”
DISP A,B,C,D,I,J
PAUSE
GOTO 5
LBL X
CLRHOME
DISP “VOUS AVEZ FINI”
PAUSE
GOTO 6
LBL Y
0–>T
0–>P
0–>W
CLRHOME
DISP “1)RECOMMENCER”,“2)QUITTER”
DISP “ ”
DISP “-----------”
(contient 11 - )
INPUT “: ”,V
IF V=1:THEN
GOTO W
ELSE
STOP
Proposé par : Simon Brodeur
Nom : La matrice (écran de veille)
Source : Écran de veille sur le thème de LA MATRICE. Fait attention car sa fini
par gruger les piles. Par Simon Brodeur, brodeursimon@hotmail.com.
vous pouvez le faire avec des lettres ou des chiffres
--------------------
CHIFFRES
CLRHOME
DISP “TU ES DANS LA”
DISP “MATRICE”
PAUSE
CLRHOME
LBL 1
RANDINT(1,5) –>A
IF A=1
GOTO 2
IF A=2
GOTO 3
IF A=3
GOTO 4
IF A=4
GOTO 5
IF A=5
GOTO 6
LBL 2
DISP “1010011101101110”
GOTO 1
LBL 3
DISP “0110001100001110”
GOTO 1
LBL 4
DISP “1110100110110001”
LBL 5
DISP “0101010110101011”
GOTO 1
LBL 6
DISP “1010001010001100”
GOTO 1
--------------------
LETTRES
CLRHOME
DISP “TU ES DANS LA”
DISP “MATRICE”
PAUSE
CLRHOME
LBL 1
RANDINT(1,5) –>A
IF A=1
GOTO 2
IF A=2
GOTO 3
IF A=3
GOTO 4
IF A=4
GOTO 5
IF A=5
GOTO 6
LBL 2
DISP “YZYZYXXZYZYZYXZZ”
GOTO 1
LBL 3
DISP “ZYYXZYXZYXZYZYVY”
GOTO 1
LBL 4
DISP “XZYXZYXXZYWVZYZYW”
LBL 5
DISP “WXZYVYZQYXYZYYXZ”
GOTO 1
LBL 6
DISP “VWYXZYXVVWYZYYXY”
GOTO 1
Proposé par : Olivjacquesson
Nom : reflexe
Source : Réflexe
Voici un jeu de concentration et un sous-programme nécessaire à son
initialisation:
Légende: <(inférieur à), >(supérieur à), >>(STO),=(égal à),
#(différent de)
PrgmAARECALL
ClrDraw:AxesOff
FnOff
0>>Xmin
94>>Xmax
0>>Ymin
62>>Ymax
Return
PrgmREFLEXE
PrgmAARECALL
ClrList L3
10>>dim L3
For(A,0,80,8)
Line(A,0,A,50)
End
Line(0,0,80,0)
0>>E
Lbl 0
E+1>>E:0>>R
Lbl 1
int 240rand+1>>K
getKey>>Z
If Z=22
Goto X
If Z=45
Goto 4
If K<232 and K>8 and K#100
Goto 1
If K<9
Then
Text(1,1,"-")
For(I,1,50)
End
Text(1,1," ") (3 espaces)
Goto 1
End
If K>231
Text(1,1,"+")
If K=100
Text(1,1,"?")
Lbl 2
getKey>>Z
If Z#45
Then
R+1>>R
For(C,-4,0)
Line(8E-8,5R+C,8E,5R+C)
End
If R=2
Text(1,1,"+")
If R=10
Goto 3
Goto 2
End
If K=100 and R<2
Goto 6
If R#0
Text(14,8E-5,10-R)
If R=0
Text(14,8E-5,"+")
int (10-R)>>L3(E)
Lbl 5
For(X,0,40)
Line(X,55,X,62,0)
End
If E#10
Goto 0
Lbl 7
Text(1,1,"SCORE: ",sum L3,"/100")
Pause
Menu("AUTRE PARTIE?","OUI",X,"NON",Y)
Lbl X:prgmREFLEXE
Lbl Y:Stop
Lbl 4
If I#51
Text(1,1,"TRICHEUR!")
If I=51
Text(1,1,"DOMMAGE!")
0>>I
Lbl 3
Text(14,8E-5,"0")
Goto 5
End
Lbl 6
Text(1,1,"BONUS!")
Text(14,8E-5,"?")
For(Q,1,40)
int 2rand>>M
int 2rand>>N
int 2rand>>O
If M=0
Text(1,50,"-")
If M=1
Text(1,50,"7")
If N=0
Text(1,54,"-")
If N=1
Text(1,54,"7")
If O=0
Text(1,58,"-")
If O=1
Text(1,58,"7")
End
For(U,1,300)
End
M+N+O>>U
If U=0
Then
Text(14,8E-5,10-R)
(10-R)>>L3(E)
End
If U=1and N=0
Then
Text(1,80,"+")
Text(14,8E-5,"+")
10>>L3(E)
End
If U=1 and N=1 or U=2 and N=1
Then
Text(1,80,"++")
Text(14,8E-5,"F")
15>>L3(E)
End
If U=2 and N=0
Then
Text(1,80,"+++")
Text(14,8E-5,"T")
20>>L3(E)
End
If U=3
Then
Text(1,1,"JACKPOT!!!")
Text(1,70,"+++++")
Text(14,8E-5,"J")
30>L3(E)
End
For(Q,1,500)
End
For(X,1,94)
Line(X,55,X,62,0)
End
If E#10
Goto 0
Goto 7
Principe du jeu: appuie sur CLEAR quand apparaît un"+" en haut à
gauche de l'écran. Pas un moins. Appuie
aussi si c'est un "?". Ton score dépendra de ta rapidité...
Si tu déclenches le bonus, tu peux avoir un "+" (10 pts), un F(15 pts)
un T(20 pts) un J(30 pts) et tu peux très
bien ne rien avoir du tout. Le record c'est 110. Bonne chance!!!
Proposé par : Lepiranas
Nom : Windows XP
Source :
Clrhome
disp "","",""," win xp v2.3"
69!:69!:69!:69!:69!:69!:69!:69!:69!:69!
Clrhome
Prgm_present
Prgm_prot
Clrhome
Disp "","",""," bienvenue sur","
win xp"
69!:69!:69!:69!:69!:69!
lbl 5
clrhome
lbl a
Clrdraw
horizontal 6
horizontal 7
pt-off(1,7
pt-off(63,7
pt-on(58,44
pt-on(57,45
pt-on(56,44
pt-on(55,43
pt-on(56,42
pt-on(55,41
pt-on(54,40
pt-on(55,39
pt-on(56,38
pt-on(57,39
pt-on(57,41
line(4,16,8,16
line(9,15,9,10
line(8,9,4,9
line(3,10,3,15
line(5,11,5,14
line(6,14,7,14
line(6,12,7,12
line(7,14,7,11
line(13,37,9,41
line(9,37,7,39
line(10,42,4,36
line(3,37,5,39
line(5,39,5,42
line(5,42,8,45
line(8,45,10,43
lbl b
input
if x>1:then
if x<14:then
if y>36:then
if y<47:then
goto d
end
end
end
end
if x>53:then
if x<63:then
if y>37:then
if y<47:then
goto s
end
end
end
end
if x>1:then
if x<63:then
if y>18:then
if y<47:then
goto b
end
end
end
end
if x>1:then
if x<11:then
if y>7:then
if y<18:then
goto y
end
end
end
end
lbl n
clrhome
disp"progamme x.exe" (entrez tout les noms des programmes de votre
calculatrice)
input "0:retour",a
if a = 0
then
goto a
else
goto n
end
lbl d
clrhome
Disp "*outils systeme*","1:pixels","2:annuler"
input a
if a = 1
then
lbl w
prgm_GERAFFI
goto a
end
if a = 1
then
goto a
end
lbl y
clrhome
disp
"****arreter*****","1:arreter","2:explorateur","3:annuler"
input n
if n = 1
then
clrhome
disp "","",""," vous quittez","
win xp"
69!:69!:69!:69!:69!
clrhome
prgm_present
clrhome
stop
end
if n = 2
then
goto n
end
if n = 3
then
goto a
end
lbl s
clrhome
disp "**accessoires***","1:progamme x" (entrez vos
progammes)
disp "4:annuler"
input s
if s = 1
then
prgm_x (nom du prgm n°1)
goto a
end
if s = 4
then
goto a
end
fabrique par lepiranas
Proposé par : Lepiranas
Nom : Piranas III
Source :
Prgm (Prot)
(@ correspond à teta),(=/= correspond à different de...)
:1->A
:2->B
:3->C
:4->D
:5->E
:6->F
:7->G
:8->H
:9->I
:10->J
:11->K
:12->L
:13->M
:14->N
:15->O
:16->P
:17->Q
:18->R
:19->S
:20->T
:21->U
:22->V
:23->W
:24->X
:25->Y
:26->Z
:27->@
:Clrhome
:Disp "****************","* PIRANAS III *","* SECURIT
(R) *","* TECHNOLOGIE *","par:
LEPIRANAS","****************","****************"
:69!:69!:69!:69!:69!
:Clrhome
:Disp "PIRANAS III
(R)","****************","****************"
:Input "Login:",O
:If O=/=(votre login):then:goto 2
:If O=(votre login):then:goto G:end:end
:Lbl G
:Disp "****************"
:Input "Code:",P
:If P=(votre code):then:goto 1
:If P=/=(votre code):then:goto 2:end:end
:Lbl 1
:Clrhome:disp "PIRANAS III (R)","a accepte votre","
code et login"
:69!:69!:69!:69!:69!:Return:end
:Lbl 2
:Clrhome:disp "PIRANAS III (R)","n'a accepte"," votre
code ou"," login"
:69!:69!:69!:69!:69!:stop:end
Fabriqué par LEPIRANAS
Proposé par : lepiranas
Nom: Present
Source :
Prgm (Present)
:clrdraw
:line(2,45,2,41
:pt-on(3,40
:line(4,45,4,41
:pt-on(5,40
:line(6,45,6,41
:line(8,45,8,40
:line(10,45,10,40
:line(11,45,14,40
:line(14,40,14,45
:line(27,7,44,31
:line(44,14,27,36
:line(27,36,9,36
:line(27,7,9,7
:line(37,22,19,22
:line(19,22,9,36
:line(19,22,9,7
:line(44,31,32,31
:line(44,14,32,14
:line(43,15,43,31
:line(43,31,50,29
:line(50,29,50,24
:line(50,24,47,22
:line(47,22,47,16
:line(44,14,47,16
:line(45,24,45,28
:line(45,28,47,28
:line(45,24,47,25
:line(47,25,47,28
:69!:69!:69!:69!:69!:69!:69!:69!
:return
Fabrique par LEPIRANAS
Proposé par : Romain
Nom: Binaire
Source :
:LBL Q
:DISP "X"
:INPUT X
:IF X=0
:GOTO A
:IF X=1
:GOTO B
:IF X=2
:GOTO C
:IF X=3
:GOTO D
:IF X=4
:GOTO E
:IF X=5
:GOTO F
:IF X=6
:GOTO G
:IF X=7
:GOTO H
:IF X=8
:GOTO I
:IF X=9
:GOTO J
:IF X=10
:GOTO K
:IF X=11
:GOTO L
:IF X=12
:GOTO M
:IF X=13
:GOTO N
:IF X=14
:GOTO O
:IF X=15
:GOTO P
:LBL A
:DISP "0000"
:GOTO Q
:LBL B
:DISP "0001"
:GOTO Q
:LBL C
:DISP "0010"
:GOTO Q
:LBL D
:DISP "0011"
:GOTO Q
:LBL E
:DISP "0100"
:GOTO Q
:LBL F
:DISP "0101"
:GOTO Q
:LBL G
:DISP "0110"
:GOTO Q
:LBL H
:DISP "0111"
:GOTO Q
:LBL I
:DISP "1000"
:GOTO Q
:LBL J
:DISP "1001"
:GOTO Q
:LBL K
:DISP "1010"
:GOTO Q
:LBL L
:DISP "1011"
:GOTO Q
:LBL M
:DISP "1100"
:GOTO Q
:LBL N
:DISP "1101"
:GOTO Q
:LBL O
:DISP "1110"
:GOTO Q
:LBL P
:DISP "1111"
:GOTO Q
Tutorial écrit par Olivier le 29/11/2002 (lu 67653 - catégorie : Débutants) - 
.: LES TUTORIAUX TI :.
Warning: mysql_num_rows(): supplied argument is not a valid MySQL result resource in /mnt/102/sda/2/b/www.ti83plus/articles.php on line 40
Envoyez-nous un mail si vous souhaitez traiter un thème particulier.
Warning: mysql_fetch_array(): supplied argument is not a valid MySQL result resource in /mnt/102/sda/2/b/www.ti83plus/articles.php on line 44
| |
