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(30).
  7. 000700 01  QUANTITY         PIC 9(5).
  8. 000800 01  UNIT-PRICE       PIC 9(7)V99.
  9. 000900 01  SUBTOTAL         PIC 9(9)V99.
  10. 001000 01  TAX              PIC 9(9)V99.
  11. 001100 01  TOTAL            PIC 9(9)V99.
  12. 001200 
  13. 001300 PROCEDURE DIVISION.
  14. 001400 MAIN-SECTION.
  15. 001500     DISPLAY "INPUT ITEM NAME:".
  16. 001600     ACCEPT ITEM-NAME.
  17. 001700 
  18. 001800     DISPLAY "INPUT QUANTITY:".
  19. 001900     ACCEPT QUANTITY.
  20. 002000 
  21. 002100     DISPLAY "INPUT UNIT PRICE:".
  22. 002200     ACCEPT UNIT-PRICE.
  23. 002300 
  24. 002400     COMPUTE SUBTOTAL = QUANTITY * UNIT-PRICE.
  25. 002500     COMPUTE TAX = SUBTOTAL * 0.10.
  26. 002600     COMPUTE TOTAL = SUBTOTAL + TAX.
  27. 002700 
  28. 002800     DISPLAY "----- RESULT -----".
  29. 002900     DISPLAY "ITEM: " ITEM-NAME.
  30. 003000     DISPLAY "QTY : " QUANTITY.
  31. 003100     DISPLAY "PRICE: " UNIT-PRICE.
  32. 003200     DISPLAY "SUBTOTAL: " SUBTOTAL.
  33. 003300     DISPLAY "TAX(10%): " TAX.
  34. 003400     DISPLAY "TOTAL   : " TOTAL.
  35. 003500 
  36. 003600     STOP RUN.
Success #stdin #stdout 0s 5312KB
comments (?)
stdin
copy 
APPLE
3
120
stdout
copy 
INPUT ITEM NAME:
INPUT QUANTITY:
INPUT UNIT PRICE:
----- RESULT -----
ITEM: APPLE                         
QTY : 00003
PRICE: 0000120.00
SUBTOTAL: 000000360.00
TAX(10%): 000000036.00
TOTAL   : 000000396.00
https://ideone.com/LjPLna
language:
Cobol (gnucobol 2.2.0)
created:
16 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!