AccueilPortailFAQRechercherMembresS'enregistrerGroupesConnexionCalendrier

Partagez | 
 

 Ax²+Bx+c

Aller en bas 
AuteurMessage
admtroux
Aucun diplôme
Aucun diplôme


Masculin
Nombre de messages : 7
Age : 32
Emploi : etudient
Loisirs : muscu nolife crepes et saussisson
Date d'inscription : 28/05/2007

MessageSujet: Ax²+Bx+c   Lun 28 Mai 2007 - 23:40

A,B et C peuvent être négatifs pensez à mettre le (-) devant la valeur:

Normal
Float
Radian
Func
Connected
a+bi
Prompt A,B,C
B²-(4AC)->D
Disp "DELTA",D
√(√(D²))->Ø
Disp "√(D)",Ø

If D=0
Goto 0
If D>0
Goto 1
If D<0
Goto 2
End

Lbl 0
Disp "D=0"
Pause
Disp"-B/2A"
-B/2A->X
Disp "X",X>frac
Stop

Lbl 1
Disp "D>0"
(-B-√(D))/(2a)->X
(-B+√(D))/(2a)->Y
Pause
Disp "(-B-√(D))/(2a)",X>Frac
Disp "(-B+√(D))/(2a)",Y>Frac
Stop

Lbl 2
Disp "D<0"
(-B-i√(-D))/(2a)->X
(-B+i√(-D))/(2a)->Y
Pause
Disp "(-B-i√(-D))"
Disp "/(2a)",X>Frac
Pause
Disp "(-B+i√(-D))"
Disp/(2a)",Y>Frac
Stop
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://admtroux.skyblog.com
 
Ax²+Bx+c
Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
 :: La réserve! :: Programmes pour calculatrices programmables-
Sauter vers: