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
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 
 
Google_AdSense



Publicité    



 
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 : 3391
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 
 
Google_AdSense



Publicité    



 
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 : 3391
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 - 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