Gamme TI-82


Poster un nouveau sujet Poster une réponse
cryptographie
Auteur Message
craminou
Avatar

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31
Posté le : Lun 28 Avr 2008, 22:59   Citer 

cette fois il marche bien : 0 lettre de décallage pour quitter

Code
ClrAllLists
ClrHome
0üG
0üN
1üZ
1üY
Output(1,1,"MESSAGE:
Pause
ClrHome
While Gø105
0üG
While G=0
getKeyüG
End
ú200üX
If G=41
1üX
If G=42
2üX
If G=43
3üX
If G=45
Then
N-1üN
ú1üX
Z-1üZ
If Z=0
Then
1üZ
Y-1üY
If Y=0
1üY
End
Output(Y,Z,"
Z-1üZ
If Z=0
Then
1üZ
Y-1üY
If Y=0
Then
1üY
0üZ
End
End
End
If N<0
0üN
If G=51
4üX
If G=52
5üX
If G=53
6üX
If G=54
7üX
If G=55
8üX
If G=61
9üX
If G=62
10üX
If G=63
11üX
If G=64
12üX
If G=65
13üX
If G=71
14üX
If G=72
15üX
If G=73
16üX
If G=74
17üX
If G=75
18üX
If G=81
19üX
If G=82
20üX
If G=83
21üX
If G=84
22üX
If G=85
23üX
If G=91
24üX
If G=92
25üX
If G=93
26üX
If G=102
100üX
If X>0
Then
N+1üN
XüL(N)
End
1üP
Goto 1
Lbl 2
Z+1üZ
If Z=17
Then
1üZ
Y+1üY
End
End
2üP
1üB
While BøN+1
L(B)üL&#8218;(B)
B+1üB
End
Lbl 0
Output(1,1,"NOMBRE DE LETTRE DE DECALAGE?
Pause
ClrHome
Input D
ClrHome
If D=0
Stop
If D<1 or D>25
Then
Output(1,1,"DECALAGE INUTILE
Pause
ClrHome
Goto 0
End
If D=Á
Stop
1üB
1üY
1üZ
While BøN+1
L(B)üX
X+DüX
If X>26 and X÷50
X-26üX
XüL(B)
Lbl 1
If X=1
Output(Y,Z,"A
If X=2
Output(Y,Z,"B
If X=3
Output(Y,Z,"C
If X=4
Output(Y,Z,"D
If X=5
Output(Y,Z,"E
If X=6
Output(Y,Z,"F
If X=7
Output(Y,Z,"G
If X=8
Output(Y,Z,"H
If X=9
Output(Y,Z,"I
If X=10
Output(Y,Z,"J
If X=11
Output(Y,Z,"K
If X=12
Output(Y,Z,"L
If X=13
Output(Y,Z,"M
If X=14
Output(Y,Z,"N
If X=15
Output(Y,Z,"O
If X=16
Output(Y,Z,"P
If X=17
Output(Y,Z,"Q
If X=18
Output(Y,Z,"R
If X=19
Output(Y,Z,"S
If X=20
Output(Y,Z,"T
If X=21
Output(Y,Z,"U
If X=22
Output(Y,Z,"V
If X=23
Output(Y,Z,"W
If X=24
Output(Y,Z,"X
If X=25
Output(Y,Z,"Y
If X=26
Output(Y,Z,"Z
If X>26
Output(Y,Z,"
If P=1
Goto 2
B+1üB
Z+1üZ
If Z=17
Then
1üZ
Y+1üY
End
End
Pause
1üE
While EøN+1
L&#8218;(E)üL(E)
E+1üE
End
Goto 0



il me semble que j'ai été pas trop mauvais au niveau du radinnage de place , n'est-ce pas ratuss?
j'essayerai de mettre un lien parseque en loccurence sa vaut pas trop la peine de se faire c***r a tout recopier pour sa , a moin d'avoir plein de message a codé avec cette technique eyeonly.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 : Mar 29 Avr 2008, 20:22   Citer 

Bah y a moyen de faire mieux regarde par exemple :



Code
If G=51
4üX
If G=52
5üX
If G=53
6üX
If G=54
7üX
If G=55
8üX
If G=61
9üX
If G=62
10üX
If G=63
11üX
If G=64
12üX
If G=65
13üX
If G=71
14üX
If G=72
15üX
If G=73
16üX
If G=74
17üX
If G=75
18üX
If G=81
19üX
If G=82
20üX
If G=83
21üX
If G=84
22üX
If G=85
23üX
If G=91
24üX
If G=92
25üX
If G=93
26üX
If G=102
100üX



ca peut donner :

Code
4+(G>51)+(G>52)+(G>53)+...+(G=102->X




et a mon avis c'est encore possible de comprimer tout ca avec une boucle for :p

un truc comme ca par ex :


Code
4->X
For (A,1,5
X+(G>50+A)+(G>60+A)+(G>70+A)+(G>80+A)+(G>90)->X
End
100(G=102üX




et encore :p :


Code
4->X
For (A,1,5
For (B,10,50
X+(G>40+B+A)->X
End
End
E2(G=102->X



(E c'est le petit E)








(pas testé par contre)
+

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

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31
Posté le : Mar 29 Avr 2008, 23:08   Citer 

waaaa!!!
respect , j'en ai compris aucune.....

 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 : Mer 30 Avr 2008, 19:31   Citer 

bah c'est simple regarde ;-) :

A>B renvoi 1 si A est strictement supérieur à B. (et sinon 0)


Code
If G=51
4üX
If G=52
5üX
If G=53
6üX



tu le remplaces par :


Code
4+(G>51)+(G>52)->X



si G=52 par exemple
alors G>51 = 1
alors G>52 = 0

donc cela revient à écrire:


Code
4+1+0->X



d'où X=5 (ca concorde avec l'autre code)








en plus je viens de me rendre compte il y avait une erreur dans mon code :p :

4->X
For (A,1,5
For (B,10,50
X+(G>40+B+A)->X
End
End
E2(G=102->X



4->X
For (A,1,5
For (B,10,50
X+(G>40+B+A)->X
End
End
If G=102
E2->X


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

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31
Posté le : Sam 03 Mai 2008, 20:26   Citer 

waaaaaaaaaaaaa!! extraordinaire!!
je savait pas que tu pouvais lui soumetre une condition comme sa!!!
magnifique !! merci beaucoup! glasses.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 04 Mai 2008, 9:33   Citer 

n'en fait pas trop non plus :p

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



Autorisation : Membre
Nb de messages : 3388
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 04 Mai 2008, 11:17   Citer 

Cette ligne est encore simplifiable:


Code
If G>50:G-47->X



Sangohan38

 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 04 Mai 2008, 14:03   Citer 

tu veux dire comme ceci ?

G-47(G>50->X

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



Autorisation : Membre
Nb de messages : 3388
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 04 Mai 2008, 14:34   Citer 

Oui effectivement.

Sangohan38

 Adresse email Haut de page Bas de page 
 
Jao49
Invité
Posté le : Dim 05 Avr 2009, 10:56   Citer 

Bonjour.
Donc si on résume, ça donne quoi?
SVP

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Poster un nouveau sujet Poster une réponse





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