résoudre une inéquation

Aller en bas

résoudre une inéquation

Message  Admin le Ven 1 Avr - 23:47

ÉNONCÉ
Ecrire une analyse, un algorithme et la traduction pascal d’un programme intitulé « inéquation » qui permet la résolution d’une inéquation du premier degré à une inconnue X, de forme AX + B < 0.
On suppose que a, b et x sont des réels.
NB : le programme doit traiter tous les cas possibles.

ANALYSE
Nom : inéquation
Résultat= Sol
Sol=[]
Si a=0 Alors
si b=0 Alors
Ecrire("La solution de l'inéquation ",a, "x+", b,"<0 est impossible")
Sinon si b<0 Alors
Ecrire("La solution de l'inéquation ",a, "x+", b,"<0 est IR'')
Sinon
Ecrire("La solution de l'équation ",a, "x+", b,"<0 est l'ensemble vide")
Finsi
Finsi
Sinon
Si b=0 alors
Ecrire("La solution de l'inéquation ",a, "x+", b,"<0 est ]– l'infini, 0[")
Sinon
Ecrire("La solution de l'inéquation ",a, "x+", b,"<0 est ]– l'infini,", -b/a,"[" )
FinSi
Finsi
a = Donnée ("saisir a")
b = Donnée ("saisir b")
Fin inéquation

ALGORITHME
0) Debut inéquation
1) Ecrire ("saisir a") Lire(a)
2) Ecrire("saisir b") Lire(b)
3) Si a=0 Alors
si b=0 Alors
Ecrire("La solution de l'inéquation ",a, "x+", b,"<0 est impossible")
Sinon si b<0 Alors
Ecrire("La solution de l'inéquation ",a, "x+", b,"<0 est IR'')
Sinon Ecrire("La solution de l'équation ",a, "x+", b,"<0 est l'ensemble vide")
Finsi
Finsi
Sinon
Si b=0 alors
Ecrire("La solution de l'inéquation ",a, "x+", b,"<0 est ]– l'infini, 0[")
Sinon Ecrire("La solution de l'inéquation ",a, "x+", b,"<0 est ]– l'infini,", -b/a,"[" )
FinSi
Finsi
4) Fin inéquation

PASCAL

Program inequation;
uses Wincrt;
Var a,B: real;
Begin
Write ('saisir a');
Read(a);
Write('saisir b');
Read(b);
If a=0 Then
begin
If b=0 Then
Write('La solution de l''inéquation ',a:6:3, 'x+', b:6:3,'<0 est impossible')
Else If b<0 Then
Write('La solution de l''inéquation ',a:6:3, 'x+', b:6:3,'<0 est IR')
Else
Write('La solution de l''équation ',a:6:3, 'x+', b:6:3,'<0 est l''ensemble vide');
End
Else
Begin
If b=0 Then
Write('La solution de l''inéquation ',a:6:3, 'x+', b:6:3,'<0 est ]- l''infini, 0[')
Else Write('La solution de l''inéquation ',a:6:3, 'x+', b:6:3,'<0 est ]- l''infini,', -b/a:6:3,'[' );
End;
end.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum