Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Dim 19 Nov 2006, 12:27
Voici un petit prog qui donne comment sont répartis les éléctrons dans les sous couches éléctroniques.
Code
ClrHome
0->B
0->D
0->E
0->F
0->G
0->H
0->I
0->J
0->K
0->L
0->M
0->N
0->O
0->P
0->Q
0->R
0->S
0->T
0->U
0->V
Input "NOMBRE D ELE:",A
Lbl 0
If A=0:Goto 1
A-1->A
B+1->B
If B>112 and B<119:V+1->V
If B[INFERIEUR OU EGAL A]112 and B>102:U+1->U
If B>88 and B[INFERIEUR OU EGAL A]102:T+1->T
If B[INFERIEUR OU EGAL A]88 and B>86:S+1->S
If B[INFERIEUR OU EGAL A]86 and B>80:R+1->R
If B[INFERIEUR OU EGAL A]80 and B>70:Q+1->Q
If B[INFERIEUR OU EGAL A]70 and B>56:P+1->P
If B[INFERIEUR OU EGAL A]56 and B>54:O+1->O
If B[INFERIEUR OU EGAL A]54 and B>48:N+1->N
If B[INFERIEUR OU EGAL A]48 and B>38:M+1->M
If B[INFERIEUR OU EGAL A]38 and B>36:L+1->L
If B[INFERIEUR OU EGAL A]36 and B>30:K+1->K
If B[INFERIEUR OU EGAL A]30 and B>20:J+1->J
If B[INFERIEUR OU EGAL A]20 and B>18:I+1->I
If B[INFERIEUR OU EGAL A]18 and B>12:H+1->H
If B[INFERIEUR OU EGAL A]12 and B>10:G+1->G
If B[INFERIEUR OU EGAL A]10 and B>4:F+1->F
If B[INFERIEUR OU EGAL A]4 and B>2:E+1->E
If B[INFERIEUR OU EGAL A]2 and B>0:D+1->D
Goto 0
Lbl 1
If D[DIfFERENT DE]0:Output(2,1,"1S
If D[DIfFERENT DE]0:Output(2,3,D
If D>0
If E[DIfFERENT DE]0:Output(2,5,"2S
If E[DIfFERENT DE]0:Output(2,7,E
If F[DIfFERENT DE]0:Output(2,9,"2P
If F[DIfFERENT DE]0:Output(2,11,F
If G[DIfFERENT DE]0:Output(2,13,"3S
If G[DIfFERENT DE]0:Output(2,15,G
If H[DIfFERENT DE]0:Output(3,1,"3P
If H[DIfFERENT DE]0:Output(3,3,H
If I[DIfFERENT DE]0:Output(3,5,"4S
If I[DIfFERENT DE]0:Output(3,7,I
If J[DIfFERENT DE]0:Output(3,9,"3D
If J[DIfFERENT DE]0:Output(3,11,J
If K[DIfFERENT DE]0:Output(3,14,"4P
If K[DIfFERENT DE]0:Output(3,16,K
If L[DIfFERENT DE]0:Output(4,1,"5S
If L[DIfFERENT DE]0:Output(4,3,L
If M[DIfFERENT DE]0:Output(4,5,"4D
If M[DIfFERENT DE]0:Output(4,7,M
If N[DIfFERENT DE]0:Output(4,10,"5P
If N[DIfFERENT DE]0:Output(4,12,N
If O[DIfFERENT DE]0:Output(4,14,"6S
If O[DIfFERENT DE]0:Output(4,16,O
If P[DIfFERENT DE]0:Output(5,1,"4F
If P[DIfFERENT DE]0:Output(5,3,P
If Q[DIfFERENT DE]0:Output(5,6,"5D
If Q[DIfFERENT DE]0:Output(5,8,Q
If R[DIfFERENT DE]0:Output(5,11,"6P
If R[DIfFERENT DE]0:Output(5,13,R
If S[DIfFERENT DE]0:Output(6,1,"7S
If S[DIfFERENT DE]0:Output(6,3,S
If T[DIfFERENT DE]0:Output(6,5,"5F
If T[DIfFERENT DE]0:Output(6,7,T
If U[DIfFERENT DE]0:Output(6,10,"6D
If U[DIfFERENT DE]0:Output(6,12,U
If V[DIfFERENT DE]0:Output(7,1,"7P
If V[DIfFERENT DE]0:Output(7,3,V
Pause
ClrHome
Output(1,1,"
Autorisation : Membre
Nb de messages : 221
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Dim 19 Nov 2006, 12:33
mais tous ces programmes servent a quoi parce que, j'ai regardé pour ton prog sur les atomes et je ne vois pas tropl'utilité, en faite ya surment une utilité mais la longueure du prog sans cable me donne le tournis.
Autorisation : Membre
Nb de messages : 221
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Dim 19 Nov 2006, 12:38
a oui la tout de suite c'est utile. Il fait apprendre le grand tableau avec la masse des electrons et tout dans ta section chimie?? faut vraiment aimer qd meme!
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 09 Juil 2010, 15:50
Bon la fin des cours veut dire beaucoup de temps à rien faire...
Et j'ai ressortis ce programme qui me semblais bien lent pour ce qu'il faisait.
Effectivement, j'ai réussis à le raccourcir comme ci-dessous:
Code
EffEcr
EffListe L2
19->dim(L2
{2,2,6,2,6,2,10,6,2,10,6,2,14,10,6,2,14,10,6}->L
Input "NBR D'ELE:",A
If A>118:118->A
For(B,1,19
If A<somme(L,1,B
Goto 1
L1(B->L2(B
End
Lbl 1
If B>1:A-somme(L,1,B-1->L2(B
If A=1:1->L2(1
Output(2,1,"1S
Output(2,6,"2S
Output(2,11,"2P
Output(3,1,"3S
Output(3,6,"3P
Output(3,11,"4S
Output(4,1,"3D
Output(4,6,"4P
Output(4,11,"5S
Output(5,1,"4D
Output(5,6,"5P
Output(5,11,"6S
Output(6,1,"4F
Output(6,6,"5D
Output(6,11,"6P
Output(7,1,"7S
Output(7,6,"5F
Output(7,11,"6D
Output(8,1,"7P
For(A,1,19
arrondi((A+1)/3,0)->B
If 0[different de]L2(A
Output(B+1,5A-15B+13,L2(A)
If 0=L2(A
Output(B+1,5A-15B+11," "
End
Pause
EffEcr
Output(1,1,"
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 09 Juil 2010, 17:50
Citer
2) Les internautes peuvent déposer librement les programmes de leur création. En les déposant sur ce forum, ils accèptent qu'ils devienent libre de droit, c'est à dire que chacun peut les copier, modifier et les redistribuer sur un autre site.
A ton avis, cette phrase (tirée de la charte) veut dire quoi?
Bien sur que tu peut, je te le conseille même puisque tu est sur que tu aura une question dessus dans chacun de tes DS et examens/concours.
Par contre, si tu revend, il ne faut pas oublier que c'est MON programme et donc j'ai droit à un pourcentage de tes bénefices (50-50 ça te va?)
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Ven 09 Juil 2010, 17:58
J'avais lu le règlement, et c'est justement pour cette question d'intérets que je te posais la question.
donc disons que je cherche à le vendre pendant 1 an, et dans un an je te dépose ta part, disons, sous le paillasson de la mairie de Grenoble. (si tu as une autre idée plus près de Chambéry hésite pas à me le dire!)
ça te va?
sinon, c'est pas sur que:
Citer
tu est sur que tu aura une question dessus dans chacun de tes DS et examens/concours.
car toi tu étais en STL chimie , moi je suis en STL biologie.
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 09 Juil 2010, 18:22
Hum forcément ça va être un poil différent.
Faudrais que je me renseigne sur votre programme pour voir ce que je peut faire dessus.
Et surtout pas sous la mairie de Grenoble: c'est trop loin de chez moi et ce n'est pas sécurisé.
J'ai des contacts sur places qui pourraient récupérer l'argent et sinon il reste toujours les courriers (mon dieu que c'est démodé... ).
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Ven 09 Juil 2010, 18:26
pour l'instant, en rapport avec mon programme, je suis en train d'essayer de faire un programme d'identification d'une bactérie.
tu rentres les princiaux caractères, il te sort plusieurs orientations possibles, tu choisis en rentrant encore quelques caractères pour identifier.
pour l'instant ça marche que pour les Gram + , les coques Gram -.
mais pour les bacilles gram - et les anaérobies, ça coince parce qu'il y en a beaucoup.
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Ven 09 Juil 2010, 20:06
Je pense pas que je vais créer, ça intéresse personne les bactéries.
si je le finis, je te l'envoie mais je sais pas si tu fais toujours de la bactériologie.
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Ven 09 Juil 2010, 20:29
J'en ai jamais fait tu veux dire!
Mais poste le ton programme: qui sait un jour un BGB passera dans le coin et se dira que ce prog est super utile et le diffusera.
Sérieusement, ce programme sur les sous-couches, personne ne l'utilise au lycée sauf en CLPI donc il est inutile mais bon, quand j'ai des formatage, au moins je l'ai toujours quelque part.
?
).