Pelajaran modul (1/2)
Aritmatika COBOL
Dalam COBOL, operasi matematika dapat dilakukan baik menggunakan kata kerja khusus (ADD, SUBTRACT, MULTIPLY, DIVIDE) atau menggunakan pernyataan COMPUTE yang umum dan ekspresif.
Operasi Aritmatika dengan Kata Kerja Formal
COBOL memberikan instruksi tekstual spesifik untuk setiap operasi aritmatika dasar:
1. Tambahan (ADD)
Menambahkan satu atau lebih nilai ke variabel.
ADD WS-NUM-A TO WS-NUM-B.
* Equivalent to: WS-NUM-B = WS-NUM-B + WS-NUM-AJika Anda ingin menyimpan hasilnya dalam variabel ketiga tanpa mengubah tambahannya, gunakan klausa GIVING:
ADD WS-NUM-A TO WS-NUM-B GIVING WS-RESULT.2. Pengurangan (SUBTRACT)
Mengurangi satu nilai dari nilai lainnya.
SUBTRACT 10 FROM WS-BALANCE.
SUBTRACT WS-TAX FROM WS-SUBTOTAL GIVING WS-TOTAL.3. Perkalian (MULTIPLY) dan Pembagian (DIVIDE)
Lipat gandakan dan bagi nilai dengan cara yang sama.
MULTIPLY WS-QTY BY WS-PRICE GIVING WS-TOTAL.
DIVIDE WS-TOTAL BY WS-ITEMS GIVING WS-AVERAGE.Pernyataan PERHITUNGAN
Untuk ekspresi matematika yang kompleks, penggunaan kata kerja aritmatika individual bisa memakan waktu lama dan sulit dibaca. Pernyataan COMPUTE memungkinkan Anda menggunakan operator matematika standar (+, -, *, /, ** untuk eksponensial) mirip dengan bahasa modern.
COMPUTE WS-TOTAL = (WS-PRICE * WS-QUANTITY) - WS-DISCOUNT.Cobalah sendiri
Tulis pernyataan di dalam PROSEDUR DIVISI menggunakan kata kerja ADD untuk menjumlahkan WS-NUM-A ke WS-NUM-B dan menyimpan hasilnya di WS-RESULT.
Tunjukkan petunjuk
Gunakan sintaksis: TAMBAHKAN WS-NUM-A KE WS-NUM-B MEMBERIKAN HASIL WS.
Solusi tersedia setelah 3 upaya
Gunakan pernyataan COMPUTE untuk menghitung nilai WS-RESULT dengan menggunakan rumus: dua kali WS-NUM-A dikurangi WS-NUM-B.
Tunjukkan petunjuk
Gunakan spasi di sekitar operator * dan -: COMPUTE WS-RESULT = (WS-NUM-A * 2) - WS-NUM-B.
Solusi tersedia setelah 3 upaya