From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- macros/latex/contrib/progkeys/demo/prog3.tex | 57 ++++++++++++++++++++++++++++ 1 file changed, 57 insertions(+) create mode 100644 macros/latex/contrib/progkeys/demo/prog3.tex (limited to 'macros/latex/contrib/progkeys/demo/prog3.tex') diff --git a/macros/latex/contrib/progkeys/demo/prog3.tex b/macros/latex/contrib/progkeys/demo/prog3.tex new file mode 100644 index 0000000000..df33fd7d26 --- /dev/null +++ b/macros/latex/contrib/progkeys/demo/prog3.tex @@ -0,0 +1,57 @@ +\begin{programs}* + \WITH TEXT\_IO; \USE TEXT\_IO; + \PROCEDURE NUMEROTATION + (FICHIER\_ENTREE : \IN STRING; + FICHIER\_SORTIE : \IN STRING := "") IS + \SUBTYPE LONGUEUR\_LIGNE \IS INTEGER + \RANGE 1..255; + FICHIER\_IN : FILE\_TYPE; + FICHIER\_OUT : FILE\_TYPE; + COMPTEUR : NATURAL := 0; + LIGNE : STRING (LONGUEUR\_LIGNE); + FIN\_DE\_LIGNE : NATURAL; + \BEGIN + OPEN (FILE => FICHIER\_IN, + MODE => IN\_FILE, + NAME => FICHIER\_ENTREE); + \IF FICHIER\_SORTIE = "" \THEN + CREATE (FILE => FICHIER\_OUT, + MODE => OUT\_FILE, + NAME => FICHIER\_ENTREE \& ".num"); + \ELSE + CREATE (FILE => FICHIER\_OUT, + MODE => OUT\_FILE, + NAME => FICHIER\_SORTIE); + \END \IF; + RESET (FICHIER\_IN); + \WHILE \NOT END\_OF\_FILE (FICHIER\_IN) \LOOP + GET\_LINE (FILE => FICHIER\_IN, + ITEM => LIGNE, + LAST => FIN\_DE\_LIGNE); + COMPTEUR := COMPTEUR + 1; + PUT\_LINE (FILE => FICHIER\_OUT, + ITEM => NATURAL'IMAGE (COMPTEUR) \& + " " \& LIGNE (1..FIN\_DE\_LIGNE)); + \END \LOOP; + CLOSE (FILE => FICHIER\_IN); + CLOSE (FILE => FICHIER\_OUT); + \END NUMEROTATION; + + \WITH TEXT\_IO; \USE TEXT\_IO; + \WITH NUMEROTATION; + \PROCEDURE TEST\_NUMEROTATION \IS + CARACTERES : NATURAL; + NOM\_FICHIER : STRING (1..50); + \BEGIN + PUT ("quel fichier voulez-vous "); + PUT ("numeroter ? "); + GET\_LINE (NOM\_FICHIER,CARACTERES); + NUMEROTATION (NOM\_FICHIER (1..CARACTERES)); + PUT\_LINE ("C'est fini"); + \END TEST\_NUMEROTATION; +\end{programs} + +% Local Variables: +% mode: latex +% TeX-master: t +% End: -- cgit v1.2.3