Gamme TI-82


Poster un nouveau sujet Poster une rponse
Sudokid
Auteur Message
Sangohan38



Autorisation : Membre
Nb de messages : 3388
Inscrit le : Sam 31 Dc 2005, 19:48
Post le : Dim 09 Juil 2006, 12:53   Citer 

Voici mon programme SUDOKID venant d'un jeu du mme nom sur tl Z.

Le code c'est:


Code
:FullScreen
:Float
:ClrHome
:ClrList L
:{1,1}dim [A]
:{12,12}dim [A]
:0X
:4Z:4
:Lbl 1
:X+1X
:Output(2,7,"!"
:Output(3,7,"!"
:Output(4,5,"--+--"
:Output(5,7,"!"
:Output(6,7,"!"
:int rand4+1A
:If X=20:Stop
:If A[A](Z,+1) and A[A](Z,+2) and A[A](Z,+3) and A[A](Z+1,) and A[A](Z,) and A[A](Z+3,) and A[A](Z-1,) and A[A](Z-2,) and A[A](Z-3,) and A[A](Z,-1) and A[A](Z,-2) and A[A](Z,-3)
:Goto 2
:Goto 1
:Lbl 2
:If Z=4 and =4 or Z=6 and =4 or Z=6 and =6 or Z=4 and =6:Goto A
:If Z=4 and =5 or Z=4 and =7 or Z=6 and =5 or Z=6 and =7:Goto B
:If Z=5 and =4 or Z=5 and =6 or Z=7 and =6 or Z=7 and =4:Goto C
:If Z=5 and =5 or Z=5 and =7 or Z=7 and =7 or Z=7 and =5:Goto D
:Lbl A
:If A[A](Z+1,+1):Goto 4
:Lbl B
:If A[A](Z+1,-1):Goto 4
:Goto 1
:Lbl C
:If A[A](Z-1,+1):Goto 4
:Goto 1
:Lbl D
:If A[A](Z-1,-1)
:Goto 4
:Goto 1
:Lbl 4
:A[A](Z,)
:+1
:1X
:If =8:Goto 5
:Goto 1
:Lbl 5
:If Z=7 and =8:Goto 6
:1X
:4
:Z+1Z
:Goto 1
:Lbl 6
:0U
:16dim L
:Lbl 0
:While U5
:AC:BD:CE:DF:EG:FH:GI:HJ
:Lbl 7
:int rand4+4A
:int rand4+4B
:If A=C and B=D:Goto 7
:If A=E and B=F:Goto 7
:If A=G and B=H
:Goto 7
:If A=I and J=A:Goto 7
:If A=4:B-3Z
:If A=5:A+B-4Z
:If A=6:A+B-1Z
:If A=7:A+B+2Z
:[A](A,B)L(Z)
:U+1U
:Goto 0
:End
:Output(2,5,L(1)
:If L(1)=0:Output(2,5," "
:Output(2,6,L(2)
:If L(2)=0:Output(2,6," "
:Output(2,8,L(3)
:If L(3)=0:Output(2,8," "
:Output(2,9,L(4)
:If L(4)=0:Output(2,9," "
:Output(3,5,L(5)
:If L(5)=0:Output(3,5," "
:Output(3,6,L(6)
:If L(6)=0:Output(3,6," "
:Output(3,8,L(7)
:If L(7)=0:Output(3,8," "
:Output(3,9,L(8)
:If L(8)=0:Output(3,9," "
:Output(5,5,L(9)
:If L(9)=0:Output(5,5," "
:Output(5,6,L(10)
:If L(10)=0:Output(5,6," "
:Output(5,8,L(11)
:If L(11)=0:Output(5,8," "
:Output(5,9,L(12)
:If L(12)=0:Output(5,9," "
:Output(6,5,L(13)
:If L(13)=0:Output(6,5," "
:Output(6,6,L(14)
:If L(14)=0:Output(6,6," "
:Output(6,8,L(15)
:If L(15)=0:Output(6,8," "
:Output(6,9,L(16)
:If L(16)=0:Output(6,9," "
:Stop



 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 : Dim 09 Juil 2006, 14:09   Citer 

j'adore le nom kiss.gif

PS : un lien qui marche ce serait mieux crazy.gif , @+

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



Autorisation : Membre
Nb de messages : 3388
Inscrit le : Sam 31 Dc 2005, 19:48
Post le : Dim 09 Juil 2006, 14:52   Citer 

Tu voit le lien que je met pour tlcharger mon morpion, mafia ...?
Et ben c'est le mme.

 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 : Dim 09 Juil 2006, 15:12   Citer 

Hein, dsl j 'ai pas compris minied.gif

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



Autorisation : Membre
Nb de messages : 180
Inscrit le : Lun 20 Mar 2006, 13:28
Post le : Dim 09 Juil 2006, 16:49   Citer 

cool un sudokid ! minied.gif le rond barr c "diffrent de"???? ahh.gif ahh.gif

----------------------
le travail c la sant winkle.gif
 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 : Dim 09 Juil 2006, 18:13   Citer 

D'ailleurs Sango logiquement t'as pas besoin du stop a la fin winkle.gif .

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



Autorisation : Membre
Nb de messages : 3388
Inscrit le : Sam 31 Dc 2005, 19:48
Post le : Lun 10 Juil 2006, 7:13   Citer 

Oups. Pour le Stop, c'est l'habitude.
Pour les correondance rond barrs ... prend le ti graph link et copie dessus.

 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 10 Juil 2006, 10:09   Citer 

Stop = 2 octet (1 pour le saut de ligne et 1 pour le symbole) extraterre.gif

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



Autorisation : Membre
Nb de messages : 3388
Inscrit le : Sam 31 Dc 2005, 19:48
Post le : Lun 10 Juil 2006, 10:20   Citer 

2 octets!!! MAIS C'EST ENORME!!!!!!!!! laugh.gif laugh.gif laugh.gif

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une rponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2019 Groupe FSB
Page gnre en 9 requtes
BlackOne par Grimmlink