From 5c9ed75ef942ed1dfd45e8b7f5d0c0d70625e58a Mon Sep 17 00:00:00 2001 From: rick Date: Wed, 17 Mar 2021 15:51:24 +0100 Subject: [PATCH] =?UTF-8?q?Ajout=20deuxi=C3=A8me=20partie?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- jour05/jour5.cob | 126 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 126 insertions(+) create mode 100644 jour05/jour5.cob diff --git a/jour05/jour5.cob b/jour05/jour5.cob new file mode 100644 index 0000000..c749e2f --- /dev/null +++ b/jour05/jour5.cob @@ -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.