fork download
copy 
  1. 000100 IDENTIFICATION DIVISION.
  2. 000200 PROGRAM-ID. CASHREG.
  3. 000300 ENVIRONMENT DIVISION.
  4. 000400 DATA DIVISION.
  5. 000500 WORKING-STORAGE SECTION.
  6. 000600 01 ITEM-NAME      PIC X(20).
  7. 000700 01 QTY            PIC 9(4).
  8. 000800 01 UNIT-PRICE     PIC 9(6).
  9. 000900 01 SUBTOTAL       PIC 9(8).
  10. 001000 01 TAX            PIC 9(8).
  11. 001100 01 TOTAL          PIC 9(8).
  12. 001200 PROCEDURE DIVISION.
  13. 001300     DISPLAY "INPUT ITEM NAME:"
  14. 001400     ACCEPT ITEM-NAME
  15. 001500     DISPLAY "INPUT QUANTITY:"
  16. 001600     ACCEPT QTY
  17. 001700     DISPLAY "INPUT UNIT PRICE:"
  18. 001800     ACCEPT UNIT-PRICE
  19. 001900
  20. 002000     COMPUTE SUBTOTAL = QTY * UNIT-PRICE
  21. 002100     COMPUTE TAX = SUBTOTAL * 0.10
  22. 002200     COMPUTE TOTAL = SUBTOTAL + TAX
  23. 002300
  24. 002400     DISPLAY "ITEM      : " ITEM-NAME
  25. 002500     DISPLAY "SUBTOTAL  : " SUBTOTAL
  26. 002600     DISPLAY "TAX(10%)  : " TAX
  27. 002700     DISPLAY "TOTAL     : " TOTAL
  28. 002800
  29. 002900     STOP RUN.
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin
copy 
APPLE
3
120
stdout
copy 
INPUT ITEM NAME:
INPUT QUANTITY:
INPUT UNIT PRICE:
ITEM      : APPLE               
SUBTOTAL  : 00000360
TAX(10%)  : 00000036
TOTAL     : 00000396
https://ideone.com/FXPyYz
language:
Cobol (gnucobol 2.2.0)
created:
11 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!