Modül dersleri (1/2)
COBOL Aritmetiği
COBOL'da matematiksel işlemler, özel fiiller (ADD, SUBTRACT, MULTIPLY, DIVIDE) kullanılarak veya genel ve ifade edici COMPUTE ifadesi kullanılarak gerçekleştirilebilir.
Biçimsel Fiillerle Aritmetik İşlemler
COBOL, her temel aritmetik işlem için özel metinsel talimatlar sağlar:
1. Toplama (ADD)
Bir değişkene bir veya daha fazla değer ekler.
ADD WS-NUM-A TO WS-NUM-B.
* Equivalent to: WS-NUM-B = WS-NUM-B + WS-NUM-ASonucu, eklentileri değiştirmeden üçüncü bir değişkene kaydetmek istiyorsanız GIVING yan tümcesini kullanın:
ADD WS-NUM-A TO WS-NUM-B GIVING WS-RESULT.2. Çıkarma (SUBTRACT)
Bir değeri diğerinden çıkarır.
SUBTRACT 10 FROM WS-BALANCE.
SUBTRACT WS-TAX FROM WS-SUBTOTAL GIVING WS-TOTAL.3. Çarpma (MULTIPLY) ve Bölme (DIVIDE)
Değerleri benzer şekilde çarpın ve bölün.
MULTIPLY WS-QTY BY WS-PRICE GIVING WS-TOTAL.
DIVIDE WS-TOTAL BY WS-ITEMS GIVING WS-AVERAGE.COMPUTE Beyanı
Karmaşık matematiksel ifadeler için tek tek aritmetik fiillerin kullanılması uzun olabilir ve okunması zor olabilir. COMPUTE ifadesi, modern dillere benzer şekilde standart matematik operatörlerini (+, -, *, /, **) kullanmanıza olanak tanır.
COMPUTE WS-TOTAL = (WS-PRICE * WS-QUANTITY) - WS-DISCOUNT.Kendin dene
WS-NUM-A'yı WS-NUM-B'ye toplamak için ADD fiilini kullanarak PROSEDÜR BÖLÜMÜ içine bir ifade yazın ve sonucu WS-RESULT'ta saklayın.
İpucu göster
Sözdizimini kullanın: WS-SONUCUNU VEREN WS-NUM-A'YI WS-NUM-B'YE EKLEYİN.
3 denemeden sonra çözüm mevcut
Şu formülü uygulayarak WS-RESULT değerini hesaplamak için COMPUTE ifadesini kullanın: iki çarpı WS-NUM-A eksi WS-NUM-B.
İpucu göster
* ve - operatörlerinin etrafında boşluk kullanın: COMPUTE WS-RESULT = (WS-NUM-A * 2) - WS-NUM-B.
3 denemeden sonra çözüm mevcut