COBOL Lab Program – Evaluate the equation Z = (A -B) * C .

Introduction

This COBOL lab program demonstrates how to evaluate the equation Z = (A – B) * C using the Compute verb in COBOL

Program

IDENTIFICATION DIVISION.
PROGRAM-ID. GINK1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 Z     PIC +(10).Z(2).
77 A     PIC S9(6)V9(4).
77 B     PIC S9(6)V9(4).
77 C     PIC S9(6)V9(4).
PROCEDURE DIVISION.
MAIN-PARA.
    DISPLAY "ENTER THE INPUT DATA".
    ACCEPT A.
    ACCEPT B.
    ACCEPT C.
    COMPUTE Z = (A - B) * C.
    DISPLAY "Z = ", Z.
    STOP RUN.

If you enjoyed this post, please consider leaving a comment or subscribing to the RSS feed to have future articles delivered to your feed reader.

Leave a Reply