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
Sudokid
Auteur Message
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 09 Juil 2006, 12:53   Citer 

Voici mon programme SUDOKID venant d'un jeu du même nom sur télé Z.

Le code c'est:


Code
:FullScreen
:Float
:ClrHome
:ClrList L
:{1,1}üdim [A]
:{12,12}üdim [A]
:0üX
:4üZ:4üÁ
:Lbl 1
:X+1üX
:Output(2,7,"!"
:Output(3,7,"!"
:Output(4,5,"--+--"
:Output(5,7,"!"
:Output(6,7,"!"
:int rand4+1üA
: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üÁ
:ú1üX
:If Á=8:Goto 5
:Goto 1
:Lbl 5
:If Z=7 and Á=8:Goto 6
:ú1üX
:4üÁ
:Z+1üZ
:Goto 1
:Lbl 6
:0üU
:16üdim L
:Lbl 0
:While U÷5
:AüC:BüD:CüE:DüF:EüG:FüH:GüI:HüJ
:Lbl 7
:int rand4+4üA
:int rand4+4üB
: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-3üZ
:If A=5:A+B-4üZ
:If A=6:A+B-1üZ
:If A=7:A+B+2üZ
:[A](A,B)üL(Z)
:U+1üU
: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 : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 09 Juil 2006, 14:52   Citer 

Tu voit le lien que je met pour télécharger mon morpion, mafia ...?
Et ben c'est le même.

----------------------
 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 "différent 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 : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 10 Juil 2006, 7:13   Citer 

Oups. Pour le Stop, c'est l'habitude.
Pour les correondance rond barrés ... 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 : 3391
Inscrit le : Sam 31 Déc 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 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