I) La préanalyse :

II) L'analyse :

Nom = Resistance
Séquences	Liste des définitions Explicites	Objets Utilisés
5	Résultats = Ecrire(RE)	RE
2	RE <-- (R1 * R2) / (R1 + R2) + R3 + R4	R1
1	Répéter	R2
	R1 = Donnée	R3
	Jusqu à  (R1>0)	R4
2	Répéter
	R2 = Donnée
	Jusqu à  (R2>0)
3	Répéter
	R3 = Donnée
	Jusqu à  (R3>0)
4	Répéter
	R4 = Donnée
	Jusqu à  (R4>0)
6	Fin Resistance

III) Le tableau de déclaration des objets :

Objets Utilisés	Nature/Type	Rôle
RE	variable/Reel	Recevoir le valeur de la résistance équivalente
R1	variable/Reel	Recevoir le valeur de la résistance 1
R1	variable/Reel	Recevoir le valeur de la résistance 2
R1	variable/Reel	Recevoir le valeur de la résistance 3
R4	variable/Reel	Recevoir le valeur de la résistance 4

IV) L'algorithme :

0-	Début Resistance
1-	Répéter
	Lire(R1)
	Jusqu à  (R1>0)
2-	Répéter
	Lire(R2)
	Jusqu à  (R2>0)
3-	Répéter
	Lire(R3)
	Jusqu à  (R3>0)
4-	Répéter
	Lire(R4)
	Jusqu à  (R4>0)
5-	RE ß   (R1 * R2) / (R1 + R2) + R3 + R4
6-	Ecrire(RE)
7-	Fin Billets

V) La traduction en turbo pascal :

Program Resistance;
uses Wincrt;
Var R1, R2, R3, R4, RE : Real;
Begin
	Repeat
		Write('La valeur de resistance 1 :');
		Readln(R1);
	Until (R1>0);
	Repeat
		Write('La valeur de resistance 2 :');
		Readln(R2);
	Until (R2>0);
	Repeat
		Write('La valeur de resistance 3 :');
		Readln(R3);
	Until (R3>0);
	Repeat
		Write('La valeur de resistance 4 :');
		Readln(R4);
	Until (R4>0);
	RE : = (R1 * R2) / (R1 + R2) + R3 + R4;
	Write(' La résistance équivalente est :' , RE :5:2);
End.