Voici un programme qui permet la résolution des équations du second degré
VARIABLES
A EST_DU_TYPE NOMBRE
B EST_DU_TYPE NOMBRE
C EST_DU_TYPE NOMBRE
D EST_DU_TYPE NOMBRE
X1 EST_DU_TYPE NOMBRE
X2 EST_DU_TYPE NOMBRE
DEBUT_ALGORITHME
LIRE A
LIRE B
LIRE C
AFFICHER A
AFFICHER B
AFFICHER C
AFFICHER "D = B^2-4AC = "
D PREND_LA_VALEUR B*B-4*A*C
AFFICHER D
SI (D>=0) ALORS
DEBUT_SI
AFFICHER "(-B-sqrt(D))/(2*A) et (-B+sqrt(D))/(2*A) "
X1 PREND_LA_VALEUR (-B-sqrt(D))/(2*A)
X2 PREND_LA_VALEUR (-B+sqrt(D))/(2*A)
AFFICHER X1
AFFICHER X2
FIN_SI
SI (D<0) ALORS
DEBUT_SI
AFFICHER "IMPOSSIBLE"
FIN_SI
FIN_ALGORITHME