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

# การใช้งาน while loop ในภาษา Fortran ด้วยความเข้าใจที่ลึกซึ้ง

**การเขียนโปรแกรม** เป็นหัวใจของการสร้างนวัตกรรมและทำให้เครื่องจักรสามารถทำงานได้ตามที่เราอยากให้มันทำ และไม่ว่าเราจะทำงานในด้านไหน, **การควบคุมกระบวนการทำงาน(loop)** คือสิ่งที่จำเป็นอย่างยิ่ง ในภาษาโปรแกรมมิ่งต่างๆ มี structure ที่ใช้สำหรับการทำซ้ำเรียกว่า loop และหนึ่งในนั้นคือ **while loop**.

ในภาษา **Fortran**, ซึ่งเป็นหนึ่งในภาษาโปรแกรมมิ่งที่มีชื่อเสียงในแวดวงวิทยาศาสตร์และวิศวกรรม, while loop ไม่ได้ถูกกล่าวถึงโดยตรง แต่เราสามารถรวบรวมโครงสร้างที่คล้ายคลึงกันโดยใช้ **do loop** ที่มีเงื่อนไข.

บทความของเราในวันนี้จะเดินทางไปกับการใช้งาน do loop ใน Fortran ที่ทำหน้าที่เหมือนกับ while loop ในภาษาโปรแกรมมิ่งอื่นๆ

หลักการทำงานของ while loop

While loop เป็น structure ที่ทำซ้ำโดยพิจารณาจากเงื่อนไขที่กำหนด หากเงื่อนไขเป็นจริง (true), ก็จะทำการวนรอบ; และจะหยุดการทำงานเมื่อเงื่อนไขเป็นเท็จ (false).

do while (condition)
    ! Code to execute
end do

Fortran ใช้ `do` และ `end do` เพื่อกำหนดขอบเขตของ loop และใช้ `if` statement เพื่อตรวจสอบเงื่อนไข ถ้าเงื่อนไขเป็นเท็จ, ก็ใช้ `exit` เพื่อออกจาก loop.

ตัวอย่างการใช้งาน do while loop ใน Fortran

ต่อไปนี้คือตัวอย่าง code 3 ตัวอย่างที่ใช้ do while loop ใน Fortran:

ตัวอย่างที่ 1: การนับจำนวน

program count_example
    implicit none
    integer :: count

    count = 0
    do while (count < 10)
        count = count + 1
        print *, 'Count is:', count
    end do
end program count_example

ในตัวอย่างนี้ โปรแกรมจะพิมพ์ค่า count จาก 1 ถึง 10.

ตัวอย่างที่ 2: การคำนวณผลรวม

program sum_example
    implicit none
    integer :: sum, i

    sum = 0
    i = 1
    do while (i <= 100)
        sum = sum + i
        i = i + 1
    end do
    print *, 'The sum of the first 100 numbers is:', sum
end program sum_example

โปรแกรมนี้คำนวนผลรวมของตัวเลขตั้งแต่ 1 ถึง 100.

ตัวอย่างที่ 3: การค้นหาสมาชิกในอาร์เรย์

program search_example
    implicit none
    integer, dimension(5) :: numbers = [5, 8, 10, 20, 22]
    integer :: i, item

    item = 20
    i = 1
    do while (i <= 5)
        if (numbers(i) == item) then
            print *, 'Found item at position:', i
            exit
        end if
        i = i + 1
    end do
    if (i > 5) then
        print *, 'Item not found in the array.'
    end if
end program search_example

ในตัวอย่างนี้, โปรแกรมจะค้นหาตัวเลข 20 ในอาร์เรย์ และออกจาก loop ถ้าหากเจอ.

Usecase ในโลกจริง

การวนรอบด้วย while loop สามารถนำไปใช้ในหลากหลายสถานการณ์ โดยเฉพาะในงานที่ต้องการการตรวจสอบเงื่อนไขที่ซับซ้อนก่อนที่จะทำการวนซ้ำ ตัวอย่างเช่น:

- การจำลองสภาพอากาศ: ใช้วนรอบจนกว่าจะบรรลุเงื่อนไขความเสถียรภาพหรือจนกว่าจะครบจำนวนรอบที่ตั้งไว้.

- การวัดค่าทางวิทยาศาสตร์: บางครั้งจำเป็นต้องรอจนกว่าจะได้ผลวัดที่สงบหรือไม่เปลี่ยนแปลงมากเกินไปจึงจะเข้าสู่ขั้นตอนต่อไปของการทดลอง.

ส่งท้าย

เรียนโปรแกรมมิ่งที่ EPT ไม่เพียงจะสั่งสอนในส่วนของ Fortran หรือการใช้ loop ที่มีประสิทธิภาพเท่านั้น แต่ยังช่วยให้คุณสามารถค้นหาวิธีการแก้ไขปัญหาด้วยการวิเคราะห์, การทดสอบ, และการคำนวณที่ซับซ้อน เพื่อรับมือกับความท้าทายของโลกการเขียนโปรแกรมยุคสมัยใหม่ได้อย่างไม่ต้องสงสัย. จงร่วมกับเราที่ EPT เพื่อยกระดับความสามารถการเขียนโปรแกรมของคุณไปอีกขั้น!

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