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

การใช้งาน Parameter of Function ในภาษา Fortran ทำให้เราสามารถเขียนโค้ดที่มีความยืดหยุ่นและสามารถนำกลับมาใช้ใหม่ (reusable) ได้ดีขึ้น การโอนข้อมูลเข้าและออกจากฟังก์ชันโดยใช้พารามิเตอร์นั้น ยังช่วยให้สามารถควบคุมการทำงานของฟังก์ชันได้อย่างมีประสิทธิภาพ

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

ตัวอย่างการใช้งาน พารามิเตอร์ในฟังก์ชัน

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

ฟังก์ชันนี้จะรับรัศมีของวงกลมเป็นพารามิเตอร์และคืนค่าพื้นที่วงกลมเป็นผลลัพธ์

function circle_area(radius)
    real :: radius
    real :: pi = 3.14159265359
    real :: circle_area

    circle_area = pi * radius**2
end function circle_area

การใช้งานฟังก์ชัน:

program test_area
    real :: area, rad
    rad = 5.0
    area = circle_area(rad)
    print *, 'The area of the circle is', area
end program test_area

ตัวอย่างที่ 2: การคำนวณเกรดเฉลี่ย (GPA)

ฟังก์ชันที่คิดว่านักเรียนต้องการเพื่อคำนวณเกรดเฉลี่ยของพวกเขาโดยรับคะแนนและจำนวนหน่วยกิตเป็นอินพุต:

function calculate_gpa(scores, credits, num_courses)
    real, dimension(:) :: scores
    real, dimension(:) :: credits
    integer :: num_courses
    real :: calculate_gpa
    real :: total_points
    integer :: i

    total_points = 0.0

    ! Loop to sum the product of scores and credits
    do i = 1, num_courses
        total_points = total_points + scores(i) * credits(i)
    end do

    calculate_gpa = total_points / sum(credits)
end function calculate_gpa

การใช้งานฟังก์ชัน:

program test_gpa
    real, dimension(4) :: scores = [3.0, 3.5, 4.0, 2.75]
    real, dimension(4) :: credits = [3, 3, 3, 3]
    real :: gpa

    gpa = calculate_gpa(scores, credits, 4)
    print *, 'The calculated GPA is', gpa
end program test_gpa

ตัวอย่างที่ 3: ฟังก์ชันการแปลงอุณหภูมิ

โปรแกรมต่อไปนี้แปลงอุณหภูมิจากเซลเซียสไปเป็นฟาเรนไฮต์:

function celsius_to_fahrenheit(celsius)
    real :: celsius
    real :: celsius_to_fahrenheit

    celsius_to_fahrenheit = (celsius * 9.0/5.0) + 32
end function celsius_to_fahrenheit

การนำไปใช้งาน:

program test_temperature
    real :: temp_c, temp_f
    temp_c = 30.0
    temp_f = celsius_to_fahrenheit(temp_c)
    print *, 'Temperature in Fahrenheit is', temp_f
end program test_temperature

Usecase ในโลกจริง

การเรียนรู้ภาษาโปรแกรมมิ่งไม่เพียงแค่เป็นการเพิ่มทักษะให้กับตัวเราเท่านั้น แต่ยังเป็นเครื่องมือที่ทรงพลังในการแก้ปัญหาและสร้างนวัตกรรมใหม่ๆ ด้วยเหตุนี้ ที่ EPT เราเน้นการสอนและฝึกฝนตั้งแต่พื้นฐานจนถึงการใช้งานแก้ปัญหาเฉพาะด้าน เพื่อให้นักเรียนของเราพร้อมเติบโตไปกับโลกของคอมพิวเตอร์และการเขียนโปรแกรมในยุคดิจิทัลนี้.

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