40 lines
1.1 KiB
COBOL
40 lines
1.1 KiB
COBOL
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
|