Mes Programmes Personnels

En ce jour saint, je partage avec vous mes programmes personnels que j'utilise en cours ou pas d'ailleurs mais qui peuvent vous être utile, surtout en ce début d'année où il faut arriver déjà prêt.


1er Programme:
XDelta

Ce programme vous donne le discriminant, le sommet de la fonction, le sens de variation et les éventuelles racines de cette fonction, et vous avez seulement à rentrer le a, b et c de f(x)=ax²+bx+c.

Code:

"A,B,C,D,E,F,G"
ClrHome
Disp "Calculer le dis-","criminant et les","solutions d'une","equation du","second degre."
Prompt A,B,C
B²-4AC→D
If !=
  (-B)/(2A)→E
ClrHome
Disp "Delta :",D►Frac
Disp "Sommet :",E►Frac
Disp "Sens de variat:"
If A>0
  Disp "Decroi puis Croi"
If A<0
  Disp "Croi puis Decroi"
If A=0
  Then
  Disp "Premier Degre"
  Pause "Fin"
  Stop
  End
ClrHome
If D<0
  Then
  Disp "Pas de solutions"
  End
If D=0
  Then
  Disp "Une solution :",E►Frac
  End
If D>0
  Then
  (-B-sqrt(D))/(2A)→F
  (-B+sqrt(D))/(2A)→G
  Disp "Racine 1 :",F►Frac
  Disp "Racine 2 :",G►Frac
  End

Quelques détails:

Le programme est optimisé pour la clarté et la lisibilité comme tous mes programmes sauf ceux de Test. On ne recherche pas la vitesse absolue mais une lisibilité et compréhension parfaite.
Télécharger

2ème Programme:
XDivEucl

Rien de plus simple. Vous rentrez le Dividende et le Diviseur et le programme vous calcule le Quotient et le Reste à la définition de la Division Euclidienne, c'est à dire que a= bq + r où 0<=r<b.

Code:

0→A
0→B
0→Q
0→R
ClrHome
Disp "Realise la divi-","sion euclidienne"," ","No a diviser:"
Input A
Disp "Diviseur:"
Input B
int(A/B)→Q
A-(BQ)→R
ClrHome
Disp "Quotient:",Q
Disp "Restes:",R

Optimisé Lisibilité.

Télécharger

3ème Programme:
XFluctu

C'est un programme qui calcule un intervalle de fluctuation à 95%, 98% ou bien 99% pour n répétitions à une chance p de succès.

Code:

0→A
0→B
0→N
0→P
0→S
0→X
0→Y
0→Z
ClrHome
Disp "Calcule un inter"," de fluctuation."," ","  1) 95 pourcent","  2) 98 pourcent", "  3) 99 pourcent"
Input Z
If Z=1
  Then
  0.025→X
  0.975→Y
  End
If Z=2
  Then
  0.01→X
  0.99→Y
  End
If Z=3
  Then
  0.005→X
  0.995→Y
  End
Disp "No de repets n :"
Input N
Disp "Proba succes p :"
Input P
binompdf(N,P,A)→S
While S=<X
  A+1→A
  S+binompdf(N,P,A)→S
  End
A→B
While S<Y
  B+1→B
  S+binompdf(N,P,B)→S
  End
ClrHome
A/N→A
B/N→B
Disp "Intervalle :",A,B

Optimisé Lisibilité.

Télécharger

4ème Programme:
XLanceDe

Simule un nombre de lancers de dés avec un certain nombre de faces à rentrer par l'utilisateur.

Code:


0→A
0→B
0→C
0→D
0→E
ClrHome
Disp "Calcule le","nombre de sortie-","es du No Max."
Disp "No de lancers :"
Input A
Disp "No de faces :"
Input B
If A<6000
  Then
  For(I,1,A)
  randInt(1,B)→C
  If C=B
    Then
    D+1→D
    End
  D/A→E
  End
ClrHome
Disp "No de faces :",B
Disp "No de sorties :",D
Disp "Frequence :",E
End
If A>6000
  Then
  1/B→C
  int(CA)→D
  ClrHome
  Disp "Calcul trop long","Les valeurs ","affichees sont"," theoriques."
  Pause
  ClrHome
  Disp "No de faces :",A
  Disp "No de sorties :",D
  Disp "Frequence :",C
  End
Pause "Fin"


Optimisé Lisibilité.

Note: N'oubliez pas d'appuyer sur entrée une fois que tout a été affiché ou vous vous retrouverez sans piles.

Télécharger

5ème Programme:
XMesPrin

