File: prog2.tex

package info (click to toggle)
tetex-src 2.0.2a-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 71,124 kB
  • ctags: 1,576
  • sloc: makefile: 1,764; sh: 1,181; perl: 925; lisp: 342; python: 251; sed: 138; ansic: 138; xml: 96; yacc: 52
file content (13 lines) | stat: -rw-r--r-- 347 bytes parent folder | download | duplicates (8) 
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}