windows平台下fortran编程实现最大值

时间:2026-02-16 08:46:59

1、关于codeblocks IDE的极速安装

请参考百度经验<<Windows下极速搭建fortran开发环境>>

windows平台下fortran编程实现最大值

2、fortran编程实现求最大值

源代码如下:

    implicit none

    integer::i,j,N

    real*8::x(8)

    real*8::tmp

    x=[12,39,499,20,3,1999,888,8]

    N=size(x)

    tmp=x(1)

    do i=1,N

        if(x(i)>tmp)then

            tmp=x(i)

        end if

    end do

    print *, "最大值为:",tmp

windows平台下fortran编程实现最大值

3、编译、运行,结果如下:

windows平台下fortran编程实现最大值

© 2026 海能知识库
信息来自网络 所有数据仅供参考
有疑问请联系站长 site.kefu@gmail.com