« COBOL/Opérations sur les chaînes » : différence entre les versions
Contenu supprimé Contenu ajouté
catégorisation - Modif. navigateur chapitre |
→Conversion de caractères : ajout d'un exemple |
||
Ligne 28 :
INSPECT s CONVERTING "aeiouy" TO "AEIOUY"
===Exemple : Jeu du pendu===
Et voici un programme complet illustrant cette instruction : le jeu du pendu dans lequel vous devez deviner les lettres d'un mot (ici, "mammouth").
* IDENTIFICATION DIVISION.
* PROGRAM-ID. pendu.
*
* DATA DIVISION.
* WORKING-STORAGE SECTION.
* 77 chaine PIC X(20) VALUE "mammouth".
* 77 chaine-c PIC X(20).
* 77 lettres PIC X(26) VALUE "azertyuiopqsdfghjklmwxcvbn".
* 77 lettres-p PIC X(26) VALUE ALL "_".
* 77 char PIC X.
*
* PROCEDURE DIVISION.
* pendu.
* MOVE chaine TO chaine-c.
* INSPECT chaine-c CONVERTING lettres TO lettres-p.
* DISPLAY chaine-c.
* PERFORM TEST AFTER UNTIL chaine = chaine-c
* ACCEPT char
* INSPECT lettres CONVERTING char TO "_"
* MOVE chaine TO chaine-c
* INSPECT chaine-c CONVERTING lettres TO lettres-p
* DISPLAY chaine-c
* END-PERFORM.
* STOP RUN.
* END PROGRAM pendu.
==Concaténation de chaînes de caractères==
| |||