diff --git a/jour05/input b/jour05/input new file mode 100644 index 0000000..ab41c95 --- /dev/null +++ b/jour05/input @@ -0,0 +1,2 @@ +ugknbfddgicrmopn +jchzalrnumimnmhp diff --git a/jour05/test.cob b/jour05/test.cob new file mode 100644 index 0000000..086afce --- /dev/null +++ b/jour05/test.cob @@ -0,0 +1,39 @@ + 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 STR PIC A(17). + 01 WS-STATUS PIC X VALUE 'N'. + 88 EOF VALUE 'Y'. + + PROCEDURE DIVISION. + main. + OPEN INPUT FILE1. + PERFORM UNTIL EOF + READ FILE1 RECORD INTO MY-FILE + AT END MOVE 'Y' TO WS-STATUS + NOT AT END DISPLAY MY-FILE + END-READ + END-PERFORM. + CLOSE FILE1. + STOP RUN. + + END PROGRAM jour-cinq-prem-part. + + *deuxième étape, lire car par car + *troisième étape, check si voyelle + *retenir lettre act et pred pour check mot interdit + *retenir lettre jusqu’à double