Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 1967
Réponses : 18
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Structure

Sangohan38 le 19/11/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,"   


Le lien pour le télécharger: http://www.new-uploader.com/fi[...]RUCTUR.82p.html

Sangohan38
unknow le 19/11/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.
Sangohan38 le 19/11/2006 à 12:35
Etant en première STL Chimie, ces programmes m'apportent beaucoup surtout le tableau que je devrait connaitre par coeur.

Et puis, ce prog permet d'aller plus vite pour savoir combien un atome a d'éléctrons de valence.

Sangohan38
unknow le 19/11/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!
Sangohan38 le 19/11/2006 à 12:39
Oui c'est limite de l'éléctricité qu'on ait en cours, on fait plus de 35 heures par semaines et on adore ça.

Sangohan38
webmaster le 20/11/2006 à 13:18
Effectivement, ce programme peut s'avéré très utile dans les études !

@+ Le Webmaster beer.gif

B : 1s2.2s2.2p1 !!!!
ratuss le 23/11/2006 à 20:33
Citation
B : 1s2.2s2.2p1 !!!!


Tu parles en langage codé maintenant bigmouth.gif ?
Sangohan38 le 24/11/2006 à 19:54
Nonon, il utilise les sous couches électroniques des couches (K),(L),(M).

Tant que vous ne voyez pas sa, vous ne comprendrez pas.
Sangohan38 le 09/07/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
L1(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,"   


Sangohan38
Persalteas le 09/07/2010 à 17:21
c'est bien ça comme programme.

moi aussi je suis en STL, tu me permets de revendre ce prog à toute ma classe ?

Si pas de réponse , je comprends oui...

cupsmiley.gif cupsmiley.gif cupsmiley.gif
Sangohan38 le 09/07/2010 à 17:50
Citation
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?)

Sangohan38
Persalteas le 09/07/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:
Citation
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.
Sangohan38 le 09/07/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é... godgrace.gif ).

Sangohan38
Persalteas le 09/07/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.

si tu peux m'aider, je veux bien.
Sangohan38 le 09/07/2010 à 19:13
Quels sont tes différents caractères?
Tu as sans doute des informations que tu n'a pas exploitées.

Sangohan38

PS: Créer un nouveau sujet pour sa, c'est pas le lieu ici.
Persalteas le 09/07/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.
Sangohan38 le 09/07/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.

Sangohan38
Akmdad le 09/07/2010 à 22:17
ya pas qu'en STL chimie qu'on voit ca...
c'est dès la seconde
Sangohan38 le 09/07/2010 à 22:34
En seconde tu apprend qu'il y a des couches électroniques (K) (L) et (M) mais tu ne sais pas que des sous couches s,p,d et f les composent.

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