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

การใช้งาน for each ในภาษา Fortran แบบง่ายๆ พร้อมตัวอย่าง code

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

ตัวอย่างที่ 1: การใช้ loop วนผ่านอาร์เรย์

program foreach_example
  implicit none
  integer, dimension(5) :: numbers
  integer :: i

  ! กำหนดค่าให้กับอาร์เรย์
  numbers = (/ 10, 20, 30, 40, 50 /)

  ! วนลูปผ่านอาร์เรย์โดยใช้ Do loop
  do i=1, size(numbers)
     write(*,*) 'Processing number: ', numbers(i)
  end do

end program foreach_example

ในตัวอย่างนี้ เราใช้คำสั่ง `do` ปกติเพื่อวนลูปผ่านอาร์เรย์ `numbers` และประมวลผลแต่ละองค์ประกอบของมัน

ตัวอย่างที่ 2: การใช้ loop จัดการกับอาร์เรย์สองมิติ

program foreach_twodim
  implicit none
  integer, dimension(2,3) :: matrix
  integer :: i, j

  ! กำหนดค่าให้กับอาร์เรย์สองมิติ
  matrix = reshape((/ 1, 2, 3, 4, 5, 6 /), (/ 2, 3 /))

  ! วนลูปผ่านอาร์เรย์สองมิติ
  do i = 1, size(matrix, 1)
     do j = 1, size(matrix, 2)
        write(*,*) 'Processing element: ', matrix(i, j)
     end do
  end do

end program foreach_twodim

ในตัวอย่างของอาร์เรย์สองมิติ เราใช้ loop ซ้อนกันสองชั้นเพื่อ visit ทุก element ในอาร์เรย์

ตัวอย่างที่ 3: การใช้ loop ไปกับการทำงานกับอาร์เรย์ของ structure

module types
  implicit none
  type :: Person
     character(len=20) :: name
     integer :: age
  end type Person
end module types

program foreach_structure_array
  use types
  implicit none
  type(Person), dimension(3) :: people
  integer :: i

  ! กำหนดค่าให้กับอาร์เรย์ของ structure
  people(1) = Person('Alice', 30)
  people(2) = Person('Bob', 35)
  people(3) = Person('Charlie', 40)

  ! วนลูปผ่านอาร์เรย์ของ structure
  do i = 1, size(people)
     write(*,*) 'Name:', people(i)%name, ', Age:', people(i)%age
  end do

end program foreach_structure_array

ในตัวอย่างนี้ `people` เป็นอาร์เรย์ของ structure และเราสามารถ access ทุก element และเข้าถึง attribute ของแต่ละ structure ได้ผ่าน loop

Usecase ในโลกจริง:

1. การประมวลผลข้อมูลทางวิทยาศาสตร์: Fortran มักใช้ในการคำนวณทางวิทยาศาสตร์ เช่น การวนลูปผ่านชุดข้อมูลทางอุตุนิยมวิทยาเพื่อคำนวณค่าเฉลี่ยของอุณหภูมิ

2. การแก้ไขปัญหาทางวิศวกรรม: วิศวกรอาจใช้ loop ในการวิเคราะห์การแรงที่กระจายทั่วโครงสร้างหรือสะพาน

3. วิเคราะห์ข้อมูลในด้านการเงิน: นักวิเคราะห์อาจใช้ Fortran ในการวนลูปผ่านข้อมูลการเงินเพื่อคำนวณตัวบ่งชี้ทางการเงินต่างๆ

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

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