File: prog2.tex

package info (click to toggle)
tetex-src 3.0.dfsg.2-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 122,292 kB
  • ctags: 2,709
  • sloc: makefile: 2,323; perl: 1,820; sh: 1,378; lisp: 448; python: 335; xml: 175; sed: 138; ansic: 138; 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}