Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> cryptographie

cryptographie

Auteur

Message

craminou

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Lun 28 Avr 2008, 22:59

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‚(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‚(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

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Mar 29 Avr 2008, 20:22

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ü

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ü

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

craminou

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Mar 29 Avr 2008, 23:08

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

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Mer 30 Avr 2008, 19:31

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ü

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

craminou

Autorisation : Membre
Nb de messages : 138
Inscrit le : Sam 15 Avr 2006, 11:31

Posté le : Sam 03 Mai 2008, 20:26

waaaaaaaaaaaaa!! extraordinaire!!
je savait pas que tu pouvais lui soumetre une condition comme sa!!!
magnifique !! merci beaucoup!

Google_AdSense

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Dim 04 Mai 2008, 9:33

n'en fait pas trop non plus :p

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Dim 04 Mai 2008, 11:17

Cette ligne est encore simplifiable:

Code

If G>50:G-47->X

Sangohan38

Ratuss

Autorisation : Membre
Nb de messages : 1561
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Dim 04 Mai 2008, 14:03

tu veux dire comme ceci ?

G-47(G>50->X

----------------------
--- LISTE DES JEUX POUR TI ---

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Dim 04 Mai 2008, 14:34

Oui effectivement.

Sangohan38

Jao49
Invité

Posté le : Dim 05 Avr 2009, 10:56

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

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> cryptographie

Flux RSS