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

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 winkle.gif


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

 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mar 12 Jui 2007, 16:50   Citer 

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

 Adresse email Haut de page Bas de page 
 
soul007



Autorisation : Membre
Nb de messages : 6
Inscrit le : Lun 30 Avr 2007, 21:01
Posté le : Mar 12 Jui 2007, 17:06   Citer 

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 winkle.gif

 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 : Jeu 14 Jui 2007, 8:18   Citer 

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

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