blob: 8fb99fe635a59d3889b87db0e5c506e4c8f628c7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
\begin{programs}[0.5cm]
\PROCEDURE FORT\_TYPAGE \IS
\TYPE COULEURS \IS
(ROUGE, ORANGE, JAUNE, VERT, BLEU, INDIGO, VIOLET);
A : \ARRAY (1..5) \OF COULEURS
:= (BLEU, ROUGE, VERT, JAUNE, VIOLET);
B : \ARRAY (1..5) \OF COULEURS;
\BEGIN
B(1) := A(1); \label{progFORTTYPAGEinstruction1}
B(1..5) := A(1..5); \label{progFORTTYPAGEinstruction2}
B := A; \label{progFORTTYPAGEinstruction3}
\END FORT\_TYPAGE;
\end{programs}
|