การใช้งาน if statement ในภาษา COBOL
ภาษา COBOL (Common Business-Oriented Language) เป็นหนึ่งในภาษารูปแบบเก่าแก่ที่ถูกออกแบบมาเพื่อการใช้งานทางด้านธุรกิจที่มีความต้องการคำนวณและประมวลผลข้อมูลในปริมาณมาก เช่น การคำนวณเงินเดือน, การจัดการบัญชี, และระบบจองตั๋ว เป็นต้น หนึ่งในคำสั่งพื้นฐานที่สำคัญในภาษา COBOL คือ if statement ซึ่งเป็นคำสั่งที่ใช้ในการตรวจสอบเงื่อนไขหรือทำการตัดสินใจ ทีนี่ เราจะมาดูวิธีการใช้งาน if statement ในภาษา COBOL ให้เข้าใจอย่างง่ายดาย พร้อมตัวอย่างโค้ด, การทำงาน, และการใช้งานในโลกจริง
ตัวอย่างโค้ด #1: การตรวจสอบว่าตัวเลขเป็นบวกหรือลบ
ในตัวอย่างนี้ เราจะใช้ if statement ในการตรวจสอบว่าตัวเลขที่รับเข้ามาเป็นตัวเลขบวกหรือตัวเลขลบ:
IDENTIFICATION DIVISION.
PROGRAM-ID. POSNEG-CHECK.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUMBER PIC S9(4) VALUE -100.
PROCEDURE DIVISION.
DISPLAY "CHECK IF NUMBER IS POSITIVE OR NEGATIVE".
IF NUMBER > 0 THEN
DISPLAY "NUMBER IS POSITIVE"
ELSE IF NUMBER < 0 THEN
DISPLAY "NUMBER IS NEGATIVE"
ELSE
DISPLAY "NUMBER IS ZERO"
END-IF.
STOP RUN.
การทำงาน: โปรแกรมนี้จะตรวจสอบค่าของตัวแปร NUMBER ถ้ามากกว่า 0 จะแสดงข้อความว่า "NUMBER IS POSITIVE" ถ้าน้อยกว่า 0 จะแสดงว่า "NUMBER IS NEGATIVE" และถ้าเป็น 0 จะแสดงว่า "NUMBER IS ZERO"
Use Case ในโลกจริง: การตรวจสอบเงื่อนไขแบบนี้มีประโยชน์มากในการจัดการระบบการเงิน เช่น การตรวจสอบว่าบัญชีธนาคารที่ลูกค้าใช้มียอดเงินติดลบหรือไม่ เพื่อเรียกเก็บค่าธรรมเนียมตามข้อตกลง
ตัวอย่างโค้ด #2: เปรียบเทียบยอดขายเพื่อพิจารณาโบนัส
IDENTIFICATION DIVISION.
PROGRAM-ID. SALES-BONUS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SALES-AMOUNT PIC 9(5) VALUE 15000.
01 BONUS PIC 9(3) VALUE 0.
PROCEDURE DIVISION.
DISPLAY "CHECK SALES AMOUNT FOR BONUS".
IF SALES-AMOUNT >= 20000 THEN
MOVE 500 TO BONUS
ELSE
MOVE 0 TO BONUS
END-IF.
DISPLAY "BONUS FOR THIS MONTH: ", BONUS.
STOP RUN.
การทำงาน: โค้ดนี้จะเช็คว่ายอดขาย (SALES-AMOUNT) มีค่ามากกว่าหรือเท่ากับ 20,000 หรือไม่ เพื่อทำการคำนวณโบนัส BONUS จะถูกเซ็ทเป็น 500 ถ้าเงื่อนไขเป็นจริง และเป็น 0 ถ้าไม่เป็นจริง
Use Case ในโลกจริง: การคำนวณและจ่ายโบนัสให้กับพนักงานขายตามผลการทำงานของพวกเขาในแต่ละเดือน
ตัวอย่างโค้ด #3: ตรวจสอบคุณสมบัติสำหรับการขอกู้ยืมเงิน
IDENTIFICATION DIVISION.
PROGRAM-ID. LOAN-QUALIFICATION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 APPLICANT-AGE PIC 99 VALUE 34.
01 APPLICANT-INCOME PIC 9(5) VALUE 55000.
01 LOAN-AMOUNT-REQUEST PIC 9(7) VALUE 1000000.
01 IS-QUALIFIED PIC X(3) VALUE 'NO '.
PROCEDURE DIVISION.
DISPLAY "CHECK LOAN QUALIFICATION FOR APPLICANT".
IF APPLICANT-AGE >= 21 AND APPLICANT-AGE <= 60 AND
APPLICANT-INCOME > 50000 AND
LOAN-AMOUNT-REQUEST <= (APPLICANT-INCOME * 20) THEN
MOVE 'YES' TO IS-QUALIFIED
END-IF.
DISPLAY "APPLICANT QUALIFICATION STATUS: ", IS-QUALIFIED.
STOP RUN.
การทำงาน: โค้ดนี้จะตรวจสอบว่าผู้ขอกู้มีอายุและรายได้ที่เหมาะสมตามเงื่อนไขของสินเชื่อที่ร้องขอหรือไม่ ถ้าตรงตามเงื่อนไข IS-QUALIFIED จะถูกเซ็ทเป็น 'YES'
Use Case ในโลกจริง: ใช้ในระบบธนาคารหรือสถาบันการเงินเพื่อตรวจสอบคุณสมบัติของผู้กู้ในระหว่างกระบวนการขอสินเชื่อ
สำหรับผู้ที่สนใจในการเขียนโปรแกรมและอยากเรียนรู้การใช้งาน COBOL เพื่อการประยุกต์ใช้ในงานทางด้านธุรกิจ หรือแม้แต่การพัฒนาโปรแกรมที่มีความน่าเชื่อถือและคุณภาพสูง ที่ EPT (Expert-Programming-Tutor) เรามีหลักสูตรที่จะทำให้คุณเข้าใจและสามารถใช้งานภาษาต่างๆ รวมถึง COBOL เพื่อรองรับกับความต้องการของตลาดและสามารถพัฒนาตัวคุณเองในฐานะนักพัฒนาซอฟต์แวร์มืออาชีพได้อย่างมั่นใจ!
หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง
Tag ที่น่าสนใจ: cobol if_statement programming_language business-oriented_language conditional_statements cobol_examples real-world_use_case financial_systems programming business_applications
หากมีข้อผิดพลาด/ต้องการพูดคุยเพิ่มเติมเกี่ยวกับบทความนี้ กรุณาแจ้งที่ http://m.me/Expert.Programming.Tutor
085-350-7540 (DTAC)
084-88-00-255 (AIS)
026-111-618
หรือทาง EMAIL: NTPRINTF@GMAIL.COM