Les programmes mathématiques

Trouver la mesure principale d'un angle (en radians)
: Disp "A$$\pi$$/B" :Input "A=",A :Input "B=",B :2B$$\rightarrow$$C :partEnt(A/C)$$\rightarrow$$Q :A-(C*Q)$$\rightarrow$$R :If R*$$\pi$$/B >= $$\pi$$ :Then :R-2*B$$\rightarrow$$R :End :Disp "R$$\pi$$/B :Disp "R=",R

Dichotomie
:Prompt E,A,B :While $$\sqrt{(A-B)^{2}}$$ > E :(A+B)/2$$\rightarrow$$C :If $$Y_{1}$$(C)*$$Y_{1}$$(A) $$\leq$$ 0 :Then :C$$\rightarrow$$B :Else :C$$\rightarrow$$A :End :End :Dis A,B

Incertitude
:Lbl 0 :EffEcr :Menu("INCERTIT","LISTE",5,"MOYENNE",1,"ECART-TYPE",2,"U(X)",4,"QUITTER",3) :Lbl 1 :If V=0:Goto 0 :Input "N=",N :1$$\rightarrow$$

Argument d'un nombre complexe
:"RIEN"$$\rightarrow$$Chaîne1 :Input "A=",A :Input "B=",B :$$\sqrt{}(A^{2}+B^{2})\rightarrow$$R :A/R$$\rightarrow$$C :B/R$$\rightarrow$$S :If C=1:"0"$$\rightarrow$$Chaîne1 :If C=-1:"$$\pi$$"$$\rightarrow$$Chaîne1 :If $$\sqrt{}(C^{2})$$ = $$\sqrt{}$$(3)/2 :Then :If C>0 :Then :If S>0:"$$\pi$$/6"$$\rightarrow$$Chaîne1 :If S<0:"-$$\pi$$/6"$$\rightarrow$$Chaîne1 :End :If C<0 :Then :If S>0:"5$$\pi$$/6"$$\rightarrow$$Chaîne1 :If S<0:"-5$$\pi$$/6"$$\rightarrow$$Chaîne1 :End :End :If $$\sqrt{}(C^{2})$$ = $$\sqrt{}$$(2)/2 :Then :If C>0 :Then :If S>0:"$$\pi$$/4"$$\rightarrow$$Chaîne1 :If S<0:"-$$\pi$$/4"$$\rightarrow$$Chaîne1 :End :If C<0 :Then :If S>0:"3$$\pi$$/4"$$\rightarrow$$Chaîne1 :If S<0:"-3$$\pi$$/4"$$\rightarrow$$Chaîne1 :End :End :If $$\sqrt{}(C^{2})$$ = 1/2 :Then :If C>0 :Then :If S>0:"$$\pi$$/3"$$\rightarrow$$Chaîne1 :If S<0:"-$$\pi$$/3"$$\rightarrow$$Chaîne1 :End :If C<0 :Then :If S>0:"2$$\pi$$/3"$$\rightarrow$$Chaîne1 :If S<0:"-2$$\pi$$/3"$$\rightarrow$$Chaîne1 :End :End :If $$\sqrt{}(C^{2})$$ = 1/2 :Then :If C>0 :Then :If S>0:"$$\pi$$/3"$$\rightarrow$$Chaîne1 :If S<0:"-$$\pi$$/3"$$\rightarrow$$Chaîne1 :End :If C<0 :Then :If S>0:"2$$\pi$$/3"$$\rightarrow$$Chaîne1 :If S<0:"-2$$\pi$$/3"$$\rightarrow$$Chaîne1 :End :End :If C=0 :Then :If S>0:"$$\pi$$/2"$$\rightarrow$$Chaîne1 :If S<0:"-$$\pi$$/2"$$\rightarrow$$Chaîne1 :End :Disp Chaîne1