Atomes (forum) | TOUT sur la TI-82

Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 6431
Réponses : 38
Type : discussion
Etat : réponses autorisées

Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Atomes

Sangohan38 le 16/02/2006 à 21:07

Donc g créer un programme sur les atome. Il prend environ 10000. Il 'agit d'un programme qui permet de savoir pleins d'information sur le atomes. Je nbe vais pas le taper en entier parceque j'ai la flem mai bon le principe du code c'etr:

Code

: ClrHome

: 3=>A

: 6=>B

: 9=>C

: 12=>D

: 15=>E

: 18=>F

: 21=>G

: 24=>H

: 27=>I

: 30=>J

: 33=>K

: 36=>L

: 39=>M

: 42=>N

: 45=>O

: 48=>P

: 51=>Q

: 54=>R

: 57=>S

: 60=>T

: 63=>U

: 66=>V

: 69=>W

: 72=>X

: 75=>Y

: 78=>Z

: Input "ATOME",A

: If A=H

: Then

: ClrHome

: Disp "HYDROGENE H","MAS.MOLAIR:1.0","NUM.ATOMIQUE:1","CATE:METAUX","ALCALIN"

: Pause

: ClrHome

: Else

: If A=HE

: Then

: ClrHome

: Disp "HELI HE","AS MOLAIRE:?","NUM.ATOMIQUE:2","CATE: GAZ","GAZ NOBLE"

: Pause

: ClrHome

: Else

: If A=LI

: Then

: .......

Donc voila snon javaispensé pour que cela prenne moin de place de définir un Goto pour les "titres" (Mass.MOLAIR, NUM.ATOMAIQUE:) mais j'y arive pas donc si quelqu'un trouve la solution, qu'il me le fasse savoir (et me la dise).

webmaster le 16/02/2006 à 22:42

Effectivement, ce programme risque d'être long, très long à entrer dans sa TI !

@+ Le Webmaster

Sangohan38 le 17/02/2006 à 18:01

Quand on et rapide a taper et que l'on i connait, 18éléments prend environ 45 minutes (enfin c le tps que j'ai mis).

ratuss le 27/02/2006 à 18:39

Salut,

J'ai trouve ton idee très interessante, c'est pourquoi je te propose ce début de code:
c'est une liste qui permet de visionner tout les atomes (ne fait attention au reste parce que c'est pas encore au point

Les touches:
.enter
.les 4 fleches
.+ et -

Je pense que ce serais aussi interressant de mette une partie cours ou onpuisse voir les principale regle sur l'atome

Si tu a pas le cable, tu peux tjs l'essayer avec l'emulateur

Rappel
ü = ->
ø = [pas égal à]
ú = ( - )
ù = [plus grand ou egal à]

Code

:Lbl 7

:ClrHome

:Disp "","","","","","",""

:Menu("Atomes","Liste",4,"Nôatomique",5,"Credit",6,"Quitter",Z)

:Lbl 4

:0ü (  ) A

:1ü (  ) C

:1ü (  ) D

:Goto A

:Lbl 0

:output(C,1,"*")

:If CøD:output(D,1," ")

:0ü (  ) K

:While K=0

:gandKeyü (  ) K

:End

:If K=45

:Goto 7

:

:If K=26:Then

:(A*7)+Cü (  ) A

:If Aù (  ) 44:A+1ü (  ) A

:If Aù (  ) 61:A+1ü (  ) A

:If Aù (  ) 63:A+1ü (  ) A

:If Aù (  ) 65:A+1ü (  ) A

:If Aù (  ) 69:A+1ü (  ) A

:If Aù (  ) 72:A+1ü (  ) A

:If Aù (  ) 98:A+1ü (  ) A

:If Aù (  ) 105:A+1ü (  ) A

:If Aù (  ) 107:A+1ü (  ) A

:If Aù (  ) 109:A+1ü (  ) A

:If Aù (  ) 112:A+1ü (  ) A

:If Aù (  ) 115:A+1ü (  ) A

:If Aù (  ) 117:A+1ü (  ) A

:If Aù (  ) 119:A+1ü (  ) A

:If Aù (  ) 121:A+1ü (  ) A

:If Aù (  ) 125:A+2ü (  ) A

:If Aù (  ) 128:A+1ü (  ) A

:If Aù (  ) 130:A+1ü (  ) A

:Goto 5

:End

:

:Cü (  ) D

:Lbl 2

:If K=25:C-1ü (  ) C

:If K=34:C+1ü (  ) C

:

