การใช้งาน numberic variable ในภาษา COBOL แบบง่ายๆ พร้อมตัวอย่าง CODE 3 ตัวอย่าง และอธิบายการทำงาน และยกตัวอย่าง usecase ในโลกจริง

การในงานตัวแปรชนิดเลข (numeric variables) ในภาษา COBOL เป็นหัวใจสำคัญในการพัฒนาโปรแกรมที่ต้องจัดการกับข้อมูลทางการเงิน, บัญชี, หรือธุรกรรมที่ต้องการความแม่นยำสูงในเรื่องตัวเลข ในบทความนี้เราจะพูดถึงการใช้งานตัวแปรชนิดเลขใน COBOL อย่างง่ายดาย พร้อมด้วยตัวอย่างโค้ด 3 ตัวอย่าง และอธิบายการทำงาน รวมถึงยกตัวอย่าง use case ในโลกจริงที่ใช้งานต่อไปนี้เพื่อช่วยให้คุณเข้าใจว่าทำไมการเรียนรู้ภาษา COBOL จึงเป็นสิ่งสำคัญและเปิดโอกาสให้คุณได้เข้าสู่โลกแห่งการเขียนโปรแกรมทางการค้าและธุรกิจ สิ่งนี้อาจนำคุณเข้าสู่การเรียนรู้ภาษา COBOL ที่ EPT หรือสถาบันการศึกษาอื่นที่มีคุณภาพได้

ตัวอย่าง 1: การกำหนดค่าเริ่มต้นสำหรับตัวแปร Numeric

IDENTIFICATION DIVISION.
PROGRAM-ID. VAR-EXAMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
77 NUM-VAR PIC 9(05) VALUE 12345.

PROCEDURE DIVISION.
    DISPLAY "NUM-VAR: " NUM-VAR.
    STOP RUN.

ในตัวอย่างนี้ `NUM-VAR` เป็นตัวแปรชนิดเลขที่ประกาศไว้ว่ามีขนาด 5 ตัวเลขและมีค่าเริ่มต้นคือ 12345. คำสั่ง `DISPLAY` นำไปแสดงผลค่าของ `NUM-VAR` ซึ่งเป็น 12345.

ตัวอย่าง 2: การคำนวณเลขทศนิยม

IDENTIFICATION DIVISION.
PROGRAM-ID. DECIMAL-CALC.

DATA DIVISION.
WORKING-STORAGE SECTION.
77 FLOAT-VAR PIC 9(04)V99 VALUE 1234.56.

PROCEDURE DIVISION.
    COMPUTE FLOAT-VAR = FLOAT-VAR + 0.01.
    DISPLAY "FLOAT-VAR: " FLOAT-VAR.
    STOP RUN.

ตัวแปร `FLOAT-VAR` เป็นตัวแปรชนิดเลขที่สามารถประมวลผลทศนิยมได้โดยใช้ตัว `V` เป็นตัวแทนที่ศูนย์ทศนิยม. `COMPUTE` คือคำสั่งในการทำการคำนวณ. ในตัวอย่างนี้ เราเพิ่มค่า `FLOAT-VAR` ด้วย 0.01 และจากนั้นก็แสดงออกมา.

ตัวอย่าง 3: การจัดการกับการเรียงลำดับตัวเลข

IDENTIFICATION DIVISION.
PROGRAM-ID. SORT-NUMBERS.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT NUMBERS-FILE ASSIGN TO "NUMBERS.DAT".

DATA DIVISION.
FILE SECTION.
FD NUMBERS-FILE.
01 NUMBER-RECORDS.
    05 NUMBER PIC 9(05).

WORKING-STORAGE SECTION.
77 TOTAL-NUMBERS PIC 9(05) VALUE ZERO.

PROCEDURE DIVISION.
    OPEN INPUT NUMBERS-FILE.
    READ NUMBERS-FILE INTO NUMBER-RECORDS AT END MOVE "99999" TO NUMBER.
    PERFORM UNTIL NUMBER = "99999"
        ADD 1 TO TOTAL-NUMBERS
        READ NUMBERS-FILE INTO NUMBER-RECORDS AT END MOVE "99999" TO NUMBER
    END-PERFORM.
    CLOSE NUMBERS-FILE.
    DISPLAY "Total NUMBER: " TOTAL-NUMBERS.
    STOP RUN.

ในตัวอย่างนี้เราเปิดไฟล์ที่มีตัวเลขและนำค่าต่างๆมานับเพื่อหาค่ารวมโดยใช้ `READ` และ `PERFORM UNTIL`. ค่าพิเศษ `"99999"` ใช้เป็นตัวบ่งชี้ว่าได้ถึงสิ้นสุดไฟล์.

Use Case ในโลกจริง

ในโลกธุรกิจ, COBOL มักใช้ในระบบการธนาคาร, ระบบประกันภัย, และโปรแกรมบัญชีอื่นๆ เช่น ระบบที่ใช้ในการคำนวณดอกเบี้ย, การเงินรอบธนาคาร, หรือการจัดการฐานข้อมูลลูกค้า.

การศึกษา COBOL ไม่เพียงเป็นการเรียนรู้ภาษาโปรแกรมมิ่งที่เสริมทักษะสำหรับการทำงานในอุตสาหกรรมเหล่านี้เท่านั้น แต่ยังเป็นการเปิดโอกาสให้เข้าใจระบบซอฟต์แวร์ที่มีอายุยาวนานและยังคงเป็นหัวใจหลักของระบบธุรกิจชั้นนำหลายรายในปัจจุบัน

เพื่อเรียนรู้การใช้งานตัวแปรชนิดเลขในภาษา COBOL และกรณีการใช้งานจริงในธุรกิจ หากคุณมีความสนใจและอยากขั้นตอนการเรียนรู้ด้วยคำแนะนำที่เป็นระบบและมีประสิทธิภาพ อย่าลังเลที่จะเข้าร่วมการเรียนรู้กับเราที่ EPT ที่นี่ คุณจะได้พบกับหลักสูตรที่ครอบคลุม และผู้สอนที่มีประสบการณ์พร้อมจะแนะนำคุณเข้าสู่โลกของ COBOL และทักษะการเขียนโปรแกรมธุรกิจที่คุณจะได้มีโอกาสนำไปสู่การพัฒนาอาชีพของคุณ.

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง