💡 Calcul du prix TTC avec COBOL

Dans ce programme, vous allez apprendre à additionner un tarif hors taxe (TARIF-HT) et une taxe sur la valeur ajoutée (TVA) pour obtenir un prix toutes taxes comprises (PRIX-TTC).


IDENTIFICATION DIVISION.
PROGRAM-ID. CALCUL-TTC.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 TARIF-HT    PIC 9(5)V99 VALUE 100.00.
01 TVA         PIC 9(5)V99 VALUE 20.00.
01 PRIX-TTC    PIC 9(5)V99 VALUE 0.00.

PROCEDURE DIVISION.
    ADD TARIF-HT TO TVA GIVING PRIX-TTC
    DISPLAY "Le prix TTC est de : " PRIX-TTC
    STOP RUN.

Déclaration de la division d’identification.
Nom du programme principal : CALCUL-TTC.
Ligne vide pour lisibilité.
Début de la division des données.
Début de la section de stockage des variables.
Déclaration de la variable TARIF-HT avec deux décimales.
Déclaration de la variable TVA avec deux décimales.
Déclaration de la variable PRIX-TTC qui contiendra le résultat.
Ligne vide pour lisibilité.
Début de la section d'exécution du programme.
Instruction d’addition avec stockage dans PRIX-TTC.
Affichage du résultat à l’écran.
Fin du programme.

Téléchargez le code source : 🔍 Voir dans un nouvel onglet | 📥 Télécharger le fichier