Forum | TOUT sur la TI-82

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

Mendeleïev

Auteur

Message

charlesjean

Autorisation : Membre
Nb de messages : 32
Inscrit le : Lun 08 Oct 2012, 18:28

Posté le : Sam 24 Nov 2012, 7:47

voici un programme qui affiche les elements de la table de Mendeleïev sous forme d'une liste(attention,il est [très!] lourd):

Code

DelVar Str1
DelVar L
DelVar L‚
"1 HYDROGENE H2 HELIUM HE3 LITHIUM LI4 BERYLLIUM BE5 BORE B6 CARBONE C7 AZOTE
N8 OXYGENE O9 FLUOR F10 NEON NE11 SODIUM NA12 MAGNESIUM MG13 ALUMINIUM AL14
SILICIUM SI15 PHOSPHORE P16 SOUFRE S17 CHLORE CL18 ARGON AR19 POTASSIUM K20
CALCIUM CA21 SCANDIUM SC22 TITANE TI23 VANADIUM V24 CHROME CR25 MANGANESE MN26
FER FE27 COBALT CO28 NICKEL NI29 CUIVRE CU30 ZINC ZN31 GALLIUM GA32 GERMANIUM
GE33 ARSENIC AS34 SELENIUM SE35 BROME BR36 KRYPTON KR37 RUBIDIUM RB38 STRONTIUM
SR39 YTTRIUM Y40 ZIRCONIUM ZR41 NIOBIUM NB42 MOLYBDENE MO43 TECHNETIUM TC44
RUTHENIUM RU45 RHODIUM RH46 PALLADIUM PD47 ARGENT AG48 CADMIUM CD49 INDIUM IN50
ETAIN SN51 ANTIMOINE SB52 TELLURE TE53 IODE I54 XENON XE55 CESIUM CS56 BARYUM
BA57 LANTHANE LA58 CERIUM CE59 PRASEODYME PR60 NEODYME ND61 PROMETHIUM PM62
SAMARIUM SM63 EUROPIUM EU64 GADOLINIUM GD65 TERBIUM TB66 DYSPROSIUM DY67
HOLMIUM HO68 ERBIUM ER69 THULIUM TM70 YTTERBIUM YB71 LUTECIUM LU72 HAFNIUM HF73
TANTALE TA74 TUNGSTENE W75 RHENIUM RE76 OSMIUM OS77 IRIDIUM IR78 PLATINE PT79
OR AU80 MERCURE HG81 THALLIUM TL82 PLOMB PB83 BISMUTH BI84 POLONIUM PO85 ASTATE
AT86 RADON RN87 FRANCIUM FR88 RADIUM RA89 ACTINIUM AC90 THORIUM TH91
PROTACTINIUM PA92 URANIUM U93 NEPTUNIUM NP94 PLUTONIUM PU95 AMERICIUM AM96
CURIUM CM97 BERKELIUM BK98 CALIFORNIUM CF99 EINSTEINIUM ES100 FERMIUM FM101
MENDELEVIUM MD102 NOBELIUM NO103 LAWRENCIUM LR104 RUTHERFORDIUM RF105 DUBNIUM
DB106 SEABORGIUM SG107 BOHRIUM BH108 HASSIUM HS109 MEITNERIUM MT110
DARMSTADTIUM DS111 ROENTGENIUM RG112 UNUNBIUM UUB113 UNUNTRIUM UUT114
UNUNQUADIUM UUQ115 UNUNPENTIUM UUP116 UNUNHEXIUM UUH117 UNUNSEPTIUM UUS118
UNUNOCTIUM UUO"ü

Str1
{13,11,12,14,8,11,9,11,9,10,12,15,15,14,14,11,12,11,14,13,14,12,13,12,15,9,12,12
,12,10,13,15,13,14,11,13,14,15,12,15,13,15,16,15,13,15,12,13,12,11,15,13,9,11,12
,12,14,12,16,13,16,14,14,16,13,16,13,12,13,15,14,13,13,14,13,12,13,13,8,13,14,11
,13,14,12,11,14,12,14,13,18,12,15,15,15,12,15,17,17,14,18,15,17,20,14,17,14,14,1
7,19,18,16,17,19,19,18,19,18}ü

