Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Ping-pong
Auteur Message
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Dim 01 Juil 2007, 14:54   Citer 

J'ai beaucoup hésité à le mettre ce programme...

C'est en fait - dans l'ordre - le deuxième programme de ma création, autant dire qu'il n'est pas génial minied.gif

Mais ça ne coute rien de le mettre happy.gif


Code
ClrDraw
1->Xmin
1->Ymin
100->Xmax
100->Ymax
For(B,22,52
If B=23:Text(25,B,"C
If B=27:Text(25,B,"O
If B=31:Text(25,B,"C
If B=35:Text(25,B,"5
getKey->K
End
Lbl 7
For(B,1,15
If B=2:Text(25,60,"PRESENTE"
If B=6:Text(25,60,"                                       
If B=11:Text(25,60,"PRESENTE
End
0->[Liste n°4](1)
Text(32,48,"PING
Pause
ClrHome
0->X
5->J
7->C
1->R
0->G
0->H
11->B
10->A
1->E
0->F
A->S
1->I
Lbl 0
If S>14:14->S
If S<1:1->S
If K=83:G+1->G
If C÷1
Then
If B<S or B>S+2
Then
G+1->G
1->F
End
End
B+E->B
C+F->C
Lbl 25
If I>0
Then
7->C
A->S
Output(4,3,"APPUYEZ SUR                       [ENTER]"
If B<A:A->B
If B>A+2:A+2->B
End
getKey->K
If K=26:A+1->A
If K=105:0->I
If K=24:A-1->A
If A<1
Then
1->A
B-1->B
End
If A>14
Then
14->A
B+1->B
End
If B<1:1->B
If B>16:16->B
ClrHome
Output(C,B,".
Output(1,S,"===
Output(8,A,"===
Output(1,1,H
Output(8,1,G
If I>0:Goto 25
If C÷3 and A>S
Then
If S=B-1 or S=B+1:B->S
End
If S<1:1->S
If S>14:14->S
If F=-1
Then
(C-2)E+B->O
If O>16:-O+32->O
If O<1:-O->O
If OùS and S>O-3:0->D
If S>O:-1->D
If S<O-2:1->D
If O=0:0->D
S+D->S
End
If E=0 and C=4 and F=-1
Then
If B=S or B=S+2:B-1->S
End
If E=0 and C=3 and F=-1 and B=S+1:randInt(-1,1)+S->S
If F=1
Then
randInt(0,2)->W
If B>S+2 and W>0:S+1->S
If B<S and 0<W:S-1->S
End
If B=16 or B=1:-E->E
If BùS and B÷S+2 and C÷2
Then
1->F
If C=1:-E2->E
If C=2
Then
If B=S:-1->E
If B=S+1:0->E
If B=S+2:1->E
End
End
If BùA and B<A+4 and Cù7
Then
-1->F
If C=8:2*-E->E
If C=7
Then
If B=A:-1->E
If B=A+1:0->E
If B+-1=A+2-1:1->E
End
End
X+1->X
If Cù8 and B<A or B>A+2 and Cù8
Then
H+1->H
7->C
A+1->B
1->I
End
If G=3 or H=3:Then
If G=3:Output(1,4,"GAGNE !
If H=3:Output(1,4,"PERDU !"
Disp " "
If Hø3
Then
Disp "TEMPS",X
If X<[Liste n°4](1):X->[Liste n°4](1)
Disp "RECORD"
If Xø[Liste n°4](1):Output(4,8,X
If X=[Liste n°4](1):Output(4,8,"BATTUE !"
End
Stop:End
If A>14:14->A
If A<1:1->A
Goto 0

 



Peut - être que je vais m'y remmettre pour l'améliorer, je ne sais pas^^

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Lun 02 Juil 2007, 10:23   Citer 

il y a une ia?

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Lun 02 Juil 2007, 13:01   Citer 

Je crois que l'on dit A.I (ça ne se traduit pas en franaçis en IA^^).

Et donc oui, il y en a une. Je l'ai déjà battue^^

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Lun 02 Juil 2007, 13:43   Citer 

http://www.google.fr/search?hl=fr&q=ia&meta=

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Lun 02 Juil 2007, 13:58   Citer 

Au temps pour moi, j'ai appris quelque chose happy.gif

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mar 03 Juil 2007, 8:54   Citer 

elle est dur a battre ou pas?tu peux mettre un lien 82p?

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mar 03 Juil 2007, 11:34   Citer 

Si on trouve la bonne technique c'est moins dur^^
Et sinon je trouve un site pour mettre des fichiers à télécharger ok happy.gif

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
mad67
Avatar

Autorisation : Membre
Nb de messages : 638
Inscrit le : Sam 23 Jui 2007, 14:05
Posté le : Mer 04 Juil 2007, 8:46   Citer 

prends badongo
http://www.badongo.com

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa