Débug & Ajout de commentaires
JPP j’avais juste mal lu l’énoncé.
This commit is contained in:
parent
dc9887ebd9
commit
1f25b3f040
1 changed files with 20 additions and 5 deletions
|
@ -8,7 +8,6 @@
|
|||
ORGANIZATION LINE SEQUENTIAL.
|
||||
|
||||
DATA DIVISION.
|
||||
|
||||
FILE SECTION.
|
||||
FD FILE1.
|
||||
01 INPUT-FILE.
|
||||
|
@ -26,20 +25,24 @@
|
|||
OPEN INPUT FILE1.
|
||||
PERFORM UNTIL EOF
|
||||
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
|
||||
NOT AT END CALL "parse-str" USING
|
||||
BY CONTENT MY-STR,
|
||||
BY REFERENCE NB-NICE
|
||||
* On passe par référence NB-NICE pour l’incrémenter
|
||||
END-CALL
|
||||
END-READ
|
||||
END-PERFORM.
|
||||
DISPLAY "Nombre de bonnes chaines : " NB-NICE.
|
||||
CLOSE FILE1.
|
||||
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.
|
||||
PROGRAM-ID. parse-str.
|
||||
|
@ -47,7 +50,7 @@
|
|||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
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.
|
||||
88 END-P VALUE 17.
|
||||
77 NB-VOY PIC 99.
|
||||
|
@ -55,6 +58,14 @@
|
|||
77 TMP PIC AA.
|
||||
88 BAD VALUE 'ab', 'cd', 'pq', 'xy'.
|
||||
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.
|
||||
77 STR PIC A(17).
|
||||
|
@ -94,5 +105,9 @@
|
|||
THEN
|
||||
ADD 1 TO NB
|
||||
END-IF.
|
||||
|
||||
EXIT PROGRAM.
|
||||
END PROGRAM parse-str.
|
||||
|
||||
*************************************************************************
|
||||
|
||||
END PROGRAM jour-cinq-prem-part.
|
Loading…
Reference in a new issue