fork download
copy 
  1. 000100 IDENTIFICATION DIVISION.
  2. 000200 PROGRAM-ID. CASH-REGISTER.
  3. 000300
  4. 000400 DATA DIVISION.
  5. 000500 WORKING-STORAGE SECTION.
  6. 000600 01  WS-INPUT.
  7. 000700     05  WS-ITEM-NAME  PIC X(20).
  8. 000800     05  WS-QUANTITY   PIC 9(4).
  9. 000900     05  WS-UNIT-PRICE PIC 9(6).
  10. 001000
  11. 001100 01  WS-CALC.
  12. 001200     05  WS-SUBTOTAL   PIC 9(9).
  13. 001300     05  WS-TAX        PIC 9(8).
  14. 001400     05  WS-TOTAL      PIC 9(9).
  15. 001500
  16. 001600 01  WS-OUTPUT.
  17. 001700     05  OUT-ITEM-NAME PIC X(20).
  18. 001800     05  OUT-SUBTOTAL  PIC ZZZ,ZZZ,ZZ9.
  19. 001900     05  OUT-TAX       PIC ZZZ,ZZZ,ZZ9.
  20. 002000     05  OUT-TOTAL     PIC ZZZ,ZZZ,ZZ9.
  21. 002100
  22. 002200 PROCEDURE DIVISION.
  23. 002300 MAIN-PROCEDURE.
  24. 002400* 標準入力から商品名、数量、単価を読み込み
  25. 002500     ACCEPT WS-ITEM-NAME
  26. 002600     ACCEPT WS-QUANTITY
  27. 002700     ACCEPT WS-UNIT-PRICE
  28. 002800
  29. 002900* 計算処理 (消費税 10%)
  30. 003000     MULTIPLY WS-QUANTITY BY WS-UNIT-PRICE GIVING WS-SUBTOTAL
  31. 003100     MULTIPLY WS-SUBTOTAL BY 0.10 GIVING WS-TAX
  32. 003200     ADD WS-SUBTOTAL WS-TAX GIVING WS-TOTAL
  33. 003300
  34. 003400* 編集用変数への代入（ゼロサプレス処理など）
  35. 003500     MOVE WS-ITEM-NAME TO OUT-ITEM-NAME
  36. 003600     MOVE WS-SUBTOTAL  TO OUT-SUBTOTAL
  37. 003700     MOVE WS-TAX       TO OUT-TAX
  38. 003800     MOVE WS-TOTAL     TO OUT-TOTAL
  39. 003900
  40. 004000* 結果の表示（英数字）
  41. 004100     DISPLAY "ITEM NAME: " OUT-ITEM-NAME
  42. 004200     DISPLAY "SUBTOTAL : " OUT-SUBTOTAL
  43. 004300     DISPLAY "TAX (10%): " OUT-TAX
  44. 004400     DISPLAY "TOTAL    : " OUT-TOTAL
  45. 004500
  46. 004600     STOP RUN.
  47.  
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
Apple
5
150
stdout
copy 
ITEM NAME: Apple               
SUBTOTAL :         750
TAX (10%):          75
TOTAL    :         825
https://ideone.com/aZeM5b
language:
Cobol (gnucobol 2.2.0)
created:
3 days 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!