L
{1,14,25,37,51,59,70,79,90,99,109,121,136,151,165,179,190,202,213,227,240,254,26
6,279,291,306,315,327,339,351,361,374,389,402,416,427,440,454,469,481,496,509,52
4,540,555,568,583,595,608,620,631,646,659,668,679,691,703,717,729,745,758,774,78
8,802,818,831,847,860,872,885,900,914,927,940,954,967,979,992,1005,1013,1026,104
0,1051,1064,1078,1090,1101,1115,1127,1141,1154,1172,1184,1199,1214,1229,1241,125
6,1273,1290,1304,1322,1337,1354,1374,1388,1405,1419,1433,1450,1469,1487,1503,152
0,1539,1558,1576,1595,1613}ü

L‚
0ü

G
0ü

D
Menu("AVANCEE","LENTE",3,"MOYENNE",6,"RAPIDE",4)
Lbl 3
1ü

H
Goto 5
Lbl 6
4ü

H
Goto 5
Lbl 4
8ü

H
Lbl 5
Input "Z=",A
If A>111
111ü

A
Lbl 0
Repeat C=25 or C=34 or C=24 or C=26 or D=0
getKeyü

C
End
If C=26 and G<4
G+1ü

G
If C=24 and G>0
G-1ü

G
If C=34 and A<111
A+Hü

A
If A>111
111ü

A
If C=25 and A>1
A-Hü

A
If A<1
1ü

A
ClrHome
1ü

D
0ü

F
For(B,A,A+7)
F+1ü

F
Output(F,1,sub(Str1,L‚(B)+G,L(B)-G)
End
Goto 0

----------------------
une journée sans rire est une journée perdue .
rire 30 minutes par jour rends la santé et augmente la durée de vie!
(ne remplace pas l'avis d'un spécialiste ou d'un professionnel de la santé,veuillez consulter un médecin)

Overdozage

Autorisation : Membre
Nb de messages : 24
Inscrit le : Jeu 18 Oct 2012, 21:19

Posté le : Sam 24 Nov 2012, 8:12

Il prend combien de place ? En tout cas il a l'air pas mal

Et que veulent dire les ü ?

AlexRider38

Autorisation : Membre
Nb de messages : 137
Inscrit le : Ven 26 Mar 2010, 17:13

Posté le : Sam 24 Nov 2012, 11:56

Met ta souris dessus et tu verra apparaitre la touche sto

blg_flg

Autorisation : Membre
Nb de messages : 646
Inscrit le : Mer 23 Mai 2012, 17:28

Posté le : Sam 24 Nov 2012, 13:50

Et tu as toute la liste de ces caractères bizarres ici.

Soul Polochon

Autorisation : Membre
Nb de messages : 14
Inscrit le : Ven 19 Oct 2012, 17:41

Posté le : Sam 24 Nov 2012, 14:27

tiens moi qui les cherchais merci beaucoup!!!

----------------------
Quand il est l'heure de programmer, c'est plus l'heure et quand c'est les cours de math, c'est l'heure!

charlesjean

Autorisation : Membre
Nb de messages : 32
Inscrit le : Lun 08 Oct 2012, 18:28

Posté le : Dim 25 Nov 2012, 13:14

il prends 2793 o
mais il utilise une chaine et deux listes qui prennent 1620,1071 o et 1080 o que tu peut effacer à la fin du prgm
ce qui fais un total de 5864 o
et merci au grec pour sa liste.

----------------------
une journée sans rire est une journée perdue .
rire 30 minutes par jour rends la santé et augmente la durée de vie!
(ne remplace pas l'avis d'un spécialiste ou d'un professionnel de la santé,veuillez consulter un médecin)

charlesjean

Autorisation : Membre
Nb de messages : 32
Inscrit le : Lun 08 Oct 2012, 18:28

Posté le : Dim 25 Nov 2012, 16:55

oups,
voila,c'est réglé

----------------------
une journée sans rire est une journée perdue .
rire 30 minutes par jour rends la santé et augmente la durée de vie!
(ne remplace pas l'avis d'un spécialiste ou d'un professionnel de la santé,veuillez consulter un médecin)

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

Page générée en 6 requêtes

Flux RSS