שיעורי מודול (1/2)
אריתמטיקה של COBOL
ב-COBOL, ניתן לבצע פעולות מתמטיות או באמצעות פעלים ייעודיים (ADD, SUBTRACT, MULTIPLY, DIVIDE) או באמצעות ההצהרה הגנרית והאקספרסיבית COMPUTE.
פעולות אריתמטיות עם פעלים פורמליים
COBOL מספק הוראות טקסטואליות ספציפיות עבור כל פעולה אריתמטית בסיסית:
1. הוספה (ADD)
מוסיף ערך אחד או יותר למשתנה.
ADD WS-NUM-A TO WS-NUM-B.
* Equivalent to: WS-NUM-B = WS-NUM-B + WS-NUM-Aאם ברצונך לשמור את התוצאה במשתנה שלישי מבלי לשנות את התוספות, השתמש בסעיף GIVING:
ADD WS-NUM-A TO WS-NUM-B GIVING WS-RESULT.2. חיסור (SUBTRACT)
מוריד ערך אחד ממשנהו.
SUBTRACT 10 FROM WS-BALANCE.
SUBTRACT WS-TAX FROM WS-SUBTOTAL GIVING WS-TOTAL.3. כפל (MULTIPLY) וחילוק (DIVIDE)
הכפל וחלק ערכים בצורה דומה.
MULTIPLY WS-QTY BY WS-PRICE GIVING WS-TOTAL.
DIVIDE WS-TOTAL BY WS-ITEMS GIVING WS-AVERAGE.הצהרת COMPUTE
עבור ביטויים מתמטיים מורכבים, שימוש בפעלים חשבון בודדים יכול להיות ארוך וקשה לקריאה. ההצהרה COMPUTE מאפשרת לך להשתמש באופרטורים מתמטיים סטנדרטיים (+, -, *, /, + בדומה לשפות מודרניות.
COMPUTE WS-TOTAL = (WS-PRICE * WS-QUANTITY) - WS-DISCOUNT.נסה זאת בעצמך
כתוב משפט בתוך PROCEDURE DIVISION באמצעות הפועל ADD כדי לסכם את WS-NUM-A ל-WS-NUM-B ואחסן את התוצאה ב-WS-RESULT.
הצג רמז
השתמש בתחביר: ADD WS-NUM-A TO WS-NUM-B GIVING WS-RESULT.
הפתרון זמין לאחר 3 ניסיונות
השתמש במשפט COMPUTE כדי לחשב את הערך של WS-RESULT תוך יישום הנוסחה: פעמיים WS-NUM-A פחות WS-NUM-B.
הצג רמז
השתמש ברווחים סביב האופרטורים * ו-: COMPUTE WS-RESULT = (WS-NUM-A * 2) - WS-NUM-B.
הפתרון זמין לאחר 3 ניסיונות