Ajout deuxième partie
This commit is contained in:
parent
7af2aa38ad
commit
5c9ed75ef9
GPG key ID:
2B593F087240EE99
1 changed files with 126 additions and 0 deletions
126
jour05/jour5.cob
Normal file
126
jour05/jour5.cob
Normal file
|
|
@ -0,0 +1,126 @@
|
||||||
|
IDENTIFICATION DIVISION.
|
||||||
|
PROGRAM-ID. jour-cinq-prem-part.
|
||||||
|
|
||||||
|
ENVIRONMENT DIVISION.
|
||||||
|
INPUT-OUTPUT SECTION.
|
||||||
|
FILE-CONTROL.
|
||||||
|
SELECT FILE1 ASSIGN TO "input"
|
||||||
|
ORGANIZATION LINE SEQUENTIAL.
|
||||||
|
|
||||||
|
DATA DIVISION.
|
||||||
|
FILE SECTION.
|
||||||
|
FD FILE1.
|
||||||
|
01 INPUT-FILE.
|
||||||
|
02 STR PIC A(17).
|
||||||
|
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
01 MY-FILE.
|
||||||
|
02 MY-STR PIC A(17).
|
||||||
|
01 FILE-STATUS PIC X VALUE 'N'.
|
||||||
|
88 EOF VALUE 'Y'.
|
||||||
|
77 NB-NICE PIC 9(4) VALUE 0.
|
||||||
|
|
||||||
|
PROCEDURE DIVISION.
|
||||||
|
main.
|
||||||
|
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 END-DISPLAY.
|
||||||
|
CLOSE FILE1.
|
||||||
|
STOP RUN.
|
||||||
|
|
||||||
|
******************************************************************
|
||||||
|
* 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.
|
||||||
|
|
||||||
|
DATA DIVISION.
|
||||||
|
WORKING-STORAGE SECTION.
|
||||||
|
77 CHAR PIC A.
|
||||||
|
88 VOY VALUE 'a','e','i','o','u'.
|
||||||
|
77 I PIC 99.
|
||||||
|
88 END-P VALUE 17.
|
||||||
|
77 J PIC 99.
|
||||||
|
77 K PIC 99.
|
||||||
|
88 END-I VALUE 17.
|
||||||
|
77 PRED PIC A.
|
||||||
|
77 MYNEW PIC A.
|
||||||
|
77 TMP PIC AA.
|
||||||
|
77 TMP-NEXT PIC AA.
|
||||||
|
77 BETWEEN PIC X.
|
||||||
|
77 DOUBLE PIC X.
|
||||||
|
77 DOUBLE-CHAR PIC AA.
|
||||||
|
77 DOUBLE-CHAR-NEXT PIC AA.
|
||||||
|
|
||||||
|
******************************************************************
|
||||||
|
* 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).
|
||||||
|
77 NB PIC 9(4).
|
||||||
|
|
||||||
|
PROCEDURE DIVISION USING STR, NB.
|
||||||
|
premiere-part.
|
||||||
|
MOVE 'N' TO BETWEEN.
|
||||||
|
MOVE 'N' TO DOUBLE.
|
||||||
|
d DISPLAY STR.
|
||||||
|
d DISPLAY "=================".
|
||||||
|
PERFORM VARYING I FROM 1 BY 1 UNTIL END-P
|
||||||
|
COMPUTE J = I + 1 END-COMPUTE
|
||||||
|
MOVE STR(I:1) TO CHAR
|
||||||
|
IF I > 1 AND I < (LENGTH OF STR - 1) THEN
|
||||||
|
MOVE STR(J:1) TO MYNEW
|
||||||
|
IF PRED = MYNEW THEN
|
||||||
|
MOVE 'Y' TO BETWEEN
|
||||||
|
END-IF
|
||||||
|
END-IF
|
||||||
|
|
||||||
|
IF I < ((LENGTH OF STR) - 2) AND DOUBLE = 'N' THEN
|
||||||
|
MOVE STR(I:2) TO DOUBLE-CHAR
|
||||||
|
ADD 1 TO J END-ADD
|
||||||
|
PERFORM VARYING K FROM J BY 1 UNTIL END-I
|
||||||
|
MOVE STR(K:2) TO DOUBLE-CHAR-NEXT
|
||||||
|
IF DOUBLE-CHAR = DOUBLE-CHAR-NEXT THEN
|
||||||
|
MOVE 'Y' TO DOUBLE
|
||||||
|
END-IF
|
||||||
|
END-PERFORM
|
||||||
|
END-IF
|
||||||
|
|
||||||
|
d DISPLAY "ACT. CHAR : " CHAR
|
||||||
|
d DISPLAY "ACT. PRED : " PRED
|
||||||
|
d DISPLAY "I : " I
|
||||||
|
MOVE CHAR TO PRED
|
||||||
|
END-PERFORM.
|
||||||
|
|
||||||
|
IF BETWEEN = 'Y' AND DOUBLE = 'Y'
|
||||||
|
THEN
|
||||||
|
ADD 1 TO NB END-ADD
|
||||||
|
END-IF.
|
||||||
|
EXIT PROGRAM.
|
||||||
|
|
||||||
|
END PROGRAM parse-str.
|
||||||
|
|
||||||
|
*************************************************************************
|
||||||
|
|
||||||
|
END PROGRAM jour-cinq-prem-part.
|
||||||
Loading…
Reference in a new issue