Procédure de résolution de polynômes de degré 2 et 3
Bonjour,
j'aimerais savoir comment faire une procedure sous Maple pour resoudre un polynomes de degré 2.Pour la résolution mathematique voila ce que j'ai fait:
soit: ax^2+bx+c où a non nul
si b=0 et c=0, ax^2=0 donc x1=x2=0
si b=0 et c<>0,ax^2+bx=0,donc x1=0 ;x2=-b/a
si b<>0 et c=0 ax^2+c=0 donc,:
si ac>0 :
pas de racines réelles.et deux racines complexes,x1= isqrt(c/a),x2=-isqrt(c/a)
si ac<0:
deux racines réelles,x1=i sqrt(-c/a),x2=-sqrt(-c/a)
si b<>0 et c<>0(et c'et le cas général)
discriminant delta=b^2-4ac
si delta=0,l'équation a une seule racine double x1=x2=-b/2a
si delta<0,l'eqt a deux solutions complexes :
x1=(-b+isqrt(-delta))/2a et x2=(-b-isqrt(-delta))/2a
si delta>0,l'equation a deux racines réelles:
x1=(-b+sqrt(delta))/2a et x2=(-b-sqrt(delta))/2a
bon voila pour le second degré.
pour l'algorithme que j'ai fait sur papier c'est:
débutseconddegré
Lire(a,b,c);
delta<--b^2-4ac;
Ecrire ("discriminant", delta);
si delta=0, alors,
S<--(-b/2a)
Ecrire ("unique solution S=(-b/2a)")
sinon
si delta>0 ,alors
x1<-- (-b+sqrt(delta))/2a
x2<-- (-b-sqrt(delta))/2a
Ecrire (Deux solutions réelles "x1" et" x2");
sinon
si delta<0,alors
x1<--(-b+isqrt(-delta))/2a
x2<--(-b-isqrt(-delta))/2a
Ecrire (deux solutions complexes x1 et x2)
Finsi
Finsi
Fin
pour le troisieme degré j'ai fait la résolution mathématique .Mais j'ai pas encore fait l'algorithme j'ai pas su comment ;mais je prefere encore quand puisse m'aider d'abord pour ce qui est de faire la procedure sous Maple.En attente d'une réponse ,merci d'avance pour votre aide.
Répondre avec citation
Partager