Bonjour à tous, je vous présente un de mes plus gros programme de seconde, la loi de léwis. Il donne le nombre de doublets liants, non liants, c'est utile pour vérifier ses resultats, car la chimie ne permet pas d'erreur (La suite de l'exercice et la représentation est fausse si les calculs ont foiré)
Voila, il fait 3000 Octets.
ü représente Sto
ù représente le -
| Code | EffEcr
Output(3,6,"LOI DE"
Output(4,6,"LEWIS
Output(5,2,"BY REINHART
Pause
Lbl 0
Menu("MENU PRINCIPAL","ATOME",1,"MOLECULE",2,"QUITTER",9
Lbl 1
EffEcr
Disp "ENTRER Z :"
Input "=",A
If A÷ 2 et Aø0
Then
Goto 3
Else
If Aù 6 et A÷10
Then
Goto 4
Else
If Aù14 et A÷18
Then
Goto 5
Else
EffEcr
Output(4,4,"ERREUR")
Pause
Goto 0
Lbl 3
EffEcr
Disp "LIANT :",2-A
Disp "NON LIANT :",A-1
Pause
Goto 0
Lbl 4
EffEcr
Disp "LIANT(S) :",10-A
Disp "NON LIANT(S) :",A-6
Pause
Goto 0
Lbl 5
EffEcr
Disp "LIANT(S) :",18-A
Disp "NONú![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png) LIANT",A-14
Pause
Goto 0
Lbl 2
1ü H
4üC
5üN
6üO
7üF
(2/3)üI
5üP
6üS
1.75üL
EffEcr
Menu("NOMBRE D ATOME","2",21,"3",22,"4",23,"RETOUR AU MENU",0)
Lbl 21
Input "1ER ATOME :",B
Input "INDICE :",D
Input "2EME ATOME :",E
Input "INDICE :",G
EffEcr
Disp "ELEC. EXTERNE :",BD+EG
Disp "DOUBLETS :",(BD+EG)/2
Pause
EffEcr
If B=1 et E=1
Then
(úB+2)üJ
(úE+2)üK
Disp "LIANT :",(JD+KG)/2
Disp "NONúLIANT :",(D(B-J)+G(E-K))/2
Pause
Goto 2
Else
If B=1 et Eù4 et E÷7
Then
(úB+2)üJ
(úE+8)üK
Disp "LIANT :",(JD+KG)/2
Disp "NONúLIANT :",(D(B-J)+G(E-K))/2
Pause
Goto 2
Else
If Bù4 et B÷7 et E=1
Then
(úB+8)üJ
(úE+2)üK
Disp "LIANT :",(JD+KG)/2
Disp "NONúLIANT :",(D(B-J)+G(E-K))/2
Pause
Goto 2
Else
If Bù4 et B÷7 et Eù4 et E÷7
Then
(úB+8)üJ
(úE+8)üK
Disp "LIANT :",(JD+KG)/2
Disp "NONúLIANT :",(D(B-J)+G(E-K))/2
Pause
Goto 2
Lbl 22
Input "1ER ATOME :",B
Input "INDICE :",D
Input "2EME ATOME :",E
Input "INDICE :",G
Input "3EME ATOME :",M
Input "INDICE :",Q
EffEcr
Disp "ELEC. EXTERNES :",BD+EG+MQ
Disp "DOUBLETS :",(BD+EG+MQ)/2
Pause
EffEcr
If Bù4 et B÷7 et Eù4 et E÷7 et M=1
Then
(úB+8)üJ
(úE+8)üK
(úM+2)üR
Disp "LIANTS :",(JD+KG+RQ)/2
Disp "NONúLIANTS :",(D(B-J)+G(E-K)+Q(M-R))/2
Pause
Goto 2
Else
If Bù4 et B÷7 et E=1 et Mù4 et M÷7
Then
(úB+8)üJ
(úE+2)üK
(úM+8)üR
Disp "LIANTS :",(JD+KG+RQ)/2
Disp "NONúLIANTS :",(D(B-J)+G(E-K)+Q(M-R))/2
Pause
Goto 2
Else
If B=1 et Eù4 et E÷7 et Mù4 et M÷7
Then
(úB+2)üJ
(úE+8)üK
(úM+8)üR
Disp "LIANTS :",(JD+KG+RQ)/2
Disp "NONúLIANTS :",(D(B-J)+G(E-K)+Q(M-R))/2
Pause
Goto 2
Else
If Bù4 et B÷7 et Eù4 et E÷7 et Mù4 et M÷7
Then
(úB+8)üJ
(úE+8)üK
(úM+8)üR
Disp "LIANTS :",(JD+KG+RQ)/2
Disp "NONúLIANTS :",(D(B-J)+G(E-K)+Q(M-R)
Pause
Goto 2
Lbl 23
EffEcr
Disp "ENTRER :"
Input "1ER ATOME :",B
Input "INDICE :",D
Input "2EME ATOME :",E
Input "INDICE :",G
Input "3EME ATOME :",M
Input "INDICE :",Q
Input "4EME ATOME :",T
Input "INDICE :",U
EffEcr
Disp "ELEC. EXTERNES :",BD+EG+MQ+TU
Disp "DOUBLET :",(BD+EG+MQ+TU)/2
Pause
EffEcr
If Bù4 et B÷7 et Eù4 et E÷7 et Mù4 et M÷7 et T=1
Then
8-BüJ
8-EüK
8-MüR
2-TüV
Disp "LIANTS :",(JD+KG+RQ+VU)/2
Disp "NONúLIANTS :",(D(B-J)+G(E-K)+Q(M-R)+U(T-V))/2
Pause
Goto 2
Else
If Bù4 et B÷7 et Eù4 et E÷7 et M=1 et Tù4 et T÷7
Then
8-BüJ
8-EüK
2-MüR
8-TüV
Disp "LIANTS :",(JD+KG+RQ+ÁU)/2
Disp "NONúLIANTS :",(D(B-J)+G(E-K)+Q(M-R)+U(T-V))/2
Pause
Goto 2
Else
If Bù4 et B÷7 et E=1 et M÷7 et Mù4 et T÷7 et Tù4
Then
8-BüJ
2-EüK
8-MüR
8-TüV
Disp "LIANTS :",(JD+KG+RQ+VU)/2
Disp "NONúLIANTS :",(D(B-J)+G(E-K)+Q(M-R)+U(T-V))/2
Pause
Goto 2
Else
If B=1 et Eù4 et E÷7 et Mù4 et M÷7 et Tù4 et T÷7
Then
2-BüJ
8-EüK
8-MüQ
8-TüV
Disp "LIANTS :",(JD+KG+RQ+VU)/2
Disp "NONúLIANTS :",(D(B-J)+G(E-K)+Q(M-R)+U(T-V))/2
Pause
Goto 2
Else
If Bù4 et B÷7 et Eù4 et E÷7 et Mù4 et M÷7 et Tù4 et T÷7
8-BüJ
8-EüK
8-MüR
8-TüV
Disp "LIANTS :",(JD+KG+RQ+VU)/2
Disp "NONúLIANTS :",(D(B-J)+G(E-K)+R(M-Q)+U(T-V))/2
Pause
Goto 2
Lbl 9 |
----------------------
Eleve a Supinfo, programmeur C/C#/C++/Java/Assembleur
Delphi/et tout les langages Web.
Programmeur de Ti Basic sur demande, adresse msn : St3ph_daft@hotmail.fr |
