I) La préanalyse :

 
la quantité commandée est :  Q

Nbrc1ß

   Q Div 230                   Nbrc2 ß

  Q Mod 230 Div 12                 Nbrc3 ß

  Q Mod 230 Mod 12

II) L'analyse :

Nom = Caisses
Séquences	Liste des définitions Explicites	Objets Utilisés
5	Résultats = Ecrire(Nbrc1, Nbrc2, Nbrc3)	Nbrc1
2	Nbrc1ß    Q Div 230	Nbrc2
1	Répéter	Nbrc3
	Lire(Q)	Q
	Jusqu à  (Q>0)
3	Nbrc2 ß   Q Mod 230 Div 12
4	Nbrc3 ß   Q Mod 230 Mod 12
6	Fin Caisses

III) Le tableau de déclaration des objets :

Objets Utilisés	Nature/type	Rôle
Q	variable/Entier	Recevoir la quantité commandée
Nbrc1	variable/Entier	Recevoir le nombre de caisses de type C1
Nbrc2	variable/Entier	Recevoir le nombre de caisses de type C2
Nbrc3	variable/Entier	Recevoir le nombre de caisses de type C2

IV) L'algorithme :

0-	Début Caisses
1-	Répéter
	Lire(Q)
	Jusqu à  (Q>0)
2-	Nbrc1 ß    Q Div 230
3-	Nbrc2 ß    Q Mod 230 Div 12
4-	Nbrc3 ß  Q Mod 230 Mod 12
5-	Ecrire(Nbrc1, Nbrc2, Nbrc3)
6-	Fin Caisses

V) La traduction en turbo pascal :

Program Caisses;
uses Wincrt;
Var Nbrc1, Nbrc2, Nbrc3, Q : Integer;
Begin
	Repeat
		Write('la quantité commandée :');
		Readln(Q);
	Until Q>0;
	Nbrc1 : = Q Div 230;
	Nbrc2 : =  Q Mod 230 Div 12;
	Nbrc3 : = Q Mod 230 Mod 12;
	Write('Le nombre de caisses de type C1 est : ' , Nbrc1);
	Write('Le nombre de caisses de type C2 est : ' , Nbrc2);
	Write('Le nombre de caisses de type C3 est : ' , Nbrc3);
End.