Fortran入门【4】求最大值和最小值

最新推荐文章于 2024-07-14 12:25:25 发布

御剑行风

最新推荐文章于 2024-07-14 12:25:25 发布

阅读量1.1w

点赞数 5

分类专栏： Fortran 文章标签：算法 fortran 动态规划

本文链接：https://blog.csdn.net/youshenfan/article/details/122934147

版权

Fortran 专栏收录该内容

13 篇文章 11 订阅

订阅专栏

Fortran中对数组求最大值和最小值的子程序为：maxval和minval。

示例程序：

    program main
    ! Fortran 求解最大值和最小值

    implicit none
    integer, parameter :: N=20  !< 设置数组长度
    real,    parameter :: pi = 4.0 * atan(1.0) !< 设置$\pi$值
    real :: Temperature(N)   !< 定义长度为N、名称为Temperature的数组
    real :: T_max            !< 最大温度
    real :: T_min            !< 最小温度
    integer :: i

    ! 初始化数组
    do i = 1, N
        Temperature( i ) = 30. + 2. * sin( i/4. * pi )
    end do

    ! 求解
    T_max = maxval(Temperature)  ! 求最大值
    T_min = minval(Temperature)  ! 求最小值

    ! 显示结果
    write(*,*) 'T     = '
    write(*,*) Temperature
    write(*,*) 
    write(*,*) 'T_max = ', T_max
    write(*,*) 'T_min = ', T_min
    pause

    end program main

屏幕输出结果为：

 T     =
   31.41421       32.00000       31.41421       30.00000       28.58579
   28.00000       28.58579       30.00000       31.41421       32.00000
   31.41421       30.00000       28.58579       28.00000       28.58579
   30.00000       31.41422       32.00000       31.41421       30.00000

 T_max =    32.00000
 T_min =    28.00000