Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Generateur "Des chiffres et des lettres"

Generateur "Des chiffres et des lettres"

Auteur

Message

soul007

Autorisation : Membre
Nb de messages : 6
Inscrit le : Lun 30 Avr 2007, 21:01

Posté le : Mar 12 Jui 2007, 16:32

Allez hop maintenant que je suis en vacances j'enchaine !

Prenez votre TI, du papier un crayon, et c'est parti ! Notez qu'il faut y jouer a deux pour que ca vaille le coup. Ce programme n'est pas génial mais il évite de se faire prendre a taper comme un dingue sur calculatrice en cours

Code

Note : ^=fleche (sto)

GENERATEUR DES CHIFFRES ET DES LETTRES
--------------------------------------
:EffEcr
:Disp "GENERATEUR DE","DES CHIFFRES ET","DES LETTRES"
:Pause
:Menu("GEN. CHIF. LETR.","DES CHIFFRES",C1,"DES LETTRES",L1,"QUITTER",BM)
:Lbl C1
:EffEcr
:entAleat(1,15^A
:entAleat(1,15^B
:entAleat(1,15^C
:entAleat(1,15^D
:entAleat(1,15^E
:entAleat(1,15^F
:entAleat(2,299^G
:Output(3,3,A
:Output(4,5,B
:Output(3,7,C
:Output(4,9,D
:Output(3,11,E
:Output(4,13,F
:Output(6,7,G
:Pause
:Goto C1
:Lbl L1
:EffEcr
:0^C
:Lbl V1
:C+1^C
:entAleat(1,37^Z
:If Z=1:"A">Chaine0
:If Z=2:"B">Chaine0
:If Z=3:"C">Chaine0
:If Z=4:"D">Chaine0
:If Z=5:"E">Chaine0
:If Z=6:"F">Chaine0
:If Z=7:"G">Chaine0
:If Z=8:"H">Chaine0
:If Z=9:"I">Chaine0
:If Z=10:"J">Chaine0
:If Z=11:"K">Chaine0
:If Z=12:"L">Chaine0
:If Z=13:"M">Chaine0
:If Z=14:"N">Chaine0
:If Z=15:"O">Chaine0
:If Z=16:"P">Chaine0
:If Z=17:"Q">Chaine0
:If Z=18:"R">Chaine0
:If Z=19:"S">Chaine0
:If Z=20:"T">Chaine0
:If Z=21:"U">Chaine0
:If Z=22:"V">Chaine0
:If Z=23:"W">Chaine0
:If Z=24:"X">Chaine0
:If Z=25:"Y">Chaine0
:If Z=26:"Z">Chaine0
:If Z=27:"A">Chaine0
:If Z=28:"A">Chaine0
:If Z=29:"E">Chaine0
:If Z=30:"E">Chaine0
:If Z=31:"O">Chaine0
:If Z=32:"O">Chaine0
:If Z=33:"U">Chaine0
:If Z=34:"U">Chaine0
:If Z=35:"I">Chaine0
:If Z=36:"I">Chaine0
:If Z=37:"Y">Chaine0
:If C=1:Goto Q1
:If C=2:Goto Q2
:If C=3:Goto Q3
:If C=4:Goto Q4
:If C=5:Goto Q5
:If C=6:Goto Q6
:If C=7:Goto Q7
:If C=8:Goto Q8
:Lbl Q1
:Chaine0^Chaine1
:Goto V1
:Lbl Q2
:Chaine0^Chaine2
:Goto V1
:Lbl Q3
:Chaine0^Chaine3
:Goto V1
:Lbl Q4
:Chaine0^Chaine4
:Goto V1
:Lbl Q5
:Chaine0^Chaine5
:Goto V1
:Lbl Q6
:Chaine0^Chaine6
:Goto V1
:Lbl Q7
:Chaine0^Chaine7
:Goto V1
:Lbl Q8
:Chaine0^Chaine8
:Goto Q
:Lbl Q
:EffEcr
:Output(4,1,Chaine1
:Output(3,3,Chaine2
:Output(4,5,Chaine3
:Output(3,7,Chaine4
:Output(4,9,Chaine5
:Output(3,11,Chaine6
:Output(4,13,Chaine7
:Output(3,15,Chaine8
:Pause:Goto L1

le code est long et le programme n'est utile que si on compte y jouer vraiment

Stupid

Autorisation : Membre
Nb de messages : 768
Inscrit le : Jeu 28 Sep 2006, 18:42

Posté le : Mar 12 Jui 2007, 16:50

ah tiens on essaye de me plagier?^^

non il y'a quelques problemes, comme la repartition des lettres
autant de chances d'avoir un Z qu'un R

soul007

Autorisation : Membre
Nb de messages : 6
Inscrit le : Lun 30 Avr 2007, 21:01

Posté le : Mar 12 Jui 2007, 17:06

Oui c'est un problème récurrent on se retrouve avec des Q et des X partout mais bon je reglerais ca apres car j'ai encore trois programmes a recopier

Sangohan38

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

Posté le : Jeu 14 Jui 2007, 8:18

Fait plusieurs nombres aléatoires.
Par exemple si le premier vaut 1, tu passe au suivant qui va déterminer la lettre qui est peut utilisée dans l'alphabet.

Au fait, ce prog n'est compatible qu'à partir de la 82 STATS.

Sangohan38

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Generateur "Des chiffres et des lettres"

Flux RSS