Calcule la mesure principale en radians d'un angle rentré auparavant.

Code:

0→A
0→B
ClrHome
Disp "Calcule la mes-","ure principale."," "
Disp "Mesure angle :"
Input A
If A>0
 Then
 While A>Pi
 A-2Pi→A
 End
Else
 While A=<-Pi
   A+2Pi→A
   End
 End
(360*A)/(2Pi)→B
ClrHome
Disp "Mesure principa-","le en Rads :",A
Disp "En degres :",B


Optimisé Lisibilité.

Télécharger

6ème Programme:
XProba

Des probas quoi.

Code:

0→A
0→B
0→C
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
ClrHome
Disp "Calcule l'espe-","rance, l'ecart-","type et la vari-","ance.","   1)Bernouilli","   2)Quelconque"
Input A
If A=1
 Then
 Disp "Param p(Succes):"
 Input B
 Disp "Param n repets :"
 Input C
 Disp "No de succes K:"
 Input D
 (C nCr D)*(B^D)*[(1-B)^(C-D)]→E    // (K parmi P ou P nCr K)*(P ^ K)*(1-P)^(N-K) Formule du cours
 BC→F    // Espérance= np
 BC(1-B)→G    // Variance= np(1-p)
 sqrt(G)→H
 ClrHome
 Disp "p(X=K):",E
 Disp "Esperance E(x) :",F►Frac
 Pause "Suivre"
 ClrHome
 Disp "Variance V(x) :",G
 Disp "Ecart-type :",H
 End
If A=2
 Then
 Disp "No d'issues :"
 Input B
 If B>8
   Goto 2
 Disp "Issue 1 :"
 Input C
 Disp "Proba 1 :"
 Input D
 If B=1
   Goto 1
 Disp "Issue 2 :"
 Input E
 Disp "Proba 2 :"
 Input F
 If B=2
   Goto 1
 Disp "Issue 3 :"
 Input G
 Disp "Proba 3 :"
 Input H
 If B=3
   Goto 1
 Disp "Issue 4 :"
 Input I
 Disp "Proba 4 :"
 Input J
 If B=4
  Goto 1
 Disp "Issue 5 :"
 Input K
 Disp "Proba 5 :"
 Input L
 If B=5
   Goto 1
 Disp "Issue 6 :"
 Input M
 Disp "Proba 6 :"
 Input N
 If B=6
   Goto 1
 Disp "Issue 7 :"
 Input O
 Disp "Proba 7 :"
 Input P
 If B=7
   Goto 1
 Disp "Issue 8 :"
 Input Q
 Disp "Proba 8 :"
 Input R
 Goto 1
 Lbl 1
 (CD)+(EF)+(GH)+(IJ)+(KL)+(MN)+(OP)+(QR)→S
 D*(S-C)²+F*(S-E)²+H*(S-G)²+J*(S-I)²+L(S-K)²+N*(S-M)²+P*(S-O)²+R*(S-Q)²→T
 sqrt(T)→A
 ClrHome
 Disp "Esperance :",S►Frac
 Disp "Variance :",T
 Disp "Ecart-type :",A
 Lbl 2
 If B>8
   Disp "Le max est 8."
 Pause
 End

Optimisé Lisibilité.

Télécharger

7ème Programme:
XSuites

Calculs de suite.

Code:

0→A
0→B
0→C
0→D
0→E
0→F
ClrHome
Disp "Calcule le ter-","me desire et la","somme avec tous","les anterieurs.","1) Arithmetique","2) Geometrique"
Input A
If A=1
 Then
 Disp "U(n) desire :"
 Input B
 Disp "Raison :"
 Input C
 Disp "Premier terme :"
 Input D
 D+BC→E    // Premier terme + n * Raison
 (B+1)((D+E)/2)→F    // No de termes * ((Premier + Dernier)/2)
 ClrHome
 Disp "U(n) desire :",E
 Disp "Somme termes :",F
 End
If A=2
 Then
 Disp "U(n) desire :"
 Input B
 Disp "Raison :"
 Input C
 Disp "Premier terme :"
 Input D
 D*(C^B)→E    // Premier terme + Raison ^ n
 If C!=1
   D*((1-C^(b+1))/(1-C)→F    // Premier terme * (1 - Raison ^ Nombre de termes) / (1 - Raison)
 If C=1
   D*(B+1)→F
 ClrHome
 Disp "U(n) desire :",E
 Disp "Somme termes :",F
 End

Optimisé Lisibilité.

Télécharger

Voilà les programmes. N'hésitez pas à poser de questions où à me demander un programme.