I) La préanalyse :

II) L'analyse :

Nom = EquationDeg2
Séquences	Liste des définitions Explicites	Objets Utilisés
7	Résultats = Ecrire ("Deux racines :",x1, x2)	A
5	x1 ß    (-B+Racine(delta))/(2*A)	B
2	Lire (B)	C
4	Delta ß    Carré(B) - 4*A*C	delta
1	Lire (A)	x1
3	Lire (C)	x2
6	x2 ß     (-B-Racine(delta))/(2*A)
8	Fin EquationDeg2

Objets Utilisés	Code	Type / Nature	Rôle
A	A	variable/Réel	La 1ère coef. de l'équation
B	B	variable/Réel	La 2ème coef. de l'équation
C	C	variable/Réel	La 3ème coef. de l'équation
Delta	Delta	variable/Réel	La valeur du déterminant
X1	X1	variable/Réel	Racine 1
X2	X2	variable/Réel	Racine 2

IV) L'algorithme :

0-	Début EquationDeg2
1-	Lire (A)
2-	Lire (B)
3-	Lire (C)
4-	Delta ß   Carré(B) - 4*A*C
5-	X1 ß   (-B+Racine(delta))/(2*A)
6-	X2 ß   (-B-Racine(delta))/(2*A)
7-	Ecrire ("Deux racines :",X1, X2)
5-	Fin EquationDeg2

V) La traduction en turbo pascal :

Program Equation_Deg2;
uses Wincrt;
Var A,B,C,X1,X2,Delta : Real;
Begin
	Write('A=');
	Readln(A);
	Write('B=');
	Readln(B);
	Write('C=');
	Readln(C);
	Delta : = Sqr(B) - 4*A*C;
  	X1 : =  (-B+Sqrt(delta))/(2*A);
             X2 : =  (-B-Sqrt(delta))/(2*A);
	Write ('Deux racines : ',X1:5:2,'  et  ', X2:5:2);
End.