การใช้งาน Loop และ If-Else Inside Loop ในภาษา COBOL

ภาษา COBOL (Common Business-Oriented Language) เป็นหนึ่งในภาษาโปรแกรมที่มีความสำคัญในวงการธุรกิจ ตั้งแต่การจัดการฐานข้อมูล ไปจนถึงการสร้างโปรแกรมที่ซับซ้อน ในบทความนี้เราจะมาดูการใช้งาน Loop และ If-Else ภายใน Loop แบบง่าย ๆ พร้อมกับตัวอย่างโค้ดที่จะทำให้เข้าใจลักษณะการทำงานได้ดียิ่งขึ้น

Loop ใน COBOL

Loop ในภาษา COBOL เป็นวิธีการทำซ้ำคำสั่งเพื่อให้สามารถดำเนินการตามเงื่อนไขที่กำหนดไว้ ซึ่งจะประกอบไปด้วยคำสั่งที่ชื่อว่า PERFORM หรือ วงจร DO/END-DO ซึ่งจะช่วยให้คุณสามารถควบคุมการทำงานของโปรแกรมได้อย่างมีประสิทธิภาพ

If-Else ใน COBOL

แม้ว่า COBOL จะไม่เป็นที่รู้จักในเรื่องของการทำงานแบบ Conditional มากนัก แต่มันก็มีเครื่องมือที่ช่วยให้เราสามารถสร้างเงื่อนไขการทำงานได้ โดยใช้คำสั่ง IF...ELSE ซึ่งจะเป็นเครื่องมือที่ไม่มีถอยหลังในการตัดสินใจในการทำงาน

ตัวอย่างโค้ด

ในตัวอย่างนี้ เราจะสร้างโปรแกรม COBOL ที่จะคำนวณเกรดของนักเรียน โดยใช้ Loop และ If-Else เราจะให้ผู้ใช้กรอกคะแนนและโปรแกรมจะคำนวณเกรดให้อัตโนมัติ

        IDENTIFICATION DIVISION.
       PROGRAM-ID. GradeCalculator.

       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  Score        PIC 9(3).
       01  Grade        PIC A.
       01  ContinueFlag PIC X.

       PROCEDURE DIVISION.
           DISPLAY "----- Grade Calculator -----"
           DISPLAY "Enter grade (0-100): "
           ACCEPT Score

           PERFORM UNTIL Score < 0 OR Score > 100
               IF Score >= 90 THEN
                   MOVE 'A' TO Grade
               ELSE IF Score >= 80 THEN
                   MOVE 'B' TO Grade
               ELSE IF Score >= 70 THEN
                   MOVE 'C' TO Grade
               ELSE IF Score >= 60 THEN
                   MOVE 'D' TO Grade
               ELSE
                   MOVE 'F' TO Grade
               END-IF

               DISPLAY "Your grade is: " Grade
               DISPLAY "Do you want to continue? (Y/N): "
               ACCEPT ContinueFlag
               IF ContinueFlag = 'Y' OR ContinueFlag = 'y' THEN
                   DISPLAY "Enter grade (0-100): "
                   ACCEPT Score
               ELSE
                   MOVE 'N' TO ContinueFlag
               END-IF
           END-PERFORM.

           DISPLAY "Thank you for using the Grade Calculator!"
           STOP RUN.

การทำงานของโค้ด

Use Case ในโลกจริง

การใช้งาน Loop และ If-Else ในภาษา COBOL มีความสำคัญมาก โดยเฉพาะในระบบการศึกษา การให้คะแนนแก่นักเรียน เป็นกระบวนการที่ซับซ้อนและต้องใช้เงื่อนไขหลายอย่างในการตัดสินใจ เช่น การแยกผู้ที่มีคะแนนสูงและต่ำ เพื่อแสดงผลตามที่ผู้ใช้ต้องการ

อีกตัวอย่างหนึ่งคือระบบการจัดการบัญชีในองค์กร เช่น การวิเคราะห์รายรอบของลูกค้าในการชำระเงิน หากใช้การทำงานวนลูปในการตรวจสอบว่าลูกค้าชำระเงินตรงเวลา หรือชำระเงินล่าช้า โดยใช้ If-Else เพื่อส่งเตือนหรือตั้งค่าปรับให้กับลูกค้าที่มีปัญหา

สรุป

การใช้ Loop และ If-Else ใน COBOL สามารถช่วยให้การเขียนโปรแกรมมีความยืดหยุ่นและสะดวกมากขึ้น ไม่ว่าจะเป็นการเก็บข้อมูล การคำนวณ หรือแม้กระทั่งการแสดงข้อมูล โปรแกรมที่เราตัวอย่างแสดงให้เห็นว่า การใช้โครงสร้างการเขียนโปรแกรมที่ถูกต้องสามารถช่วยในด้านต่าง ๆ ได้มาก

หากคุณอยากเรียนรู้และเข้าใจถึงการเขียนโปรแกรมในภาษา COBOL หรือภาษาโปรแกรมอื่น ๆ คุณสามารถเข้าเรียนที่ EPT (Expert-Programming-Tutor) ซึ่งจะมีหลักสูตรที่หลากหลายและสามารถพัฒนาทักษะของคุณได้อย่างมีประสิทธิภาพ อย่าพลาดโอกาสที่จะเป็นผู้เชี่ยวชาญในสายงานนี้!

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