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

# การใช้งาน do-while loop ในภาษา COBOL แบบง่ายๆ

ในโลกของการเขียนโปรแกรม วงวนหรือลูป (Loop) เป็นเครื่องมือที่ช่วยให้เราสามารถทำซ้ำกิจกรรมด้วยเงื่อนไขบางอย่างได้ และ COBOL (Common Business-Oriented Language) ภาษาโปรแกรมมิ่งแบบเก่าแก่ที่ยังมีการใช้งานในระบบเชิงพาณิชย์จำนวนมหาศาล ก็มีเครื่องมือที่ทำหน้าที่เช่นเดียวกันนี้ หนึ่งใน loop ที่พบได้บ่อยในภาษา COBOL คือ do-while loop หรือใน COBOL เราจะใช้ชื่อว่า PERFORM UNTIL loop

อธิบายการทำงานของ do-while loop

do-while loop หรือใน COBOL เราเรียกว่า PERFORM WITH TEST AFTER UNTIL loop จะทำการทำซ้ำการทำงานจนกว่าเงื่อนไขที่กำหนดจะเป็นจริง สิ่งที่ทำให้มันไม่เหมือนกับวงวนอื่นๆ เช่น for-loop หรือ while-loop คือ do-while loop จะทำการทำงานอย่างน้อยหนึ่งครั้ง แม้เงื่อนไขของ loop จะไม่เป็นจริงก็ตาม เพราะมันจะทำการตรวจสอบเงื่อนไขหลังจากที่ทำการวนครั้งแรก

ตัวอย่าง CODE ของการใช้งาน do-while loop ใน COBOL:

ตัวอย่างที่ 1: นับตัวเลขจาก 1 ถึง 10

       IDENTIFICATION DIVISION.
       PROGRAM-ID. doWhileExample.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 COUNTER PIC 99 VALUE 1.

       PROCEDURE DIVISION.
       PERFORM WITH TEST AFTER UNTIL COUNTER > 10
           DISPLAY "Number: " COUNTER
           ADD 1 TO COUNTER
       END-PERFORM.

       STOP RUN.

ในตัวอย่างนี้ เรามีตัวแปรตัวนับ `COUNTER` ซึ่งเริ่มต้นที่ 1 และจะเพิ่มขึ้นทีละ 1 จนกว่า `COUNTER` จะมีค่ามากกว่า 10 จากนั้นโปรแกรมจะหยุดการทำงาน

ตัวอย่างที่ 2: อ่านข้อมูลจากไฟล์จนสิ้นสุดไฟล์

       IDENTIFICATION DIVISION.
       PROGRAM-ID. fileReadExample.

       DATA DIVISION.
       FILE SECTION.
       FD  INPUT-FILE.
       01  FILE-RECORD PIC X(80).

       WORKING-STORAGE SECTION.
       01 EOF-FLAG PIC X VALUE 'N'.

       PROCEDURE DIVISION.
       OPEN INPUT INPUT-FILE.

       READ INPUT-FILE
            AT END MOVE 'Y' TO EOF-FLAG
       END-READ.

       PERFORM WITH TEST AFTER UNTIL EOF-FLAG = 'Y'
           DISPLAY FILE-RECORD
           READ INPUT-FILE
                AT END MOVE 'Y' TO EOF-FLAG
           END-READ
       END-PERFORM.

       CLOSE INPUT-FILE.
       STOP RUN.

ในตัวอย่างที่สองนี้ do-while loop จะใช้อ่านข้อมูลจากไฟล์ และแสดงผลลัพธ์ออกมา ทำซ้ำไปเรื่อยๆ จนกว่าจะถึงสิ้นสุดไฟล์ ซึ่งจะกำหนดโดยการตั้งค่า `EOF-FLAG` เป็น 'Y'

ตัวอย่างที่ 3: ขอผู้ใช้งานใส่รหัสผ่านจนกว่าจะถูกต้อง

       IDENTIFICATION DIVISION.
       PROGRAM-ID. passwordPromptExample.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 PASSWORD PIC X(10) VALUE 'SECRET'.
       01 USER-INPUT PIC X(10).

       PROCEDURE DIVISION.
       MOVE SPACES TO USER-INPUT.

       PERFORM WITH TEST AFTER UNTIL USER-INPUT = PASSWORD
           DISPLAY "Please enter the password: "
           ACCEPT USER-INPUT
       END-PERFORM.

       DISPLAY "Password Correct!".

       STOP RUN.

ในตัวอย่างที่สามนี้ รหัสผ่านที่กำหนดคือ 'SECRET' และ do-while loop จะถามผู้ใช้ว่าให้ใส่รหัสผ่านจนกว่าพวกเขาจะใส่รหัสผ่านที่ถูกต้อง

Usecases ในโลกจริง

การใช้งาน PERFORM UNTIL loop ในภาษา COBOL มีประโยชน์ในหลายๆ สถานการณ์ การอ่านข้อมูลจากไฟล์แบบที่ไม่รู้จำนวนเรคอร์ดล่วงหน้า, การรอคำตอบหรือการกระทำจากผู้ใช้งาน, หรือทดสอบเงื่อนไขที่ต้องการการประมวลผลภายใน loop เป็นต้น

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

เชิญชวนเรียนรู้การเขียนโปรแกรมที่ EPT

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

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