Rick/aoc-2015
1
0
Fork 0
Code Issues Pull requests Activity

Débug & Ajout de commentaires

Browse source 
JPP j’avais juste mal lu l’énoncé.
This commit is contained in:
rick 2021-03-07 15:07:19 +01:00
parent dc9887ebd9
commit 1f25b3f040
Signed by: Rick
GPG key ID: 2B593F087240EE99
1 changed files with 20 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
jour05/test.cob → jour05/jour5-prem.cob
View file

@ -8,7 +8,6 @@
ORGANIZATION LINE SEQUENTIAL. ORGANIZATION LINE SEQUENTIAL.
DATA DIVISION. DATA DIVISION.
FILE SECTION. FILE SECTION.
FD FILE1. FD FILE1.
01 INPUT-FILE. 01 INPUT-FILE.
@ -26,20 +25,24 @@
OPEN INPUT FILE1. OPEN INPUT FILE1.
PERFORM UNTIL EOF PERFORM UNTIL EOF
READ FILE1 RECORD INTO MY-FILE READ FILE1 RECORD INTO MY-FILE
* Lorsqu’on arrive à la fin du fichier, on met Y pour le signaler
AT END MOVE 'Y' TO FILE-STATUS AT END MOVE 'Y' TO FILE-STATUS
NOT AT END CALL "parse-str" USING NOT AT END CALL "parse-str" USING
BY CONTENT MY-STR, BY CONTENT MY-STR,
BY REFERENCE NB-NICE BY REFERENCE NB-NICE
* On passe par référence NB-NICE pour l’incrémenter
END-CALL END-CALL
END-READ END-READ
END-PERFORM. END-PERFORM.
DISPLAY "Nombre de bonnes chaines : " NB-NICE. DISPLAY "Nombre de bonnes chaines : " NB-NICE.
CLOSE FILE1. CLOSE FILE1.
STOP RUN. STOP RUN.
END PROGRAM jour-cinq-prem-part.
****************************************************************** ******************************************************************
* parse-str : parse la chaine de caractères pour voir le nombre de
* bonnes chaines. Prend en paramètres 2 arguments :
* STR : chaine de caractères de taille 16. Sera parser.
* NB : (REFERENCE) le nombre de bonnes chaines. Sera incrémenter.
IDENTIFICATION DIVISION. IDENTIFICATION DIVISION.
PROGRAM-ID. parse-str. PROGRAM-ID. parse-str.
@ -47,7 +50,7 @@
DATA DIVISION. DATA DIVISION.
WORKING-STORAGE SECTION. WORKING-STORAGE SECTION.
77 CHAR PIC A. 77 CHAR PIC A.
88 VOY VALUE 'a','e','i','o','u','y'. 88 VOY VALUE 'a','e','i','o','u'.
77 I PIC 99. 77 I PIC 99.
88 END-P VALUE 17. 88 END-P VALUE 17.
77 NB-VOY PIC 99. 77 NB-VOY PIC 99.
@ -55,6 +58,14 @@
77 TMP PIC AA. 77 TMP PIC AA.
88 BAD VALUE 'ab', 'cd', 'pq', 'xy'. 88 BAD VALUE 'ab', 'cd', 'pq', 'xy'.
77 DOUBLE PIC X. 77 DOUBLE PIC X.
* NB-VOY contient le nombre de voyelles
* PRED le caractère précédent
* TMP forme la chaine contenant le caractère précédent et courant
* BAD les mauvaises formes de chaines
* DOUBLE est mit à Y lorsque CHAR = PRED
*
* LINKAGE SECTION contient les paramètres du programme parse-str
LINKAGE SECTION. LINKAGE SECTION.
77 STR PIC A(17). 77 STR PIC A(17).
@ -94,5 +105,9 @@
THEN THEN
ADD 1 TO NB ADD 1 TO NB
END-IF. END-IF.
EXIT PROGRAM.
END PROGRAM parse-str. END PROGRAM parse-str.
*************************************************************************
END PROGRAM jour-cinq-prem-part.