:If (C=2 and (A=6 or A=9 or A=10 or A=15 or A=17 or A=18)) or (C=3 and A=16) or (C=4 and (A=15 or A=18) or (C=5 and (A=8 or A=16)) or (C=6 and (A=9 or A=17 or A=18)) or (C=7 and (A=8 or Aù (  ) 13 and A÷ (  ) 18))

:Goto 2

:

:If (K=34 or K=25) and C÷ (  ) 7 and Cù (  ) 1:Goto 0

:If K=95 or K=34:A+1ü (  ) A

:If K=85 or K=25:A-1ü (  ) A

:If C>7 or K=85 or K=95:1ü (  ) C

:If C<1:Then

:7ü (  ) C

:If A=8 or (Aù (  ) 13 and A÷ (  ) 16):6ü (  ) C

:If A=17 or A=ú (  ) 1:5ü (  ) C

:End

:

:If Kø105:Goto 1

:

:Input "Atteindre : ",A

:

:If Aù (  ) 44:A+1ü (  ) A

:If A>61:A+1ü (  ) A

:If A>63:A+1ü (  ) A

:If A>65:A+1ü (  ) A

:If A>69:A+1ü (  ) A

:If A>72:A+1ü (  ) A

:If A>98:A+1ü (  ) A

:If A>105:A+1ü (  ) A

:If A>107:A+1ü (  ) A

:If A>109:A+1ü (  ) A

:If A>112:A+1ü (  ) A

:If A>115:A+1ü (  ) A

:If A>117:A+1ü (  ) A

:If A>119:A+1ü (  ) A

:If A>121:A+1ü (  ) A

:If A>125:A+2ü (  ) A

:If A>128:A+1ü (  ) A

:If A>130:A+1ü (  ) A

:

:A-int((A-1)/7)*7ü (  ) C

:int((A-1)/7)ü (  ) A

:

:

:Lbl 1

:If A<0:18ü (  ) A

:If A>18:0ü (  ) A

:

:If A=0:Goto A

:If A=1:Goto B

:If A=2:Goto C

:If A=3:Goto D

:If A=4:Goto E

:If A=5:Goto F

:If A=6:Goto G

:If A=7:Goto H

:If A=8:Goto I

:If A=9:Goto J

:If A=10:Goto K

:If A=11:Goto L

:If A=12:Goto M

:If A=13:Goto N

:If A=14:Goto O

:If A=15:Goto P

:If A=16:Goto Q

:If A=17:Goto R

:If A=18:Goto S

:

:Lbl A

:output(1,1," 1 He hydrogène  2 He hélium     3 Li lithium    4 Be béryllium  5 B  bore       6 C  carbone    7 N  azote     "

:Goto 0

:Lbl B

:output(1,1," 8  O  oxygène   9  F  fluor     10 Ne néon      11 Na sodium    12 Mg magnésium 13 Al aluminium 14 Si silicium "

:Goto 0

:Lbl C

:output(1,1," 15 P  phosphore 16 S  sorfre    17 Cl chlore    18 Ar argon     19 K  potassium 20 Ca calcium   21 Sc scandium "

:Goto 0

:Lbl D

:output(1,1," 22 Ti titane    23 V  vanadium  24 Cr chrome    25 Mn manganèse 26 Fe fer       27 Co cobalt    28 Ni nickel   "

:Goto 0

:Lbl E

:output(1,1," 29 Cu cuivre    30 Zn zinc      31 Ga gallium   32 Ge germanium 33 As arsenic   34 Se sélénium  35 Br brome    "

:Goto 0

:Lbl F

:output(1,1," 36 Kr krypton   37 Rb rubidium  38 Sr strontium 39 Y  yttrium   40 Zr zirconium 41 Nb niobium   42 Mo molybdène"

:Goto 0

:Lbl G

:output(1,1," 43 Tc technéú (  )          tium      44 Ru ruthénium 45 Rh rhodium   46 Pd palladium 47 Ag argint    48 Cd cadmium  "

:Goto 0

:Lbl H

:output(1,1," 49 In indium    50 Sn étain     51 Sb antimoine 52 Te tellure   53 I  iode      54 Xe xénon     55 Cs césium   "

:Goto 0

:Lbl I

:output(1,1," 56 Ba baryum    57 La lanthane  58 Ce cérium    59 Pr praséoú (  )          disme     60 Nd néodisme                 "

:Goto 0

:Lbl J

:output(1,1," 61 Pm proméú (  )           thium     62 Sm samarium  63 Eu europium  64 Gd gadoliú (  )          nium      65 Tb terbium  "

:Goto 0

:Lbl K

:output(1,1," 66 Dy dysproú (  )          sium      67 Ho holmium   68 Er erbium    69 Tm thulium   70 Yb ytterbium 71 Lu lutétium "

:Goto 0

:Lbl L

:output(1,1," 72 Hf hafnium   73 Ta tantalee  74 W  tungstène 75 Re rhénium   76 Os osmium    77 Ir iridium   78 Pt platine  "

:Goto 0

:Lbl M

:output(1,1," 79 Au or        80 Hg mercure   81 Tl thallium  82 Pb plomb     83 Bi bismuth   84 Po plonium   85 At astate   

:Goto 0

:Lbl N

:output(1,1," 86 Rn radon     87 Fr francium  88 Ra radium    89 Ac actinium  90 Th thorium   91 Pa protactiú (  )        nium     "

:Goto 0

:Lbl O

:output(1,1," 92 U  uranium   93 Np neptunium 94 Pu plutonium 95 Am américium 96 Cm curium    97 Bk brekélium                "

:Goto 0

:Lbl P

:output(1,1," 98  Cf califorú (  )         nium     99  Es einsteiú (  )         nium     100 Fm fermium  101 Md mendéléú (  )         vium    "

:Goto 0

:Lbl Q

:output(1,1," 102 No nobélium 103 Lr lawrenú (  )          cium     104 Rf rutherú (  )       fordium     105 Db dubnium                 "

:Goto 0

:Lbl R

:output(1,1," 106 Sg seaború (  )          gium     107 Bh bohrium  108 Hs hassium  109 Mt meitneú (  )          rium                    "

:Goto 0

:Lbl S

:output(1,1," 110 Uun ununniú (  )          lium    111 Uuu ununuú (  )           nium    112 Uub ununú (  )            bium                   "

:Goto 0

:

:

:Lbl 5

:ClrHome

:output(3,1,"N°ATOMIQUE Z=   NUCLEONS   A=

:output(6,1,"NB ELECTRONS    NB PROTONS      NB NEUTRONS"

:output(3,14,A)

:output(6,11,A)

:output(3,1,"

:While gandKeyø24

:End

:Goto 7

:

:Lbl 6

:ClrHome

:output(5,4,"26/02/2006")

:Pause 

:Goto 7

:

:Lbl Z

:ClrHome

:Stop

Code

:Disp "HYDROGENE H","MAS.MOLAIR:1.0","NUM.ATOMIQUE:1","CATE:METAUX","ALCALIN"

:Disp "HELI HE","AS MOLAIRE:?","NUM.ATOMIQUE:2","CATE: GAZ","GAZ NOBLE"

=> T'es pas obligé de reecrire tt ca a chaque fois que tu change d'atome, C'est à ca que ca sert les variables!

Sangohan38 le 27/02/2006 à 18:59

Visionner le atomes c'est une bonne idée mais sinon on ne pourrait faire ous forme d'unh menu genre:

Code

: ClrHome

: Lbl 1

: Menu("1 ligne","HYDROGENE",A,"HELIUM",B,"...

: Pause

: Lbl A

: ClrHome

: Disp"HYDROGENE H","MAS.MOLAIRE"...

: Pause

: Goto 1

: Pause

: Lbl B

: Disp"HELIUM","MAS.MOLAIRE"...

: ...

Je sais pas si il y aura assez de Lbl

ratuss le 28/02/2006 à 16:41

1) Il n'y aura pas assez de Label =>

=> Il faudrait faire 4 ou 5 prgrs.
2) Avec mon prog tu peux faire une recherche par n° atomique pas avec les menus et la navigation est plus simple.
3) Pas assez de place pour mettre à la fois le nom de l'atome, le n atomique ainsi que le symbole avec les menus.

Sangohan38 le 28/02/2006 à 20:44

ouai c sur ke c bien mais eske il y aura assez de place sur un 82?
Sinon c long a recopier mai ca mérite réflexion

ratuss le 01/03/2006 à 12:03

Si t'a la flemme de recopier je te comprend très bien

, en fait je pensais que t'avais un cable, C pour ca.
Sinon au niveau place, ca doit prendre autour de 4 ko pour l'instant. A la fin je pense qu'on devrai arriver à 10ko (1/3 de la place pour ti 82)

Si tu veux je te ferai un screenshot pour que tu vois à quoi ca ressemble

Sangohan38 le 01/03/2006 à 13:43

tinkiet pa g pa de cable mai je recopie très vite le codes.
10 ko c pa trop long encor. J'ai mon programme de course ki en prend 14000.
Je serait pas contre un screen shot pour voir a quois ca reemble.

ratuss le 01/03/2006 à 14:47

Par contre tu pourra pas avoir les petite lettre vu que tu recopie à la main

...

Voici le screenshot :

Image manquante

J'ai un peu triché pour la derniere image

... normalement, ya que le n atomique.

Sinon, j'ai pensé que pour chaque atome, on pourrai mettre:

Citation

.symbole
.n atomique Z=
.nb de nucleons A=
.electrons
.protons
.neutrons

.Masse
.densite
.Rayon

.emplacement par rapport aux tableau, metaux, non-metaux, gaz nobles,lanthanides/actinides...

.temperature fusion/ebulition
.etat

.decouvert en ....
.obtenu articiellement ou pas

Sangohan38 le 01/03/2006 à 15:19

Très bonnes idées. Si tu pourrais essayer d'expliquer le code plus implement ce serait simpa (genre pour deux atomes).

ratuss le 01/03/2006 à 17:33

Code

:Lbl 7

:ClrHome

:Disp "","","","","","",""

:Menu("Atomes","Liste",4,"Nôatomique",5,"Credit",6,"Quitter",Z)

:Lbl 4

:0->A                                            'A correspond à la fois au n° atomique et à la colone

:1->C                                            'C correspond à l'emplacement Y de *

:1->D                                            'D correspond à C telle qui l'était avant

:Lbl 0

:output(C,1,"*")                                 'Afficher *

:If C [pas egal à] D:output(D,1," ")    'Si l'emplacement de * a changer, effacer l'ancienne postition

:0->K

:While K=0                                       'tant qu'aucune touche est appuyé on attend

:getKey->K

:End

:If K=45                                         'Si la touche appuyé est Clear, on va au menu

:Goto 7

:

:If K=26:Then                                    'Si la fleche droite est appuyé (=atome selectionne),

:(A*7)+C->A                                      'on localise le numero atomique pour savoir de quel atome il s'agit

:If A [plus grand ou égal à] 44:A+1->A           'La c'etait parce que certain atome avait un nom trop long

:If A [plus grand ou égal à] 61:A+1->A

:If A [plus grand ou égal à] 63:A+1->A

:If A [plus grand ou égal à] 65:A+1->A

:If A [plus grand ou égal à] 69:A+1->A

:If A [plus grand ou égal à] 72:A+1->A

:If A [plus grand ou égal à] 98:A+1->A

:If A [plus grand ou égal à] 105:A+1->A

:If A [plus grand ou égal à] 107:A+1->A

:If A [plus grand ou égal à] 109:A+1->A

:If A [plus grand ou égal à] 112:A+1->A

:If A [plus grand ou égal à] 115:A+1->A

:If A [plus grand ou égal à] 117:A+1->A

:If A [plus grand ou égal à] 119:A+1->A

:If A [plus grand ou égal à] 121:A+1->A

:If A [plus grand ou égal à] 125:A+2->A

:If A [plus grand ou égal à] 128:A+1->A

:If A [plus grand ou égal à] 130:A+1->A

:Goto 5

:End

:

:C->D                                            'D devient l'ancienne valeur de C

:Lbl 2

:If K=25:C-1->C                                  'Si "haut" est appuyé, * vers le haut

:If K=34:C+1->C                                  'Si "bas" est appuyé, * vers le bas

:

:If (C=2 and (A=6 or A=9 or A=10 or A=15 or A=17 or A=18)) or (C=3 and A=16) or (C=4 and (A=15 or A=18) or (C=5 and (A=8 or A=16)) or (C=6 and (A=9 or A=17 or A=18)) or (C=7 and (A=8 or A [plus grand ou égal à] 13 and A [plus petit ou égal à] 18))

:Goto 2

:

:If (K=34 or K=25) and C [plus petit ou égal à] 7 and C [plus grand ou égal à] 1:Goto 0

:If K=95 or K=34:A+1->A                          'Si + est appuyé ou ("bas" est appuyé et * est tt en bas), on descend d'une colone

:If K=85 or K=25:A-1->A                          'Si (-)est appuyé ou ("haut" est appuyé et * est tt en haut), on remonte d'une colone

:If C>7 or K=85 or K=95:1->C                     'Si on à monté d'une colone,* est tt en bas

:If C<1:Then                                     'Si on à baissé d'une colone,* se retrouve tt en haut

:7->C

:If A=8 or (A [plus grand ou égal à] 13 and A [plus petit ou égal à] 16):6->C

:If A=17 or A=(-)1:5->C

:End

:

:If K [pas egal à] 105:Goto 1                    'Si on a presse "enter", on demande d'entrer A

:

:Input "Atteindre : ",A

:

:If A [plus grand ou égal à] 44:A+1->A

:If A>61:A+1->A                              'La c'etait parce que certain atome avait un nom trop long

:If A>63:A+1->A

:If A>65:A+1->A

:If A>69:A+1->A

:If A>72:A+1->A

:If A>98:A+1->A

:If A>105:A+1->A

:If A>107:A+1->A

:If A>109:A+1->A

:If A>112:A+1->A

:If A>115:A+1->A

:If A>117:A+1->A

:If A>119:A+1->A

:If A>121:A+1->A

:If A>125:A+2->A

:If A>128:A+1->A

:If A>130:A+1->A

:

:A-int((A-1)/7)*7->C                             'On trouve l'emplacement de * grace à A

:int((A-1)/7)->A

:

:

:Lbl 1

:If A<0:18->A                                    'Si le numero atomique depasse 112, on revient à hydrogène

:If A>18:0->A                                    'et vice versa

:

:If A=0:Goto A                                   'Si A = 0  on affiche les 7 1er atomes

:If A=1:Goto B                                   'Si A = 1  on affiche les 7 atomes suivant

:If A=2:Goto C

:If A=3:Goto D

:If A=4:Goto E

:If A=5:Goto F

:If A=6:Goto G

:If A=7:Goto H

:If A=8:Goto I

:If A=9:Goto J

:If A=10:Goto K

:If A=11:Goto L

:If A=12:Goto M

:If A=13:Goto N

:If A=14:Goto O

:If A=15:Goto P

:If A=16:Goto Q

:If A=17:Goto R

:If A=18:Goto S

:

:Lbl A

:output(1,1," 1 He hydrogène  2 He hélium     3 Li lithium    4 Be béryllium  5 B  bore       6 C  carbone    7 N  azote     "

:Goto 0

:Lbl B

:output(1,1," 8  O  oxygène   9  F  fluor     10 Ne néon      11 Na sodium    12 Mg magnésium 13 Al aluminium 14 Si silicium "

:Goto 0

:Lbl C

:output(1,1," 15 P  phosphore 16 S  sorfre    17 Cl chlore    18 Ar argon     19 K  potassium 20 Ca calcium   21 Sc scandium "

:Goto 0

:Lbl D

:output(1,1," 22 Ti titane    23 V  vanadium  24 Cr chrome    25 Mn manganèse 26 Fe fer       27 Co cobalt    28 Ni nickel   "

:Goto 0

:Lbl E

:output(1,1," 29 Cu cuivre    30 Zn zinc      31 Ga gallium   32 Ge germanium 33 As arsenic   34 Se sélénium  35 Br brome    "

:Goto 0

:Lbl F

:output(1,1," 36 Kr krypton   37 Rb rubidium  38 Sr strontium 39 Y  yttrium   40 Zr zirconium 41 Nb niobium   42 Mo molybdène"

:Goto 0

:Lbl G

:output(1,1," 43 Tc techné-         tium      44 Ru ruthénium 45 Rh rhodium   46 Pd palladium 47 Ag argint    48 Cd cadmium  "

:Goto 0

:Lbl H

:output(1,1," 49 In indium    50 Sn étain     51 Sb antimoine 52 Te tellure   53 I  iode      54 Xe xénon     55 Cs césium   "

:Goto 0

:Lbl I

:output(1,1," 56 Ba baryum    57 La lanthane  58 Ce cérium    59 Pr praséo-         disme     60 Nd néodisme                 "

:Goto 0

:Lbl J

:output(1,1," 61 Pm promé-          thium     62 Sm samarium  63 Eu europium  64 Gd gadoli-         nium      65 Tb terbium  "

:Goto 0

:Lbl K

:output(1,1," 66 Dy dyspro-         sium      67 Ho holmium   68 Er erbium    69 Tm thulium   70 Yb ytterbium 71 Lu lutétium "

:Goto 0

:Lbl L

:output(1,1," 72 Hf hafnium   73 Ta tantalee  74 W  tungstène 75 Re rhénium   76 Os osmium    77 Ir iridium   78 Pt platine  "

:Goto 0

:Lbl M

:output(1,1," 79 Au or        80 Hg mercure   81 Tl thallium  82 Pb plomb     83 Bi bismuth   84 Po plonium   85 At astate   

:Goto 0

:Lbl N

:output(1,1," 86 Rn radon     87 Fr francium  88 Ra radium    89 Ac actinium  90 Th thorium   91 Pa protacti-       nium     "

:Goto 0

:Lbl O

:output(1,1," 92 U  uranium   93 Np neptunium 94 Pu plutonium 95 Am américium 96 Cm curium    97 Bk brekélium                "

:Goto 0

:Lbl P

:output(1,1," 98  Cf califor-        nium     99  Es einstei-        nium     100 Fm fermium  101 Md mendélé-        vium    "

:Goto 0

:Lbl Q

:output(1,1," 102 No nobélium 103 Lr lawren-         cium     104 Rf ruther-      fordium     105 Db dubnium                 "

:Goto 0

:Lbl R

:output(1,1," 106 Sg seabor-         gium     107 Bh bohrium  108 Hs hassium  109 Mt meitne-         rium                    "

:Goto 0

:Lbl S

:output(1,1," 110 Uun ununni-         lium    111 Uuu ununu-          nium    112 Uub unun-           bium                   "

:Goto 0

:

:

:Lbl 5

:ClrHome

:output(3,1,"N°ATOMIQUE Z=   NUCLEONS   A=

:output(6,1,"NB ELECTRONS    NB PROTONS      NB NEUTRONS"

:output(3,14,A)

:output(6,11,A)

:output(3,1,"

:While getKey [pas egal à] 24

:End

:Goto 7

:

:Lbl 6

:ClrHome

:output(5,4,"26/02/2006")

:Pause 

:Goto 7

:

:Lbl Z

:ClrHome

:Stop

Voila, mon explication est un pti peu fouareuse mais si ca peu t'aider...

Sangohan38 le 01/03/2006 à 18:33

Ca aide en effet ca me permet même d'apprendre mieux l'utilisation d certaines fonctions

Niko le 02/03/2006 à 20:30

Faut avoir le moral !

ratuss le 02/03/2006 à 20:33

Bon finalement c'est 15000 que ca prend

Sangohan38 le 02/03/2006 à 20:43

Il suffit d'un peu de motivation, de temps libre et d'une bonne station de radio pour bien taper.
Et ca marche nikel.

ratuss le 03/03/2006 à 10:31

15000 octet, ca devient du délire! Demande plutot à un de tes potes de te preter le cable, ou essaye d'en fabriquer un, y a plein de site qui parle de ca

deje pour moi 1000 c'est enorme

Sangohan38 le 03/03/2006 à 10:53

Je tape a peu près 1000 octets en 1 h donc 15000 me prendra que 15 soirs.
Ofait la je suis en train d'écrire sou word mon programme RACE qui prend 13186.
Comme je l'ai dit il suffit de bcp de motivation et de muique

ratuss le 03/03/2006 à 12:14

C'est toi qui voit ...

Sangohan38 le 03/03/2006 à 12:27

Oui je le veu!

ratuss le 31/03/2006 à 19:02

j'ai copié 50 atomes pour l'instant.
Je voulais juse poser une question:
-pour les ti 82 et 82 stat, c'est possible de mettre du "texte comme ca" et non pas du "TEXTE COMME CA"? (en tout cas y faut forcement passer par ordi).

Sangohan38 le 31/03/2006 à 19:47

Ba si ya pas le cable, ya pas moyen!
Déja te plein pas, tu peut taper des textes COMME CA.

ratuss le 31/03/2006 à 20:11

Oui, mais c'est parce que c'est c'est plus agreable d'avoir un texte en minuscule, donc je demande...
Sinon a mon avis je pense que c'est possible mais seulement pour les stats, c'est pourquoi vaut mieux faire 2 versions.

Sangohan38 le 01/04/2006 à 12:22

J'ai tester la 82, la 82 STATS, La 83 et la 83 plus mais sur aucune, en tapant à la main j'ai réussit à avoir des minuscule (A part quand je met des instruction).
Par exemple, qnd je met Output(1,1,"And" (L'instruction), Ca marque And.

ratuss le 01/04/2006 à 14:09

Si, si t'as le cable, tu tape sur ton ordi tout ce que tu veux et tu l'envoie ensuite.

craminou le 15/04/2006 à 12:00

meme ac une bone radio il fo la foi ..
surtt pr se genre de pgrm ( je sui + branché jeux)
dc vive le ti- pc
par contre ratus chapo pr l'ip ... c le bon ( incrédule com je sui g vérifier ) ... moi ki mmé troi h a le trouver ...

ratuss le 15/04/2006 à 18:44

Arf, si tu veux la même tu n'as qu'a cliquer sur le panneau

Sangohan38 le 19/11/2006 à 12:20

J'ai recommencer un prog sur les atomes:

Code

:ClrHome

:1->A

:Lbl 0

:ClrHome

:A->B

:Output(8,1,"COLONNE:"

:Output(8,9,A

:If B=19 or B=20:Output(8,1,"LATHANIDES

:If B>20:Output(8,1,"ACTINIDES 

:If A=19:Disp "CERIUM CE","PRASEODYME PR","NEODYME ND","PROMETHIUM PM","SAMARIUM SM","EUROPIUM EU","GADOLINIUM GD"

:If A=20:Disp "THERBIUM TB","DYSPROSIUM DY","HOLMIUM HO","ERBIUM ER","THULIUM TM","YTTERBIUM YB","LUTETIUM LU"

:If A=21:Disp "THORIUM TH","PROTACTINIUM PA","URANIUM U","NEPTUNIUM NP","PLUTONIUM PU","AMERICIUM AM","CURIUM CM"

:If A=22:Disp "BERKELIUM BK","CALIFORNIUM CF","EINSTEINIUM ES","FERMIUM FM","MENDELEVIUM MD","NOBELIUM NO","LAWRENCIUM LR"

:If A=1:Disp "HYDROGENE H","LITHIUM LI","SODIUM NA","POTASSIUM K","RUBIDIUM RB","CESIUM CS","FRANCIUM FR"

:If A=2:Disp "","BERRYLLIUM BE","MAGNESIUM MG","CALCIUM CA","STRONTIUM SR","BARYUM BA","RADIUM RA"

:If A=3:Disp "","","","SCANDIUM SC","YTTRIUM Y","LATHANE LA","ACTINIUM AC"

:If A=4:Disp "","","","TITANE TI","ZIRCONIUM ZR","HAFNIUM HF","RUTHERFORDIUM RF"

:If A=5:Disp "","","","VANADIUM V","NIOBIUM NB","TANTALE TA","DUBNIUM DB"

:If A=6:Disp "","","","CHROME CR","MOLYBDENE MO","TUNGSTENE W","SEABORGIUM SG"

:If A=7:Disp "","","","MANGANESE MN","TECHNETIUM TC","RHENIUM RE","BOHRIUM BH"

:If A=8:Disp "","","","FER FE","RUTHENIUM RU","OSMIUM OS","HASSIUM HS"

:If A=9:Disp "","","","COBALT CO","RHODIUM RH","IRIDIUM IR","MEITNERIUM MT"

:If A=10:Disp "","","","NICKEL NI","PALLADIUM PD","PLATINE PT","UNUNNILIUM UUN"

:If A=11:Disp "","","","CUIVRE CU","ARGENT AG","OR AU","UNUNUNIUM"

:If A=12:Disp "","","","ZINC ZN","CADMIUM CD","MERCURE HG","UNUNBIUM UUB"

:If A=13:Disp "","BORE B","ALUMINIUM AL","GALLIUM GA","INDIUM IN","THALLIUM TI"

:If A=14:Disp "","CARBONE C","SILICIUM SI","GERMANIUM GE","ETAIN SN","PLOMB PB","UNUNQUADIUM UUQ"

:If A=15:Disp "","AZOTE N","PHOSPHORE P","ARSENIC AS","ANTIMOINE SB","BISMUTH BI"

:If A=16:Disp "","OXYGENE O","SOUFRE S","SELENIUM SE","TELLURE TE","POLONIUM PO"

:If A=17:Disp "","FLUOR F","CHLORE CL","BROME BR","IODE I","ASTATE AT"

:If A=18:Disp "HELIUM HE","NEON NE","ARGON AR","KRYPTON KR","XENON XE","RADON RN"

:Lbl 1

:If A[DIFFERENT DE]B:Goto 0

:A->B

:getKey->C

:If C>71 and C<95:Goto 2

:If C=24 and A>1:A-1->A

:If C=26 and A<18:A+1->A

:If A=3 and C=21:19->A

:If A=19 and C=26:20->A

:If A=20 and C=24:19->A

:If A=3 and C=31:21->A

:If A=21 and C=26:22->A

:If A=22 and C=24:21->A

:If A>18 and C=105:3->A

:Goto 1

:Lbl 2

:If A=2 and C=92 or A=3 and C[SUPERIEUR OU EGAL A]92 or A=4 and C[SUPERIEUR OU EGAL A]92 or A=5 and C[SUPERIEUR OU EGAL A]92 or A=6 and C[SUPERIEUR OU EGAL A]92 or A=7 and C[SUPERIEUR OU EGAL A]92 or A=8 and C[SUPERIEUR OU EGAL A]92 or A=9 and C[SUPERIEUR OU EGAL A]92 or A=10 and C[SUPERIEUR OU EGAL A]92 or A=11 and C[SUPERIEUR OU EGAL A]92 or A=12 and C[SUPERIEUR OU EGAL A]92 or A=13 and C=92 or A=14 and C=92 or A=15 and C=92 or A=16 and C=92 or A=17 and C=92 or A=13 and C=72 or A[SUPERIEUR OU EGAL A]15 and C=72

:Goto 1

:ClrHome

:If A=1 and C=92:Disp "HYDROGENE","SYMBOLE: H","Nô ATOMIQUE:1","M MOLAIRE:1.0079","NON-METAL","PT FUSION:14.02K","PT EBULLI:20,26K"

:If A=1 and C=93:Disp "LITHIUM","SYMBOLE: LI","Nô ATOMIQUE:3","M MOLAIRE:6.941","METAL ALCALIN","PT FUSION:453.7K","PT EBULLI:1620K"

:If A=1 and C=94:Disp "SODIUM","SYMBOLE: NA","Nô ATOMIQUE:11","M MOLAIRE:22.99","METAL ALCALIN","PT FUSION:370.9K","PT EBULLI:1156K"

:If A=1 and C=82:Disp "POTASSIUM","SYMBOLE: K","Nô ATOMIQUE:19","M MOLAIRE:39.098","METAL ALCALIN","PT FUSION:336.8K","PT EBULLI:1047K"

:If A=1 and C=83:Disp "RUBIDIUM","SYMBOLE: RB","Nô ATOMIQUE:37","M MOLAIRE:85.468","METAL ALCALIN","PT FUSION:312K","PT EBULLI:961K"

:If A=1 and C=84:Disp "CESIUM","SYMBOLE: CS","Nô ATOMIQUE:55","M MOLAIRE:132.91","METAL ALCALIN","PT FUSION:301.5K","PT EBULLI:951.5K"

:If A=1 and C=72:Disp "FRANCIUM","SYMBOLE: FR","Nô ATOMIQUE:87","M MOLAIRE:223","METAL ALCALIN","PT FUSION:300K","PT EBULLI:950K"

:If A=2 and C=93:Disp "BERYLLIUM","SYMBOLE: BE","Nô ATOMIQUE:4","M MOLAIRE:9.012K","M ALCA-TERREUX","PT FUSION:1551K","PT EBULLI:3243K"

:If A=2 and C=94:Disp "MAGNESIUM","SYMBOLE: MG","Nô ATOMIQUE:12","M MOLAIRE:24.305","M ALCA-TERREUX","PT FUSION:921.9K","PT EBULLI:1363K"

:If A=2 and C=82:Disp "CALCIUM","SYMBOLE: CA","Nô ATOMIQUE:20","M MOLAIRE:40.078","M ALCA-TTRREUX","PT FUSSON:1112K","PT EBULLI:1757K"

:If A=2 and C=83:Disp "STRONTIUM","SYMBOLE: SR","Nô ATOMIQUE:38","M MOLAIRE:87.62","M ALCA-TERREUX","PT FUSION:1042K","PT EBULLI:1657K"

:If A=2 and C=84:Disp "BARYUM","SYMBOLE: BA","Nô ATOMIQUE:56","M MOLAIRE:137.33","M ALCA-TERREUX","PT FUSION:998K","PT EBULLI:1913K"

:If A=2 and C=72:Disp "RADIUM","SYMBOLE: RA","Nô ATOMIQUE:88","M MOLAIRE:226","M ALCA-TERREUX","PT FUSION:973K","PT EBULLI:1413K"

:If A=3 and C=82:Disp "SCANDIUM","SYMBOLE: SC","Nô ATOMIQUE:21","M MOLAIRE:44.956","M DE TRANSITION"","PT FUSION:18212K","PT EBULLI:3105K"

:If A=3 and C=83:Disp "YTTRIUM","SYMBOLE: Y","Nô ATOMQUE:39","M MOLAIRE:88.906","M DE TRANSITION","PT FUSION:1726K","PT EBULLI:3143K"

:If A=3 and C=84:Disp "LATHANE","SYMBOLE: LA","Nô ATOMIQUE:57","M MOLAIRE:138.91","LANTHANIDE","PT FUSION:1193K","PT EBULLI:5063K"

:If A=3 and C=72:Disp "ACTINIUM","SYMBOLE: AC","Nô ATOMIQUE:89","M MOLAIRE:227","ACTINIDE","PT FUSION:1323K","PT EBULLI:3473"

Sangohan38

Sangohan38 le 24/11/2006 à 19:47

Mais, il n'est pas encor finis.
Et puis, il y a plein de choses a rajouté comme l'électronégativitée, le nombre d'électrons de valence, ses différents isomères ...

Lolodu93 le 13/09/2007 à 17:29

bonjour je suis nouveau et je voudrais savoir ou on peut reouver la touche Clrhome
merci d'avance

webmaster le 13/09/2007 à 17:51

Si tu as une TI-82 ou TI-82 STATS, suit ce lien : https://tout82.pages-perso.free.fr/lexique.pdf
Pour les TI-82 STATS.fr, je te conseille de lire les traductions : https://tout82.pages-perso.fre[...]t.php?sujet=620

@+ Le Webmaster

unknow le 16/09/2007 à 00:40

rha j'aime pas ta reponse webmaster meme si la question a deja ete posté 100 fois. dans ton programme, tu appuye sur la touche prgm + fleche droite + 8 ou descent avec les fleches

vibra le 16/09/2007 à 10:10

Dites les gars, vous êtes bien sûr qu'il sert à quelquechose votre programme ? Parce que un petit imprimé sur papier est tout aussi pratique non ? (et en plus on peut même choisir la police qu'on veut…)

Sangohan38 le 16/09/2007 à 11:10

Et tu as le droit au petit imprimé en DS par exemple?
Non, je crois pas.

Sangohan38

vibra le 17/09/2007 à 18:30

Certes, mais tu va me dire que ton prof t'as obligé à apprendre le tableau périodique par coeur ? Et puis de toute façon je n'ai jamais vu de sales de chimie sans un énnorme tableau périodique accroché au fond de la classe…!

Stupid le 17/09/2007 à 18:37

je me rappelle que la prof l'avait planqué uen fois...mais je m'en fous j'avais mon classeur

Sangohan38 le 18/09/2007 à 14:18

En salle de TP ou aux CFMC de grenoble, tu peut avoir besoin de ton tableau périodique et il n'est pas affiché.
Et lorsque tu est en chimie, tu est sensé connaitre énormément de chose sur les atomes les plus utilisés.

Sangohan38

vibra le 18/09/2007 à 18:16

Soit, alors j'ai rien dit.

Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Forum

Atomes

Flux RSS

Abonnement à la newsletter