**TI92P*prgm_seProgram file 07/08/08, 18:59Rcomplexû¥Z¡() Prgm Local a,b,c,d,e,g,h,j,z,l,k,on,eq1,eq2,rep,aze,equation ClrIO x+—*yz 2c Dialog DropDown "choix",{"equation","calcul","quitter"},c EndDlog If c=3 Then Stop EndIf If c=2 Then Prompt z Disp "z=",z Disp "|z|=",abs(z) setMode("Angle","RADIAN") Disp "Arg de z=",angle(z) Pause setMode("Angle","DEGREE") Disp "Arg de z=",angle(z) Pause setMode("Angle","RADIAN") EndIf If c=1 Then Prompt equation Disp expand(equation) factor(real(equation))eq1 cFactor(imag(equation))eq2 Disp "Les équations sont :",eq1,eq2 Pause ClrIO Input "combien d'équation(s)?",aze If aze=1 Then ClrIO solve(eq1,x)l solve(eq2,y)|lk solve(eq1,x)|kj Disp j,k,"","z=",j+—*k Pause Else Lbl suite ClrIO Disp eq1,eq2 Prompt a,b,d,e,g,h Disp simult([[a,b][d,e]],[[g][h]]) InputStr "encore(1oui,2non)",on If on=1 Then Goto suite Else Stop EndIf EndIf EndIf ClrIO EndPrgmäåÜ=