From 1f25b3f0408302c08850e856d8c7dc0d01191e69 Mon Sep 17 00:00:00 2001 From: rick Date: Sun, 7 Mar 2021 15:07:19 +0100 Subject: [PATCH] =?UTF-8?q?D=C3=A9bug=20&=20Ajout=20de=20commentaires=20JP?= =?UTF-8?q?P=20j=E2=80=99avais=20juste=20mal=20lu=20l=E2=80=99=C3=A9nonc?= =?UTF-8?q?=C3=A9.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- jour05/{test.cob => jour5-prem.cob} | 25 ++++++++++++++++++++----- 1 file changed, 20 insertions(+), 5 deletions(-) rename jour05/{test.cob => jour5-prem.cob} (76%) diff --git a/jour05/test.cob b/jour05/jour5-prem.cob similarity index 76% rename from jour05/test.cob rename to jour05/jour5-prem.cob index 20fa859..b86fd97 100644 --- a/jour05/test.cob +++ b/jour05/jour5-prem.cob @@ -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.