การหาค่ามากที่สุดและน้อยที่สุดในภาษา COBOL ด้วย Loop

การเขียนโปรแกรมเพื่อหาค่ามากที่สุด (Maximum) และน้อยที่สุด (Minimum) เป็นหนึ่งในปัญหาพื้นฐานที่นักพัฒนาต้องเผชิญ ไม่ว่าจะเป็นภาษาไหนก็ตาม ในที่นี้เราจะพาทุกท่านไปทำความรู้จักกับภาษา COBOL ซึ่งเป็นภาษาที่หลายคนอาจเคยได้ยินชื่อแต่ยังไม่คุ้นเคยนัก โดยเราจะมาดูวิธีการหาค่ามากที่สุดและน้อยที่สุดโดยใช้ Loop อย่างง่าย พร้อมตัวอย่างโค้ดเพื่อให้เข้าใจได้ง่ายยิ่งขึ้น

ทำความรู้จักกับ COBOL

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

การหาค่ามากที่สุดและน้อยที่สุด

ในการหาค่ามากที่สุดและน้อยที่สุด เราจะใช้ Loop เพื่อวนลูปผ่านค่าในรายการ ซึ่งในที่นี้เราจะใช้บล็อคการทำงานที่เรียกว่า `PERFORM` ที่ใช้สำหรับการทำงานซ้ำใน COBOL

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

        IDENTIFICATION DIVISION.
       PROGRAM-ID. MaxMinDemo.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  Numbers          PIC 9(3) OCCURS 10 TIMES.
       01  Count            PIC 9(2) VALUE 0.
       01  MaxValue         PIC 9(3) VALUE 0.
       01  MinValue         PIC 9(3) VALUE 999.

       PROCEDURE DIVISION.

       * กำหนดค่าเริ่มต้นของตัวแปร
           MOVE 0 TO Count
           MOVE 0 TO MaxValue
           MOVE 999 TO MinValue

       * สำหรับนำเข้าข้อมูล
           DISPLAY 'กรุณาใส่ตัวเลข 10 ค่า:'
           PERFORM VARYING Count FROM 1 BY 1 UNTIL Count > 10
               ACCEPT Numbers(Count)
           END-PERFORM

       * หาค่ามากที่สุดและน้อยที่สุด
           PERFORM VARYING Count FROM 1 BY 1 UNTIL Count > 10
               IF Numbers(Count) > MaxValue THEN
                   MOVE Numbers(Count) TO MaxValue
               END-IF

               IF Numbers(Count) < MinValue THEN
                   MOVE Numbers(Count) TO MinValue
               END-IF
           END-PERFORM

       * แสดงผลลัพธ์
           DISPLAY 'ค่ามากที่สุด: ' MaxValue
           DISPLAY 'ค่าน้อยที่สุด: ' MinValue
           STOP RUN.

อธิบายการทำงานของโค้ด

- เริ่มต้นโดยการกำหนดค่าเริ่มต้นให้กับตัวแปร `Count`, `MaxValue`, และ `MinValue`

- ใช้ `PERFORM VARYING` เพื่อทำการรับค่าจากผู้ใช้สำหรับจำนวนในการคำนวณ โดยการวนลูป 10 ครั้ง

- หลังจากที่ได้ค่าจากผู้ใช้แล้ว จะทำการวนลูปอีกครั้งเพื่อตรวจสอบค่าที่มากที่สุดและน้อยที่สุด โดยใช้เงื่อนไข `IF` เพื่อตรวจสอบเงื่อนไขและปรับค่าของ `MaxValue` และ `MinValue`

- สุดท้าย แสดงผลลัพธ์ของค่ามากที่สุดและน้อยที่สุดออกมาที่หน้าจอ

Use Case ในโลกจริง

การหาค่ามากที่สุดและน้อยที่สุดในรายการสามารถนำไปประยุกต์ใช้ได้ในหลายสถานการณ์ เช่น:

พูดได้เลยว่า การหาค่ามากที่สุดและน้อยที่สุดที่เราสามารถทำได้ในภาษา COBOL นั้นมีประโยชน์ในหลายด้าน และสิ่งที่สำคัญกว่านั้นคือความรู้เกี่ยวกับการเขียนโปรแกรมอีกหลายๆ ด้าน ซึ่งจะช่วยให้คุณสามารถพัฒนาโปรแกรมที่มีความซับซ้อนมากขึ้นได้

สรุป

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