COBOL problème de modulo

[gearsofcha]

Salut à tous,

Voila je dois réaliser un petit exo de rien du tout en programmation cobol mais j'ai un petit problème

Je ne sais pas faire de modulo pourtant j'utilise la fonction :

Code: Tout sélectionner

  IDENTIFICATION DIVISION.
       PROGRAM-ID. X-A.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
       CLASS ALPHABETIK IS "a" thru "z";"A" thru "Z"
       CLASS NUMERIK IS "0" thru "9".

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 ENTRER PIC x.
       77 MODULO PIC 9.

       PROCEDURE DIVISION.

            DISPLAY "Entrez un caractere".
            ACCEPT ENTRER.
      
            IF ENTRER IS ALPHABETIK
            THEN DISPLAY ENTRER " est une LETTRE" WITH NO
               ADVANCING
            
               IF ENTRER IS ALPHABETIC-LOWER
               THEN DISPLAY " minuscule, donc caractere ALPHABETIQUE"
               END-IF
            
               IF ENTRER IS ALPHABETIC-UPPER
               THEN DISPLAY " majuscule, donc caractere ALPHABETIQUE"
               END-IF
            
            END-IF.
            
            
            IF ENTRER IS NUMERIK
            THEN DISPLAY ENTRER " est un CHIFFRE" WITH NO ADVANCING

               COMPUTE MODULO = FUNCTION MOD(ENTRER 2). [color=#FF0000]il me met une erreur ici[/color]

               IF ENTRER = '0'
               THEN DISPLAY ENTRER " est un CHIFFRE qui est 0 donc"
               "3caractere NUMERIQUE"
               END-IF.
            
               IF MODULO = '0'
               THEN DISPLAY " pair, donc caractere NUMERIQUE"
               END-IF[color=#FF0000]il me met une erreur ici[/color]

            
               ELSE
               THEN DISPLAY " impair, donc caractere NUMERIQUE"
               END-IF[color=#FF0000]il me met une erreur ici[/color]

            
            END-IF.
            
            
            IF ENTRER IS (NOT ALPHABETIK) AND (NOT NUMERIK)
            THEN DISPLAY "Ceci n'est ni une lettre, ni un chiffre !!!"
            END-IF.

           

            STOP RUN.

Désolé pour l'indentation mais elle veut pas ce faire je ne sais pas pour quoi

Voila j'ai regardé sur internet pour trouver une solution mais je ne trouve pas :(

En espérant que vous pouvez m'aider

merci

[RobinSG]

Bonjour,

Pour l'indentation, il faut utiliser les balises

Code: Tout sélectionner

[code][/code]

Pour l'aide sur COBOL, je passe mon tour...

[CaSa]

Je ne connais pas COBOL chui trop jeune ( ) et c'est un peu retour vers le futur... mais j'ai une grande interrogation : pourquoi à la fin de certaines lignes/instructions il y a un point, et pour certaines non ?

J'ai un doute sur le respect de la syntaxe du langage... (après tout, c'est PHP qui a inventé l'anarchie dans la programmation, pas COBOL). Les erreurs pourraient déjà venir de là.

[gearsofcha]

Salut à tous,

lol tu sais je n'ai que 20 ans et je suis en train de faire un bachelier en informatique de gestion (ici en Belgique c'est un BAC info).

C'est vrai que c'est un vieux langage mais encore très utilisé dans certains domaines.

Pourquoi il y a des fois des . en fin de phrase et dans d'autre non , bha j'ai demandé à mon prof et il m'a dit que c'est la syntaxe de cobol.

ex:

C ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
CLASS ALPHABETIK IS "a" thru "z";"A" thru "Z"
CLASS NUMERIK IS "0" thru "9".


--> on met un point à la dernière class introduite et pas aux précédentes.
C'est comme dans les conditions if --> on met un point à la fermeture de la condition principal et non dans les imbriquées

je sais c'est bizarre mais c'est plaisant je trouves.

++ et bonne journée

[CaSa]

C'est comme dans les conditions if --> on met un point à la fermeture de la condition principal et non dans les imbriquées

Hé bien justement, relis ton code c'est pas respecté de cette manière là dans les IF sur lesquels tu as des erreurs...