Il y a actuellement 317 visiteurs
Jeudi 28 Mars 2024
accueilactualitésdossierscomparer les prixtélécharger gratuitement vos logicielsoffres d'emploiforum informatique
Connexion
Créer un compte

COBOL problème de modulo

Besoin d'aide pour configurer un serveur ? Vous souhaitez obtenir des conseils pour référencer votre site ? Un petit souci pour accéder à votre FTP ? Des soucis de programmation en PHP / ASP / HTML / XHTML / XML / XSLT / CSS / ReactJS / AngularJS / VueJS / CGI / PERL / C / MySQL / PostgreSQL ??? Nous avons peut-être la solution dans ce forum ...

COBOL problème de modulo

Message le 17 Nov 2011 15:05

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
gearsofcha
Apprenti(e) Expert(e)
Apprenti(e) Expert(e)
 
Messages: 148
Inscription: 27 Mar 2010 23:11
 


Re: COBOL problème de modulo

Message le 17 Nov 2011 17:51

Bonjour,

Pour l'indentation, il faut utiliser les balises
Code: Tout sélectionner
[code][/code]

Pour l'aide sur COBOL, je passe mon tour...
Avatar de l'utilisateur
RobinSG
Moderateur
Moderateur
 
Messages: 1509
Inscription: 29 Juin 2004 14:26
Localisation: Atys
 

Re: COBOL problème de modulo

Message le 17 Nov 2011 20:54

Je ne connais pas COBOL chui trop jeune ( :lol: ) 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à.
Avatar de l'utilisateur
CaSa
PC-Infopraticien
PC-Infopraticien
 
Messages: 9040
Inscription: 13 Mai 2003 16:32
Localisation: Sisteron... et jamais loin d'une Debian
 

Re: COBOL problème de modulo

Message le 18 Nov 2011 08:17

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
gearsofcha
Apprenti(e) Expert(e)
Apprenti(e) Expert(e)
 
Messages: 148
Inscription: 27 Mar 2010 23:11
 

Re: COBOL problème de modulo

Message le 18 Nov 2011 09:55

gearsofcha a écrit: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...
Avatar de l'utilisateur
CaSa
PC-Infopraticien
PC-Infopraticien
 
Messages: 9040
Inscription: 13 Mai 2003 16:32
Localisation: Sisteron... et jamais loin d'une Debian
 



Sujets similaires

Message Problème avec la KB5034441
Bonjour,Certains ont du rencontrer ce problème avec cette mise à jour qui a bien du mal à passer.Je viens de recevoir ce correctif proposé par Microsoft :ICI.Je vous le dit de suite personnellement si j'étais dans le même cas que vous j'attendrai une réelle mise à jour mise en place par Microsoft.Je ...
Réponses: 12

Message encore un probleme mise à jour windows KB5001716
Salut à vous cela commence, j'avoue, à devenir pénible, j'en suis désolé, mais ce soir au 5 mars 2024 est apparu un nouveau problème sur Windows update la mise à jour KB5001716 ne veut pas s'installer, j'ai eu beau redémarrer mon pc pour voir si cela pouvait fonctionner rien à faire cette mise à jou ...
Réponses: 28

Message [Réglé] problème de barre inexistante sur pc portable asus
Bonjour,Depuis hier, en allumant mon pc portable asus modèle F 402 S, il bloque sur le bureau, je n'ai plus la barre de tâches donc les icônes à côté de l'heure comme avant et la souris fait un rond et impossible de cliquer et d'ouvrir des fichiers ou d'aller sur internet c'est bizarre, est-ce une ...
Réponses: 9

Message probleme avec le nouvel Outlook !
Bonjour,à la maison, nous nous partageons 7 adresses : outlook.fr, orange.fr, live.fr, libello.com, hotmail.com et 2 gmail.com.Tout était parfait jusqu'au moment où le nouvel OUTLOOK s'est imposé.Là, un seul compte a survécu, @outlook.fr, impossible d'afficher les 6 autres !Quand on ouvre la message ...
Réponses: 5

Message Konrow City 4 - Probleme de place...
Bonjour à toutes et tousJe sais que mon tél est un bas de gamme mais je n'ai pas besoin de plus..., si ce n'est un peu de place...https://konrow.com/products/city4 avec Android? 11 (édition GO)...Mon souci est que sur le mien, la carte interne est presque pleine alors que je n'ai "presque" ...
Réponses: 2

Message Problème de son quand je joue (windows ok)
Merci mais cela ne donne rien...Je vais peut-être reformater windows car ce "bug" est arrivé du jour au lendemain...
Réponses: 15

Message [Réglé] probleme messagerie ORANGE
Bonjour,J'utilise Orange depuis 25 ans en messagerie.Depuis 2 jours je ne parvient plus a y acceder avec mon ordinateur.En fait lorsque j'ouvre la page d'accueil pour aller voir mes emails, au lieu d'avoir la page sur laquelle je dois entrer mon adresse email et mon mot de passe j'ai une page me dis ...
Réponses: 45


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 4 invités


.: Nous contacter :: Flux RSS :: Données personnelles :.