Programmation Probas TS

→ **MyCalcs** profile · by **bizzby** » 05 Jun 2017, 16:30

Besoin d'aide sur ce programme Svp
et tous les "Pause" ne fonctionne pas

Code: Select all: ClrDrawin FunctionNAff AxesOff EffEcr Menu("PROBAS","BINOMIALE",01,"UNIFORME",02,"EXPONENTIELLE",03,"NORMALE",04,"AUTRES",05) Lbl 01 Menu("BINOMIALE","P(X=τ)",11,"P(X≤τ)",12,"P(X≥τ)",13,"P(α≤X≤β)",14,"FORMULE",15,"AUTRES",16) Lbl 11 Text(0,0,"P(X=τ)=binompdf(N,P,τ)") Pause Input "N=",N Input "P=",P Input "τ=",T binompdf(N,P,T)→G Disp "P(X=τ)=",G Pause Goto 99 Lbl 12 Text(0,0,"P(X≤τ)=binomcdf(N,P,τ)") Pause Input "N=",N Input "P=",P Input "τ=",T binomcdf(N,P,T)→G Disp "P(X≤τ)=",G Pause Goto 99 Lbl 13 Text(0,0,"P(X≥τ)=1-P(X≤τ-1)") Text(6,0,"=1-binomcdf(N,P,τ-1)") Pause Input "N=",N Input "P=",P Input "τ-1=",T 1-binomcdf(N,P,T)→G Disp "P(X≥τ)=",G Pause Goto 99 Lbl 14 Text(0,0,"P(α≤X≤β)= P(X≤β)-P(X≤α-1)") Text(6,0,"binomcdf(N,P,β)") Text(12,0,"-binomcdf(N,P,α-1)") Pause Input "N=",N Input "P=",P Input "β=",B Input "α-1=",A binomcdf(N,P,B)-binomcdf(N,P,A)→G Disp "P(α≤X≤β)=",G Pause Goto 99 Lbl 15 Text(0,0,"(N τ)*(P^τ)*)(1-P)^(N-τ))") Pause Goto 99 Lbl 16 Text(0,0,"E(X)=N*P") Text(6,0,"V(X)=N*P(1-P)") Pause Input "N=",N Input "P=",P N*P→E N*P(1-p)→V Disp "E(X)=",E Disp "V(x)="V Pause Goto 99 Lbl 02 Menu("UNIFORME","P(α≤X≤β)",21,"P(X≤α)",22,"Autres",23) Lbl 21 Text(0,0,"X suit la loi uniforme (a:b)") Text(6,0,""P(α≤X≤β)=(β-α)/(b-a)") Pause Input "a=",A Input "b=",B Input "α=",X Input "β=",Y (Y-X)/(B-A)→G Disp "P(α≤X≤β)=",G Pause Goto 99 Lbl 22 Text(0,0,"X suit la loi uniforme (a:b)") Text(6,0,"si α<a alors 0") Text(12,0,si α>b aors 1") Text(18,0,"si a≤α≤b alors (α-a)/(b-a)") Pause Input "a=",A Input "b=",B Input "α=",X (X-A)/(B-A)→G Disp "P(X≤α)=",G Pause Goto 99 Lbl 23 Text(0,0,"X suit la loi uniforme (a:b)") Text(6,0,"Espérance de X") Text(12,0,"E(X)=(b+a)/2") Pause Input "a=",A Input "b=",B (B+A)/2→G Disp "E(X)=",→G Pause Goto 99 Lbl 03 Menu("EXPONENTIELLE","P(X≤α)",31,"P(α≤X≤β)",32,"P(X≥α)",33,"Autres",34) Lbl 31 Text(0,0,"si α>0 P(X≤α)=1-^(-λα)") Text(0,6,"si α<0 alors 0") Pause Input "α=",A Input "λ=",L 1-^(-L*A)→G Disp "P(X≤α)=",G Pause Goto 99 Lbl 32 Text(0,0,"P(α≤X≤β)=P(X≤β)-P(X≤α)") Text(6,0,"=1-^(-λβ)-(1-^(-λα))") Text(12,0,"=-^(-λβ)+^(-λα)") Pause Input "α=",A Input "β=",B Input "λ=",L (-^(-L*B))+^(-L*A)→G Disp "P(α≤X≤β)=",G Pause Goto 99 Lbl 33 Text(0,0,"P(X≥α)=1-P(X≤α)") Text(6,0,"=1-(1-^(-λα)") Text(12,0,"^(-λα)") Pause Input "α=",A Input "λ=",L ^(-L*A)→G Disp "P(X≥α)=",G Pause Goto 99 Lbl 34 Menu("AUTRES","ESPERANCE",341,"DUREE DE VIE",342") Lbl 341 Text(0,0,"E(X)=1/λ") Pause Input "λ=",L 1/L→G Disp "E(X)=",G Pause Goto 99 Lbl 342 Text(0,0,"Px≥t(X≥t+h)=P(X≥h)") Text(6,0,"P(X≥h)=1-P(X≤h)") Text(12,0,"=1-(1-^(-λh)") Text(18,0,"^(-λh)") Pause Input "h=",T Input "λ=",L ^(-L*T)→G Disp "P(X≥h)=",G Pause Goto 99 Lbl 04 Menu("NORMALE","P(a≤X≤b)",41,"P(X≤a)",42,"P(X≥a)",43,"P(X≤a)=p",44,"AUTRES",45) Lbl 41 Text(0,0,"X suit la loi normale N(µ,σ²)") Text(6,0,"P(a≤X≤b)=normalcdf(a,b,µ,σ)") Pause Input "a=",A Input "b=",B Input "µ=",U Input "σ=",S normalcdf(A,B,U,S)→G Disp "P(a≤X≤b)=",G Pause Goto 99 Lbl 42 Text(0,0,"X suit la loi normale N(µ,σ²)") Pause Menu("P(X≤a)","a≤σ",421,"a≥σ",422) Lbl 421 Text(6,0,"si a≤σ") Text(12,0,"P(X≤a)= 0.5-P(a≤X≤σ)") Text(18,0,"=0.5-normalcdf(a,σ,µ,σ)" Pause Input "a=",A Input "µ=",U Input "σ=",S 0.5-normalcdf(A,S,U,S)→G Disp "P(X≤a)=",G Pause Goto 99 Lbl 422 Text(6,0,"si a≥σ") Text(12,0,"P(X≤a)= 0.5+P(σ≤X≤a)") Text(18,0,"=0.5+normalcdf(σ,a,µ,σ)" Pause Input "a=",A Input "µ=",U Input "σ=",S 0.5+normalcdf(S,A,U,S)→G Disp "P(X≤a)=",G Pause Goto 99 Lbl 43 Text(0,0,"X suit la loi normale N(µ,σ²)") Text(6,0,"P(X≥a)=1-P(X≤a)") Pause Menu("1-P(X≤a)","a≤σ",431,"a≥σ",432) Lbl 431 Text(12,0,"=0.5+P(a≤X≤σ)") Pause Input "a=",A Input "µ=",U Input "σ=",S 0.5+normalcdf(A,S,U,S)→G Disp "P(X≥a)=",G Pause Goto 99 Lbl 432 Text(12,0,"=0.5-P(a≤X≤σ)") Pause Input "a=",A Input "µ=",U Input "σ=",S 0.5-normalcdf(A,S,U,S)→G Disp "P(X≥a)=",G Pause Goto 99 Lbl 44 Text(0,0,"X suit la loi normale N(µ,σ²)") Text(6,0,"P(X≤a)=p alors" Text(12,0,"a=invNorm(p,µ,σ)" Pause Input "p=",P Input "µ=",U Input "σ=",S invNorm(P,U,S)→G Disp "a=",G Pause Goto 99 Lbl 45 Menu("AUTRES","CENTREE REDUITE",451,"GENERALE",452) Lbl 451 Text(0,0,"X suit la loi normale N(0,1)") Text(6,0,"P(-1.96≤X≤1.96)=0.95") Text(12,0,"P(-2.58≤X≤2.58)=0.99") Pause Goto 99 Lbl 452 Text(0,0,"X suit la loi normale N(µ,σ²)") Text(6,0,"P(µ-σ≤X≤µ+σ)=0.683" Text(12,0,"P(µ-2σ≤X≤µ+2σ)=0.954" Text(18,0,"P(µ-3σ≤X≤µ+3σ)=0.997" Pause Goto 99 Lbl 05 Menu("AUTRES","ECHANTILLONNAGE",51,"ESTIMATION",52) Lbl 51 Text(0,0,"intervalle de fluctuation asymptotique") Text(6,0,"(p-U*(√(p(1-p)))/√(n)," Text(12,0,"(p+U*(√(p(1-p)))/√(n)," Text(18,0,"si U=1.96 alors à 0.95" Text(24,0,"si U=2.58 alors à 0.99" Pause Goto 99 Lbl 52 Text(0,0,"intervalle de confiance a 0.95") Text(6,0,"[f-(1/√(n),f+(1/√(n)]" Pause Goto 99 Lbl 99 ClrDrawin FunctionNAff AxesOff EffEcr STOP

→ **MyCalcs** profile · by **clifward** » 05 Jun 2017, 16:34

Besoin d'aide... Mais encore ?

My calculator programs · by **Adriweb** » 05 Jun 2017, 16:35

Je sais pas ce que c'est ton problème en particulier mais en tout cas à la ligne 207 tu as un ' au lieu de ,, avec "Texte (" de marqué, aussi (pas d'espace normalement)

Et les "#" c'est quoi ? Des commentaires pour nous ici ?

→ **MyCalcs** profile · by **bizzby** » 05 Jun 2017, 16:35

Tous les lignes où il y a un # ne fonctionne pas, c'est pas la bonne écriture, et aussi tous les Pause

→ **MyCalcs** profile · by **bizzby** » 05 Jun 2017, 16:36

Adriweb wrote:Je sais pas ce que c'est ton problème en particulier mais en tout cas à la ligne 207 tu as un ' au lieu de ,, avec "Texte (" de marqué, aussi (pas d'espace normalement)

Merci pour la ligne 207 c'est corrigé et j'ai marqué le problème au dessus du code