Pelajaran modul (1/2)
Aritmatika COBOL
In COBOL, mathematical operations can be performed either using dedicated verbs (ADD, SUBTRACT, MULTIPLY, DIVIDE) or using the generic and expressive COMPUTE statement.
Arithmetic Operations with Formal Verbs
COBOL provides specific textual instructions for each basic arithmetic operation:
1. Addition (ADD)
Adds one or more values to a variable.
ADD WS-NUM-A TO WS-NUM-B.
* Equivalent to: WS-NUM-B = WS-NUM-B + WS-NUM-A
If you want to save the result in a third variable without modifying the addends, use the GIVING clause:
ADD WS-NUM-A TO WS-NUM-B GIVING WS-RESULT.
2. Subtraction (SUBTRACT)
Subtracts one value from another.
SUBTRACT 10 FROM WS-BALANCE.
SUBTRACT WS-TAX FROM WS-SUBTOTAL GIVING WS-TOTAL.
3. Multiplication (MULTIPLY) and Division (DIVIDE)
Multiply and divide values in a similar fashion.
MULTIPLY WS-QTY BY WS-PRICE GIVING WS-TOTAL.
DIVIDE WS-TOTAL BY WS-ITEMS GIVING WS-AVERAGE.
The COMPUTE Statement
For complex mathematical expressions, using individual arithmetic verbs can be long and difficult to read. The COMPUTE statement allows you to use standard mathematical operators (+, -, *, /, ** for exponentiation) similar to modern languages.
COMPUTE WS-TOTAL = (WS-PRICE * WS-QUANTITY) - WS-DISCOUNT.
Try it yourself
Write a statement inside the PROCEDURE DIVISION using the ADD verb to sum WS-NUM-A to WS-NUM-B and store the result in WS-RESULT.
Tunjukkan petunjuk
Use the syntax: ADD WS-NUM-A TO WS-NUM-B GIVING WS-RESULT.
Solusi tersedia setelah 3 upaya
Use the COMPUTE statement to calculate the value of WS-RESULT applying the formula: two times WS-NUM-A minus WS-NUM-B.
Tunjukkan petunjuk
Use spaces around the * and - operators: COMPUTE WS-RESULT = (WS-NUM-A * 2) - WS-NUM-B.
Solusi tersedia setelah 3 upaya