حساب كوبول

في لغة 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 WS-TOTAL = (WS-PRICE * WS-QUANTITY) - WS-DISCOUNT.

جربه بنفسك