การใช้งาน Average จากทุกองค์ประกอบใน Array ในภาษา COBOL

บทนำ

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

การเริ่มต้น

ก่อนที่เราจะไปดูตัวอย่างโค้ด เรามาทำความเข้าใจกับโครงสร้างพื้นฐานของ COBOL กันก่อน COBOL มีความสามารถในการจัดการกับข้อมูลจำนวนมากอย่างมีประสิทธิภาพ โดยเฉพาะในรูปแบบของ Array โครงสร้างของโปรแกรม COBOL จะมีการแบ่งออกเป็นหลาย Section ได้แก่ IDENTIFICATION DIVISION, ENVIRONMENT DIVISION, DATA DIVISION, และ PROCEDURE DIVISION

การประกาศ Array ใน COBOL

การประกาศ Array ใน COBOL ไม่ได้ทำได้ง่ายเหมือนในภาษาอื่น ๆ เราต้องกำหนดความยาวของ Array และประเภทของข้อมูลที่เราต้องการจะเก็บเป็นอันดับแรก เช่น หากเราต้องการจะเก็บตัวเลขจำนวน 10 ตัว เราสามารถทำได้ดังนี้:

 DATA DIVISION.
WORKING-STORAGE SECTION.

01  NUMBERS-TABLE.
    05  NUMBERS OCCURS 10 TIMES PIC 9(3).  * แถวข้อมูล 10 แถว

01  SUM-NUMBERS           PIC 9(5) VALUE 0.  * ตัวแปรสำหรับเก็บผลรวม
01  AVERAGE-NUMBER        PIC 9(6)V99 VALUE 0.00.  * ตัวแปรสำหรับเก็บค่าเฉลี่ย

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

มาดูโค้ดตัวอย่างการคำนวณค่าเฉลี่ยจากข้อมูลใน Array กันเลย:

        IDENTIFICATION DIVISION.
       PROGRAM-ID. CalculateAverage.

       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  NUMBERS-TABLE.
           05  NUMBERS OCCURS 10 TIMES PIC 9(3).
       01  SUM-NUMBERS           PIC 9(5) VALUE 0.
       01  AVERAGE-NUMBER        PIC 9(6)V99 VALUE 0.00.
       01  I                     PIC 9(2) VALUE 0.

       PROCEDURE DIVISION.
       BEGIN.
           MOVE 10 TO NUMBERS(1).
           MOVE 20 TO NUMBERS(2).
           MOVE 30 TO NUMBERS(3).
           MOVE 40 TO NUMBERS(4).
           MOVE 50 TO NUMBERS(5).
           MOVE 60 TO NUMBERS(6).
           MOVE 70 TO NUMBERS(7).
           MOVE 80 TO NUMBERS(8).
           MOVE 90 TO NUMBERS(9).
           MOVE 100 TO NUMBERS(10).

           PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
               ADD NUMBERS(I) TO SUM-NUMBERS
           END-PERFORM.

           COMPUTE AVERAGE-NUMBER = SUM-NUMBERS / 10.

           DISPLAY "Sum: " SUM-NUMBERS.
           DISPLAY "Average: " AVERAGE-NUMBER.

           STOP RUN.

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

Use Case ในโลกจริง

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

นอกจากนี้ การคำนวณค่าเฉลี่ยยังสามารถใช้ในการวิเคราะห์ผลการเรียนคะแนนของนักศึกษา โรงเรียนหรือสถานศึกษาสามารถใช้โค้ดดังกล่าวเพื่อจัดเก็บข้อมูลคะแนน และคำนวณค่าเฉลี่ยคะแนนของนักเรียนแต่ละคนได้อีกด้วย

สรุป

การเรียนรู้การเขียนโปรแกรมจะทำให้คุณมีทักษะที่จำเป็นในตลาดงานที่เปลี่ยนแปลงไปในอนาคต และเพิ่มโอกาสในการทำงานในอุตสาหกรรมที่เติบโตอย่างรวดเร็ว อย่าหมดหวังในการเริ่มต้นใหม่วันนี้!

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