Forum | TOUT sur la TI-82

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

Page: 1, 2 >>

pes

Auteur

Message

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Dim 28 Jan 2007, 15:59

voila mon pes6:

Code

clrhome
output4,4,"Madian corp"
output5,4,"presente"
output6,4,"pes 6
fot(T,0,800)
end
clrhome
0->S
0->Y
0->Z
input"ton equipe",str1
input"equipe ia:",str2
input"difficulté 2 a 9",Z
input"but victoire:",Y
clrhome
0->G
0->H
lbl99
0->M
0->S
5->A
1->B
5->C
16->D
5->E
8->F
lbl 1
if A=E and B+1=F
0->M
if C=E and F+1=D and A+2<ou egal a C or C=E and F+1=D and A-2>ou egal a C
5->M
if M=5
F-1->F
rand int (1,Z)->Theta
if Theta=1
goto6
if C=E and F+1=D and C=A and C> ou egal a 5
goto 9
if C=E and F+1=D and C=A and C< ou egal a 4
goto 8
if C=E and F+1=D
goto7
if C>E
C-1->C
if C<E
C+1->C
if D<F+1
D+1->D
if D>F+1
D-1->D
lbl6
clrhome
output(A,B,"X
output(C,D,O
output(E,F,".
output(3,1,"-
output(7,1,3-
output(3,16,"-
output(7,16,"-
if F=1 and E> ou egal a 4 and E<ou egal a6
goto 10
if F=16 and E>ou egal a 4and E<ou egal a6
goto11
if F=1 or F=16
goto 12
getkey->K
if K=45 and A=E and B+1=F
5->S
if C=E and F+1=D
0->S
if S=5
F+1->F
if K=26 and A=E and B+1=F
goto 2
if K=24 and A=E and B+1=F
goto 3
if K=34 and A=E and B+1=F
goto 5
if K=25 and A=E and B+1=F
goto 4
if K=24
B-1->B
if K=26
B+1->B
if K=25
A-1->A
if K=34
A+1->A
goto1
lbl 2
F+1->F
B+1->B
goto 1
lbl 3
F-1->F
B-1->B
goto 1
lbl 4
A-1->A
E-1->E
goto 1
lbl 5
A+1->A
E+1->E
goto 1
lbl 7
F-1->F
D-1->D
goto 6
lbl 8
C+1->C
E+1->E
goto 6
lbl 9
C-1->C
E-1->E
goto 6
lbl 10
H+1->H
goto 13
lbl 11
G+1->G
goto 13
lbl 12
goto 13
lbl 13
clrhome
disp"Le score est de",str1,G,Str2,H
for(T,0,800
end
clrhome
if G=Y
goto 16
if H=Y
goto 17
goto 99
lbl 16
disp str1,"A gagné
for(T,0,800
end
clrhome
stop
lbl 17
disp str2,"A gagné
for(T,0,800
end
clrhome
stop

el spectro

Autorisation : Membre
Nb de messages : 123
Inscrit le : Ven 15 Déc 2006, 16:07

Posté le : Mar 30 Jan 2007, 11:27

a quoi sert ce programme ??

----------------------
désolé pour mon absence mais mon temps sur le net était occupé par un exposé...

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mar 30 Jan 2007, 13:16

On dirait un jeu de tir au but.
Il n'est compatible qu'a partir de la 82 STATS car il y a l'instruction STRING.

Sangohan38

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mer 31 Jan 2007, 14:54

Pas de tir au but mais de foot pur et dur

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mer 31 Jan 2007, 15:05

voila mon pes6 amélioré avec comptage de minute etc...

Code

clrhome
output4,4,"Madian corp"
output5,4,"presente"
output6,4,"pes 6
fot(T,0,800)
end
clrhome
input"ton equipe",str1
input"equipe ia:",str2
input"difficulté 2 a 9",Z
clrhome
0->G
0->H
0->Y
lbl99
0->M
0->S
5->A
1->B
5->C
16->D
5->E
8->F
lbl 1
if A=E and B+1=F
0->M
if C=E and F+1=D and A+2<ou egal a C or C=E and F+1=D and A-2>ou egal a C
5->M
if M=5
F-1->F
rand int (1,Z)->Theta
if Theta=1
goto6
if C=E and F+1=D and C=A and C> ou egal a 5
goto 9
if C=E and F+1=D and C=A and C< ou egal a 4
goto 8
if C=E and F+1=D
goto7
if C>E
C-1->C
if C<E
C+1->C
if D<F+1
D+1->D
if D>F+1
D-1->D
lbl6
clrhome
output(A,B,"X
output(C,D,O
output(E,F,".
output(3,1,"-
output(7,1,3-
output(3,16,"-
output(7,16,"-
Y+0.5->Y
if Y=90:goto 13
if F=1 and E> ou egal a 4 and E<ou egal a6
goto 10
if F=16 and E>ou egal a 4and E<ou egal a6
goto11
if F=1 or F=16
goto 12
getkey->K
if K=45 and A=E and B+1=F
5->S
if C=E and F+1=D
0->S
if S=5
F+1->F
if K=26 and A=E and B+1=F
goto 2
if K=24 and A=E and B+1=F
goto 3
if K=34 and A=E and B+1=F
goto 5
if K=25 and A=E and B+1=F
goto 4
if K=24
B-1->B
if K=26
B+1->B
if K=25
A-1->A
if K=34
A+1->A
goto1
lbl 2
F+1->F
B+1->B
goto 1
lbl 3
F-1->F
B-1->B
goto 1
lbl 4
A-1->A
E-1->E
goto 1
lbl 5
A+1->A
E+1->E
goto 1
lbl 7
F-1->F
D-1->D
goto 6
lbl 8
C+1->C
E+1->E
goto 6
lbl 9
C-1->C
E-1->E
goto 6
lbl 10
H+1->H
goto 13
lbl 11
G+1->G
goto 13
lbl 12
goto 13
lbl 13
clrhome
disp"Le score est de",str1,G,Str2,H
for(T,0,800
end
clrhome
Disp"on est a la",Y,"minute"
fot(T,0,800
end
clrhome
if Y=90
goto 40
goto 99

if G>H
goto 16
if H>G
goto 17
if G=H
goto 18
lbl 18
clrhome
disp"matche nul"
for(T,0,800
end
clrhome
stop
lbl 16
clrhome
disp str1,"A gagné
for(T,0,800
end
clrhome
stop
lbl 17
disp str2,"A gagné
for(T,0,800
end
clrhome
stop

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Jeu 01 Fév 2007, 13:15

Il y a combien de joueurs?

Sangohan38

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Sam 03 Fév 2007, 10:07

2 ton joueur et l ia

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mer 14 Fév 2007, 14:12

voici la version ti 82 http://www.new-uploader.com/file/2181/PES5.83p.html
pour l avoir sans cable ti graph link!!

unknow
Invité

Posté le : Mer 28 Fév 2007, 11:29

Sa a l'air sympa ton jeu mais comment tu fais pour rentrer les commandes :
_rand int
_Theta
_getkey
???
parceque ma TI est en francais et ces enntrées son en anglais et je c'est pas à quoi sa correspond en francais.

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 28 Fév 2007, 13:32

Va sur cette page: https://tout82.pages-perso.free.fr/forum/sujet.php?sujet=620
Et tu trouvera une page comportant toutes les traductions que tu cherche.

Sangohan38

unknow
Invité

Posté le : Ven 02 Mar 2007, 11:38

je sui aller voir mais je n'ai pas tout trouver. Il me reste :
_Theta
_str1/str2(je ne c pa commen entré ces entré et g une ti-82 stat)

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 02 Mar 2007, 14:25

Str sont les string c'est à dire des chaines de caractères.
Theta est un signe grec coresspondant à [ALPHA]+3.
Pour Str, fait [2nd]+0 et cherche.

Sangohan38

Blackangel

Autorisation : Membre
Nb de messages : 6
Inscrit le : Sam 13 Jan 2007, 16:12

Posté le : Ven 02 Mar 2007, 17:59

Bonjour,

On peut aussi y acceder en faisant [var] + 7, c'est plus rapide que le catalogue je trouve...

Blackangel

----------------------
Vive la programmation, quand on a un prof qui cale rien aux TI...

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Sam 03 Mar 2007, 15:01

Je ne connaissait pas l'emplacement c'est pour cela que j'ai donné cette méthode.

Sangohan38

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Lun 05 Mar 2007, 11:15

sinon l autre version c'est sans string

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mer 23 Mai 2007, 7:41

et voila l'amelioration que j'ai faite que je posterai(elle est fini)

Google_AdSense

PMdej

Autorisation : Membre
Nb de messages : 141
Inscrit le : Mer 07 Mar 2007, 19:10

Posté le : Mer 23 Mai 2007, 18:20

Enfin !!!!
t'as pas intéret a ce qu'il soit pourrie parce que avec le temps que t'as mis a le fair !!!!! .....; enfin c'est toujours ca !!!!

----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Sam 26 Mai 2007, 11:28

j'avais arreter de programmer

PMdej

Autorisation : Membre
Nb de messages : 141
Inscrit le : Mer 07 Mar 2007, 19:10

Posté le : Sam 26 Mai 2007, 18:01

ouais ouais ..... la bonne excuse !!!!! ....

----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Dim 27 Mai 2007, 12:11

toi ta rien programmer encore alors tu peux parler

PMdej

Autorisation : Membre
Nb de messages : 141
Inscrit le : Mer 07 Mar 2007, 19:10

Posté le : Dim 27 Mai 2007, 12:56

d'ici lundi prochain j'expose 2 nouveaux programme !!!!!!!!!!!

----------------------
BIENVENUE DANS LE MONDE DE LA PROGRAMMATION

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Dim 27 Mai 2007, 17:54

Si ils sont aussi intéressant que toi c'est la peine et dans tout sa j'ai pas le temps de le poster.

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Dim 27 Mai 2007, 20:56

J'ai modifier deux petits mots de ton message pour éviter un quiproquo.

Sangohan38

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Sam 16 Jui 2007, 11:38

voila le lien http://web.archive.org/web/20080906224816/http://www.badongo.com/file/3290828
et le code complet:

Code

clrhome
0->O
0->P
0->Y
input"difficulte:",z
input"ton equipe:",str 1 <-vous pouvez vous en passer
input"equipe ia:",str2
clrhome
lbl 3
5->A
1->B
5->C
16->D
5->E
15->F
lbl 5
0->G
0->H
0->I
0->J
0->K
0->L
0->M
0->N
output(3,1,"-
output(7,1,"-
output(3,16,"-
output(7,16,"-
lbl1
if n=1:-1->L
output(a,b," <-1 espace
output(c,d," <-1 espace
output(e,f," <-1 espace
if e=c and f=d or a=e and b=f:0->K
if e=c and f=d or e=a and f=b:0->L
a+g->a
b+h->b
c+i->c
d+j->d
e+k->e
f+l->f
0->g
0->h
0->i
0->j
0->k
0->l
output(a,b,"x
output(c,d,"O
output(e,f,".
y+0.5->Y
if f=16 or f=1:goto 2
getkey->theta <- ou autre si on ne l'as pas
if theta=24 and b n'est pas egal 1
-1->h
if theta=26 and b n'est pas egal 16
1->H
if theta=25 and a n'est pas egal 1
-1->g
if theta=34 and a n'est pas egal 8
1->g
if theta=24 and a=e and b+1=f and b n'est pas egal 1
-1->l
if theta=26 and a=e and b+1=f and b n'est pas egal 16
1->l

if theta=25 and a=e and b+1=f and a n'est pas egal 1
-1->k
if theta=25 and a=e and b-1=f and a n'est pas egal
1->k
ik theta = 34 and a=e and b+1=f and a n'est pas egal 8
1->k
ih theta=34 and a=e and b-1=f and a n'est pas egal 8
1->k
if theta=45 and a=e and b+1=f
1->m
if theta=105
clrhome
if theta=105
pause
if c=e and d-1=f
0->m
if m=1
1->l
randint(1,z)->x
if x=1
goto 1
if e>c
1->i
if e<c
-1->i
if f+1>d and i n'est pas egal 1 and i n'est pas egal -1
1->j
if f+1<D and i=0
-1->j
if c=e and d-1=f and c=a and c superieur ou egal 5
-1->k
if c=e and d-1=f and a=e and c<5
1->k
if c=e and d-1=f and a=e and c<5
1->i
if c=e and d-1=f and b+3 inferieur ou egal d and j=0 and i=0
-1->l
if c=e and d-1=f and b+3 inferieur ou egal d and j=0 and i=0
-1->j
if c=e and d-1=f and a n'est pas egal e and d-3 inferieur ou egal b or c=e and d-1=f and a+2 inferieur ou egal e and d-2 inferieur ou egal b or c=e and d-1=f and a-2 superieur ou egal e and d-2 inferieur ou egal b or c=e and d-1=f and b>d
1->n
if a=e and b+1=f
0->n
if n=1
-1->l
goto 1
lbl 2
if e superieur ou egal 4 and e inferieur ou egal 6 and f=1
p+1->p
if e superieur ou egal 4 and e inferieur ou egal 6 and f=16
o+1->o
clrhome
disp"le score est de",str 1,o,str2,p -> vous povez contourner
for(t,0,800)
end
clrhome
disp"et on est a la",y,"minute"
for(t,0,800)
end
clrhome
if y=45
1->F
if f=1
then
5->a
1->b
5->c
16->d
5->e
2->f
end
if f=16
then
5->a
1->b
5->c
16->d
5->e
15->f
end
if y=45
goto 5
if y n'est pas egal 90
goto 5
if o>p
z+1->z
if o<p
z-1->z
0->y
0->o
0->p
pause
goto 3

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Dim 17 Jui 2007, 13:54

he donnez vos avis la.

Google_AdSense

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Dim 17 Jui 2007, 15:48

D'accod un petit avis: au lieu de mettre à la fin de ton prog chaque fois si X=16 ... tu ferais mieux de mettre if X=16:then:...:End.
Ca prendra moins de place et fera moins bugger.

Sangohan38

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Dim 17 Jui 2007, 19:54

c'est beaucoup trop lent !

mis à part ca c'est correct

----------------------
--- LISTE DES JEUX POUR TI ---

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Lun 18 Jui 2007, 10:21

merci mais sa fait depuis septembre que je commence donc il faut racourcir le prog mais comment?

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 20 Jui 2007, 21:05

Déja en enlevant le If F=16 à chaque ligne mais en mettant If F=16:Then:...:End.

Sangohan38

Google_AdSense

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Jeu 21 Jui 2007, 9:17

oui et en plus.

pjl 19
Invité

Posté le : Mer 14 Oct 2009, 17:02

J'ai deux problèmes.Mon X réaparé dans les cages quand j'ai marqué ce qui fait que après un but j'en mets des tonnes.et le 0 ne bouge pas donc je met les buts comme je veux.J'ai relu j'ai pas trouvé l'erreur une idée??

Google_AdSense

Didouille

Autorisation : Membre
Nb de messages : 158
Inscrit le : Dim 11 Oct 2009, 14:18

Posté le : Mer 14 Oct 2009, 17:06

Non aucune, ce post date de 2 ans, je sais pas si quelqu'un aura la réponse, mais je pense avant tout que c'est une erreur de recopiage

----------------------
--Didouille--

pjl19
Invité

Posté le : Mer 14 Oct 2009, 18:15

si c'est du recopiage je veux bien qu'on me dise ou car j'ai relu trois fois.Merci didouille

Didouille

Autorisation : Membre
Nb de messages : 158
Inscrit le : Dim 11 Oct 2009, 14:18

Posté le : Mer 14 Oct 2009, 20:30

Je ne suis pas devin, je ne peut pas deviner où son tes erreurs

----------------------
--Didouille--

drdiablo

Autorisation : Membre
Nb de messages : 5
Inscrit le : Mer 14 Oct 2009, 20:26

Posté le : Mer 14 Oct 2009, 22:57

Quelqu'un pourrai mettre un lien pour le télécharger ?

C'est compatible TI-82 Stats.fr ?

Merci

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Jeu 15 Oct 2009, 13:16

je pourrais le faire ^^

mais je l'ai plus sur ma calto

Google_AdSense

pjl 19
Invité

Posté le : Jeu 15 Oct 2009, 19:05

Dis mad tu vois pas d'ou vienne mes erreurs steup?

RAXdu38
Invité

Posté le : Mar 06 Avr 2010, 21:45

j'ai un petit probleme concernant le programme du foot.

"if C=E and F+1=D and A+2<ou egal a C or C=E and F+1=D and A-2>ou egal a C"

suis- je obliger de faire ce "egal" (manuellement ou par fonction) ou est ce que je peu le traduire par : =.

Si je suis obliger de le trouver comme fonction, je ne le trouve pas.

Pourrier vous me préciser ou il se trouve !

Merci beaucoup

madian
Invité

Posté le : Mer 07 Avr 2010, 12:19

non c'est le cigle inferieur ou egal pas les 2 simboles séparé

en gros < avec la ptite barre en dessous

RAXdu38
Invité

Posté le : Sam 10 Avr 2010, 9:07

Merci beaucoup mais comment puis je faire le petit "a" qui se trouve juste après.

" if C=E and F+1=D and A+2<ou egal a C or C=E and F+1=D and A-2>ou egal a C "

Doit je le taper a la main ou est ce une fonction que je doit entrée ou est ce compris dans le sigle (inférieur ou égal)

Merci d'avance pour votre réponse

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Sam 10 Avr 2010, 15:30

C'est compris dans le sigle, tu a juste à le trouver.

Sangohan38

reptor94
Invité

Posté le : Dim 11 Avr 2010, 19:59

Bonjour a tous, moi j'ai un autre probleme.

Tout marche très bien : la présentation, l'entrée des équipes et de la difficultée.

C'est a ce moment la que ma calculette maffiche : ERR:ARGUMENT

Je clique sur voir et il me conduit o probleme suivant :

if A=E and B+1=F
0->M
if C=E and F+1=D and A+2<ou egal a C or C=E and F+1=D and A-2>ou egal a C
5->M
if M=5
F-1->F
rand int (1,Z)->Theta
if Theta=1
goto6

Et ma calculette m'indique cette parenthese et ce n'est la premiere fois. Kel est le probleme. Sachant que j'ai une TI 82 stats.fr.

Merci de votre réponses

reptor94

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Dim 11 Avr 2010, 20:46

C'est une seule fonction pas deux.
Si tu as la flegme de la cherchée tu peut toujours taper int rand(Z+1->Theta

Sangohan38

reptor94
Invité

Posté le : Dim 11 Avr 2010, 22:12

Merci pour ta réponse mais j'ai encore un autre probleme :

Dans la série de OutPut( ma calculette maffiche cela : "ERR : SYNTAXE"

Et ma barre clignote a cet endroit

lbl6
clrhome
output(A,B,"X
output(C,D,O
output(E,F,".
output(3,1,"-
output(7,1,3-(ma barre clignote ici juste après le -)
output(3,16,"-
output(7,16,"-
if F=1 and E> ou egal a 4 and E<ou egal a6

Ke doit je faire ??? help please

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Lun 12 Avr 2010, 14:00

rajoute un guillemet entre le 3 et le -

reptor94
Invité

Posté le : Mar 13 Avr 2010, 13:21

Non c bon g trouver le probleme.

En fait il suffisait d'enlever le chiffre 3 car il était en trop.

clrhome
output(A,B,"X
output(C,D,O
output(E,F,".
output(3,1,"- 2 nombres
output(7,1,3- 3 nombres
output(3,16,"- 2 nombres
output(7,16,"- 2 nombres

voila

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Mar 13 Avr 2010, 14:06

oh j'avais pas fait gaffe ^^

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Mer 21 Avr 2010, 10:07

il y avais une guillemet a la place du 3

Hitlerlecon
Invité

Posté le : Sam 24 Avr 2010, 12:38

il i a un otre probleme, mad !!!

quand le match est terminer, ma calculette m'ecrit :

Score :

Barca 6

Real 2

Temps 90
Minutes

PUIS

ma calculette m'ecrit : Err étiquettes. alor que j'ai recopier exactement le programme comme tu la écrit.

Peut tu e trouver le probleme merci !!!

Google_AdSense

Hitlerlecon
Invité

Posté le : Dim 25 Avr 2010, 11:58

Alor ?

vous aver la solution ou pas???

Page: 1, 2 >>

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

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

Flux RSS