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


x

Interesting BlogPosts to read

How to insert bullets in to cells in Microsoft Excel ?
Do you want to insert bullets in cells of Microsoft Excel?. Here's how you can do it. How to insert ...
How to resize print area and fit to Single page in Excel 2016 ?
When you try to print a worksheet in Microsoft Excel 2016 , you may notice that the content might ov...
How to find the Created and Last Modified time in Microsoft Excel ?
You can easily find out the exact date and time when the excel workbook was created and modified usi...