Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
Pes - Page 2 / 3
PMdej le 27/05/2007 à 12:56
d'ici lundi prochain j'expose 2 nouveaux programme !!!!!!!!!!!
mad67 le 27/05/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 le 27/05/2007 à 20:56
J'ai modifier deux petits mots de ton message pour éviter un quiproquo.
Sangohan38mad67 le 16/06/2007 à 11:38
voila le lien
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 le 17/06/2007 à 13:54
he donnez vos avis la.Sangohan38 le 17/06/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.
Sangohan38Ratuss le 17/06/2007 à 19:54
c'est beaucoup trop lent !
mis à part ca c'est correct
mad67 le 18/06/2007 à 10:21
merci mais sa fait depuis septembre que je commence donc il faut racourcir le prog mais comment?Sangohan38 le 20/06/2007 à 21:05
Déja en enlevant le If F=16 à chaque ligne mais en mettant If F=16:Then:...:End.
Sangohan38mad67 le 21/06/2007 à 09:17
oui et en plus.pjl 19 le 14/10/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??Didouille le 14/10/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 recopiagepjl19 le 14/10/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 le 14/10/2009 à 20:30
Je ne suis pas devin, je ne peut pas deviner où son tes erreurs
drdiablo le 14/10/2009 à 22:57
Quelqu'un pourrai mettre un lien pour le télécharger ?
C'est compatible TI-82 Stats.fr ?
Merci
mad67 le 15/10/2009 à 13:16
je pourrais le faire ^^
mais je l'ai plus sur ma caltopjl 19 le 15/10/2009 à 19:05
Dis mad tu vois pas d'ou vienne mes erreurs steup?RAXdu38 le 06/04/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 le 07/04/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 le 10/04/2010 à 09: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
Avertissement :Il s'agit d'une page optimisée pour la navigation mobile. Voir la
page originale.
