Lektionen des Moduls (1/2)
COBOL-Arithmetik
In COBOL können mathematische Operationen sowohl über spezifische Verben (ADD, SUBTRACT, MULTIPLY, DIVIDE) als auch über die generische und ausdrucksstarke Anweisung COMPUTE ausgeführt werden.
Arithmetische Operationen mit formalen Verben
COBOL bietet spezifische textuelle Anweisungen für jede grundlegende arithmetische Operation:
1. Addition (ADD)
Addiert einen oder mehrere Werte zu einer Variablen.
ADD WS-NUM-A TO WS-NUM-B.
* Equivale a: WS-NUM-B = WS-NUM-B + WS-NUM-A
Wenn Sie das Ergebnis in einer dritten Variablen speichern möchten, ohne die ursprünglichen Operanden zu ändern, wird die Klausel GIVING verwendet:
ADD WS-NUM-A TO WS-NUM-B GIVING WS-RESULT.
2. Subtraktion (SUBTRACT)
Subtrahiert einen Wert von einem anderen.
SUBTRACT 10 FROM WS-BALANCE.
SUBTRACT WS-TAX FROM WS-SUBTOTAL GIVING WS-TOTAL.
3. Multiplikation (MULTIPLY) und Division (DIVIDE)
Multiplizieren und dividieren Werte auf analoge Weise.
MULTIPLY WS-QTY BY WS-PRICE GIVING WS-TOTAL.
DIVIDE WS-TOTAL BY WS-ITEMS GIVING WS-AVERAGE.
Die COMPUTE-Anweisung
Bei komplexen mathematischen Ausdrücken kann die Verwendung einzelner arithmetischer Verben lang und schwer lesbar sein. Die Anweisung COMPUTE ermöglicht die Verwendung mathematischer Standardoperatoren (+, -, *, /, ** für die Potenzierung) ähnlich wie in modernen Sprachen.
COMPUTE WS-TOTAL = (WS-PRICE * WS-QUANTITY) - WS-DISCOUNT.
Probier es selbst aus
Schreiben Sie eine Anweisung in der PROCEDURE DIVISION unter Verwendung des Verbs ADD, um WS-NUM-A zu WS-NUM-B zu addieren und das Ergebnis in WS-RESULT zu speichern.
Hinweis anzeigen
Verwenden Sie die Syntax: ADD WS-NUM-A TO WS-NUM-B GIVING WS-RESULT.
Lösung nach 3 Versuchen verfügbar
Verwenden Sie die Anweisung COMPUTE, um den Wert von WS-RESULT anzuwenden, indem Sie die Formel anwenden: das Zweifache von WS-NUM-A minus WS-NUM-B.
Hinweis anzeigen
Verwenden Sie Leerzeichen um die Operatoren * und -: COMPUTE WS-RESULT = (WS-NUM-A * 2) - WS-NUM-B.
Lösung nach 3 Versuchen verfügbar