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

ในวงการคอมพิวเตอร์ ภาษา Fortran ถือเป็นหนึ่งในภาษาโปรแกรมมิ่งที่เก่าแก่ที่สุดและมีประสิทธิภาพสูงสำหรับการคำนวณทางวิทยาศาสตร์และวิศวกรรม เนื่องจาก Fortran ถูกออกแบบมาเพื่อการจัดการกับการคำนวณสูตรทางคณิตศาสตร์ ดังนั้น ความสามารถในการใช้งาน function ในภาษานี้จึงมีความสำคัญอย่างมาก

การใช้งาน Function ในภาษา Fortran

Function ใน Fortran คือ โปรแกรมย่อย (subprogram) ที่สามารถทำการคำนวณและส่งค่าคืนโดยโดยตรงผ่านการเรียกใช้งาน ซึ่งช่วยให้โปรแกรมหลักมีโครงสร้างที่ชัดเจน และสามารถนำโค้ดส่วนที่ต้องใช้หลายๆครั้งมาจัดเรียงใน function เพื่อความสะดวกในการเรียกใช้และจัดการ

ตัวอย่างที่ 1: การคำนวณพื้นที่วงกลม

PROGRAM circle_area
  IMPLICIT NONE
  REAL :: radius, area
  PRINT *, "Enter the radius of the circle: "
  READ *, radius
  area = calculate_area(radius)
  PRINT *, "The area of the circle is: ", area
CONTAINS
  FUNCTION calculate_area(r)
    REAL, INTENT(IN) :: r
    REAL :: calculate_area
    calculate_area = 3.14159 * r * r
  END FUNCTION calculate_area
END PROGRAM circle_area

ในตัวอย่างนี้ เรามี function ชื่อว่า `calculate_area` ที่ทำการคำนวณพื้นที่วงกลม ซึ่งมี parameter รับค่ารัศมีและคืนค่าพื้นที่วงกลมออกมา

ตัวอย่างที่ 2: การคำนวณปัจจัยแรงดัน

PROGRAM stress_calculator
  IMPLICIT NONE
  REAL :: force, area, stress
  PRINT *, "Enter the force (N) and area (m^2): "
  READ *, force, area
  stress = calculate_stress(force, area)
  PRINT *, "The stress is: ", stress
CONTAINS
  FUNCTION calculate_stress(f, a)
    REAL, INTENT(IN) :: f, a
    REAL :: calculate_stress
    calculate_stress = f / a
  END FUNCTION calculate_stress
END PROGRAM stress_calculator

ปัจจัยแรงดัน (stress) สามารถถูกคำนวณโดย function `calculate_stress` โดยมี parameters เป็นแรงกด (force) และพื้นที่ (area)

ตัวอย่างที่ 3: การคำนวณรากที่สอง

PROGRAM square_root_calculator
  IMPLICIT NONE
  REAL :: number, root
  PRINT *, "Enter a number to calculate its square root: "
  READ *, number
  root = square_root(number)
  PRINT *, "The square root of ", number, " is: ", root
CONTAINS
  FUNCTION square_root(x)
    REAL, INTENT(IN) :: x
    REAL :: square_root
    square_root = SQRT(x)
  END FUNCTION square_root
END PROGRAM square_root_calculator

ในตัวอย่างนี้ function `square_root` เรียกใช้ function `SQRT` ที่มีอยู่ในภาษา Fortran เพื่อคำนวณรากที่สองของตัวเลขที่ได้รับ

Usecase การใช้งานในโลกจริง

Function ใน Fortran มีความหลากหลายในการใช้งาน เช่น ในการคำนวณทางด้านวิศวกรรมเพื่อคำนวณความเค้นหรือความเครียดในโครงสร้าง หรือในด้านอุตสาหกรรมปิโตรเคมีที่ต้องใช้สูตรคำนวณซับซ้อนที่ประมวลผลเร็วและแม่นยำ

สรุป

การใช้ function ใน Fortran ทำให้โปรแกรมมีโครงสร้างที่เข้าใจง่ายและสามารถนำไปใช้ซ้ำได้ หากคุณต้องการฝึกฝนและลงมือเขียนโปรแกรมเพื่อการคำนวณที่หลากหลาย การเรียนที่ Expert-Programming-Tutor (EPT) จะช่วยให้คุณได้เรียนรู้ทักษะเหล่านี้ผ่านคอร์สที่มีการออกแบบมาเพื่อคุณโดยเฉพาะ สอนโดยผู้เชี่ยวชาญที่มีประสบการณ์ ไม่ว่าคุณจะเริ่มต้นจากศูนย์หรือต้องการพัฒนาทักษะให้ก้าวหน้ายิ่งขึ้น EPT ที่นี่พร้อมที่จะให้คำแนะนำและช่วยเหลือคุณในทุกขั้นตอนของการเรียนรู้ด้วยใจจริงและความห่วงใย.

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