Calcul ttc sur cobol :aidez moi svp
Fermé
airmimi59
Messages postés
13
Date d'inscription
dimanche 10 avril 2005
Statut
Membre
Dernière intervention
21 octobre 2008
-
12 oct. 2008 à 10:31
cchristian Messages postés 921 Date d'inscription lundi 21 janvier 2008 Statut Membre Dernière intervention 6 mars 2012 - 12 oct. 2008 à 18:46
cchristian Messages postés 921 Date d'inscription lundi 21 janvier 2008 Statut Membre Dernière intervention 6 mars 2012 - 12 oct. 2008 à 18:46
A voir également:
- Calcul ttc sur cobol :aidez moi svp
- Formule de calcul excel - Guide
- Calculer une note sur 20 ✓ - Forum Bureautique
- Calcul période d'essai cdi simulateur excel ✓ - Forum Excel
- Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel
- Tableau calcul masse salariale excel - Forum Excel
3 réponses
cchristian
Messages postés
921
Date d'inscription
lundi 21 janvier 2008
Statut
Membre
Dernière intervention
6 mars 2012
130
12 oct. 2008 à 13:05
12 oct. 2008 à 13:05
Bonjour,
Quelques remarques :
1) Il manque : SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
2) Une variable décrite avec une PICTURE d'édition ne peut pas être utilisée pour effectuer des calcul :
3) Utiliser pour les calculs, la virgule virtuelle pour les variables décrivant des montants (centimes d'euros)
4) PRIXTTC n'est pas défini :
5) Dans un littéral numérique, formaliser la virgule réelle pour rendre compte d'une valeur fractionnaire:
Quelques remarques :
1) Il manque : SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
2) Une variable décrite avec une PICTURE d'édition ne peut pas être utilisée pour effectuer des calcul :
77 TVA PIC Z(1),999. 77 POURCENTAGE PIC Z(8),999. MULTIPLY TVA BY PRIXHT GIVING POURCENTAGE ADD POURCENTAGE TO PRIXHT GIVING PRIXTTC
3) Utiliser pour les calculs, la virgule virtuelle pour les variables décrivant des montants (centimes d'euros)
77 PRIXHT PIC 999999V99. 77 PRIXHTTOTAL PIC 9999V99. 77 ..................................... 77 TVA PIC 9V999. 77 POURCENTAGE PIC 9(8)V999.
4) PRIXTTC n'est pas défini :
ADD POURCENTAGE TO PRIXHT GIVING PRIXTTCPar contre il peut (doit) être décrit avec une PICTURE d'édition.
77 PRIXTTC PIC Z(08)9,99.par exemple
5) Dans un littéral numérique, formaliser la virgule réelle pour rendre compte d'une valeur fractionnaire:
MOVE 0,196 TO TVA
cchristian
Messages postés
921
Date d'inscription
lundi 21 janvier 2008
Statut
Membre
Dernière intervention
6 mars 2012
130
12 oct. 2008 à 17:28
12 oct. 2008 à 17:28
(Suite)
IDENTIFICATION DIVISION.
PROGRAM-ID. EXO07.
AUTHOR. CH.
DATE-WRITTEN. 12/10/2008.
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
77 PRIXHT PIC 999999V99.
* 77 PRIXHTTOTAL PIC 9999V99.
77 ARTICLES PIC 99999.
77 TVA PIC 99V999.
77 POURCENTAGE PIC 9(4)V999.
77 PRIXTTC PIC Z(07)9,99.
LINKAGE SECTION.
PROCEDURE DIVISION.
DEBUT.
DISPLAY 'ENTREZ LE PRIX HT : ' UPON CONSOLE.
ACCEPT PRIXHT FROM CONSOLE.
DISPLAY 'ENTREZ LA QUANTITE : ' UPON CONSOLE.
ACCEPT ARTICLES FROM CONSOLE.
MULTIPLY ARTICLES BY PRIXHT.
MOVE 0,196 TO TVA.
MULTIPLY TVA BY PRIXHT GIVING POURCENTAGE.
ADD POURCENTAGE TO PRIXHT GIVING PRIXTTC.
DISPLAY 'PRIX TTC : ', PRIXTTC UPON CONSOLE.
STOP RUN.
END-PGM.
airmimi59
Messages postés
13
Date d'inscription
dimanche 10 avril 2005
Statut
Membre
Dernière intervention
21 octobre 2008
12 oct. 2008 à 18:22
12 oct. 2008 à 18:22
MERCI pour ton aide!!!
je te remercie enormement!!
a bientot j'espère!!!
Salut!!!
je te remercie enormement!!
a bientot j'espère!!!
Salut!!!
cchristian
Messages postés
921
Date d'inscription
lundi 21 janvier 2008
Statut
Membre
Dernière intervention
6 mars 2012
130
12 oct. 2008 à 18:46
12 oct. 2008 à 18:46
MERCI pour le retour, bon courage.