Il y a actuellement 82 visiteurs
Vendredi 30 Juillet 2021
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...
Image
Avatar de l'utilisateur
RobinSG
Moderateur
Moderateur
 
Messages: 1514
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à.
Libérez-vous : http://www.debian.org
Nobody knows what sysadmin does... until he stops doing it
Avatar de l'utilisateur
CaSa
PC-Infopraticien
PC-Infopraticien
 
Messages: 8978
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...
Libérez-vous : http://www.debian.org
Nobody knows what sysadmin does... until he stops doing it
Avatar de l'utilisateur
CaSa
PC-Infopraticien
PC-Infopraticien
 
Messages: 8978
Inscription: 13 Mai 2003 16:32
Localisation: Sisteron... et jamais loin d'une Debian
 



Sujets similaires

Message probleme ecran en veile et ordi qui tourne
jai un probleme avec mon ordi de bureau tout tourne normalement lecran marche bien et quelque jours apres en le ralument lecran reste en veil et lordi tourne bien en le demontent jai toucher un peut la carte graphique jai ralumer lordie et la sa a marcher mais quelques jours apres rebelote ecrant en ...
Réponses: 5

Message probleme age of empires 3 sur steam
Salut tout le monde depuis quelque temps lorsque je joue sur Steam avec age of empire 3 définitive édition pendant le jeu aléatoirement le jeu plante comme si ma carte graphique était soit défaillante, soit le processeur car le jeu est souvent assez lent voici le type de message que j'ai avant que t ...
Réponses: 4

Message Problème d’affichage 2e écran et tablette graphique
Bonjour à tous,Le problème est le suivant, j?ai besoin de travailler sur 2 écrans et sur une tablette graphique, le câble de mon 2e écran est en HDMI et ma tablette également. Ne possédant qu?une connectique en HDMI sur ma tour j?ai donc acheté un adaptateur HDMI pour double HDMI histoire de faire f ...
Réponses: 0

Message Lenovo yoga problème écran tactile fausses pressions
Bonjour à tous!Je possède un lenovo yoga qui a commencé à bugger depuis quelques mois... L'écran détecte des pressions de partout alors que j'y touche pas comme dans cette vidéo: https://www.youtube.com/watch?v=NKnI4hhyUqg Même si je redémarre le pc, ça recommence, le pc n'est pas en surchauffe (ça ...
Réponses: 11

Message Problème avec cette dernière mise à jour
J'essaie d'installer cette nouvelle mise à jour Windows critique depuis quelques jours maintenant et je continue à rencontrer le même problème, étant donné que cela ne le fait pas.Je vais donc installer les mises à jour et j'obtiens : Mise à jour des fonctionnalités vers Windows 10, version 20H2 Ins ...
Réponses: 3

Message Problème de micro
Bonjour à tous,Dernièrement, le micro de m webcam sur zoom ne fonctionnait pas. D'ou pourrit venir le problème?Avec les derniers Windows je ne sais même plus ou aller pour tester le micro de ma webcam. Je me souviens qu'à l'époque de skype ou msn je pouvais aller dans le menu Windonws qqprt pour fai ...
Réponses: 2

Message Pc portable samsung R730/ CM démarre/VGA ok/LCD probleme
Bonjour, Voila j'expose mon problème, J'ai un vieux PC portable samsung NP-R730 que j'ai voulu remettre en état. le problème s'est l'affichage de l'écran principale, je m'explique, la carte mère démarre sans problème et fonctionne parfaitement branché sur VGA sur un écran externe, en revanche rien o ...
Réponses: 3


Qui est en ligne

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


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