PROGRAMME DE CALCUL DE LA LOI NORMALE

Prgm
ClrIO
Disp "N(m,s)"
Input "m=",x
Input "s=",y
Disp "Si P(X≤?),taper 1"
Input "Si P(X>?),taper 2",c
If c=1 Then
Input "P(X≤?)",z
Else
Input "P(X>?)",z
EndIf
(z-x)/y®t
Disp "t=(x-m)/s suit N(0,1)"
Disp "t=",t
If t≥0 and c=1 Then
∫(1/(√(2*P))*e^(-x^2/2),x,-∞,-t)®s
Disp "P(t)=",approx(s)
ElseIf t<0 and c=1 Then
1-∫(1/(√(2*P))*e^(-x^2/2),x,-∞,-t)®s
Disp "1-P(|t|)=",approx(s)
ElseIf t<0 and c=2 Then
∫(1/(√(2*P))*e^(-x^2/2),x,-∞,-t)®s
Disp "1-(1-P(|t|)=",approx(s)
Else
1-∫(1/(√(2*P))*e^(-x^2/2),x,-∞,t)®s
Disp "1-P(|t|))=",approx(s)
EndIf
EndPrgm