Fortran中的流程控制

女爷i 2024-02-17 18:33 41阅读 0赞

! Fortran中的流程控制
    ! if 
    ! select
    ! do
    
    program main
    implicit none
    integer :: wind = 6
    integer :: score = 70
    integer :: i, j
    
    
    ! 1 -------------if endif---------------------------------------
    ! 其他嵌套，多层if判断等，都支持， 与c语言类似    
    if (wind > 4) then
        print *, '停止上班'
    else
        print *, '还得苦逼上班'    
    end if
    ! 2 -------------select case------------------------------------
    ! select case(log)  log可以是整数，字符，逻辑变量
    select case(score)
        case(80:100)
            print *, 'A'
        case(60:79)
            print *, 'B'
        case(0:59)
            print *, 'C'
        case default
            print *, 'error'
    end select
    ! 3 -------------goto 语句-------------------------------------
    goto 100
    print *, 'no goto ops'
    100 print*, 'goto ops'
    ! 4 -------------do 循环---------------------------------------
    do i=1, 5
         print *, 'in ',  i, ' do'
    end do
    ! do 循环可以设置步幅
    do i = 1, 5, 2
        print *, 'in ',  i, ' do step 2'
    end do
    i = 2
    do while(i<6)
        print *, 'in do ', i, ' while '
        i = i + 1
    end do
    do 123 i=1, 5  ! 只能跟数字
        print *, 'biaohao ：',  i, ' do'
    123 continue  ! 这里的 continue 可以用 enddo 代替
    
    ! 5 -------------循环中的流程控制--------
    do i=1, 5
        if(i == 4) cycle
        print *, '循环中的流程控制cycle： ',  i, ' do'
    end do
    do i=1, 5
        if(i == 4) exit
        print *, '循环中的流程控制exit：',  i, ' do'
    end do
    ! 6 -------------署名标记do循环与流程控制的结合--------
    outter: do i=1, 6
        inner: do j=2, 4
        if(i == 3) exit outter
        if(j == 3) cycle inner
        print *, '署名do：',  i, j, ' do'
        end do inner
    end do outter
    ! 7 隐式do循环--------
    ! ---python中的隐式do也并不新鲜，这门古老的语言早就做到了
    print *, '隐式do: ', (i, i=1,3)
    
    
    
    end program main