blob: 2fcbf9be32146c33b12bbc4381107bebcfaac24b (
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);
\TYPE T \IS \ARRAY (INTEGER \RANGE <>) \OF COULEURS;
A : T(1..5) := (BLEU, ROUGE, VERT, JAUNE, VIOLET);
B : T(1..5);
\BEGIN
B(1) := A(1);
B(1..5) := A(1..5);
B := A;
\END FORT\_TYPAGE;
\end{programs}
|