Fortran Coder

标题: cycle无法根据if条件进行判断 [打印本页]

作者: Shiev 时间: 2014-10-17 03:15
标题: cycle无法根据if条件进行判断
[size=14.3999996185303px]在这个程序的cycle部分，我想实现 : 如果x在0和1之间就退出循环，否则不断要求输入x和n。编译成功，但输入正确后，仍然循环，如输入0.5 100。恳请大家指教^^

[size=14.3999996185303px]IVF, Win7, fortran 95

[Fortran] 纯文本查看 复制代码

program ln

    implicit none

    real::x,term,sum=0

    integer::n

    do

        print*,'please input x and n'

        read*,x,n

        if(x>1.or.x<0.000001) cycle

    end do

    do 

        term=(x**n)/n

        sum=sum+term

        n=n-1

        if(n==0) exit

    end do

    print*,sum

    end program ln

作者: hanshikai 时间: 2014-10-17 08:03
第一个循环没有退出条件,所以会一直循环下去,也就是不停地要求输入x,n

作者: 百事可乐 时间: 2014-10-17 09:40
if(x>1.or.x<0.000001) cycle

改为

if(x<=1.and.x>0.000001) exit

作者: Shiev 时间: 2014-10-17 14:48

百事可乐发表于 2014-10-17 09:40
if(x>1.or.x

没法用cycle实现吗？

作者: aliouying 时间: 2014-10-17 14:53

Shiev 发表于 2014-10-17 14:48
没法用cycle实现吗？

cycle 是执行下一次do循环，而您的do循环是无限循环，那么cycle肯定是跳不出去的，exit是跳出本层的do循环

作者: Shiev 时间: 2014-10-17 15:15

hanshikai 发表于 2014-10-17 08:03
第一个循环没有退出条件,所以会一直循环下去,也就是不停地要求输入x,n

有退出条件啊，不满足if里的条件不就退出了吗？

作者: 楚香饭 时间: 2014-10-17 16:00
本帖最后由楚香饭于 2014-10-17 16:03 编辑

你没有写 else exit

if 的意思是，如果。而不是:只有

作者: Shiev 时间: 2014-10-17 22:11

楚香饭发表于 2014-10-17 16:00
你没有写 else exit

if 的意思是，如果。而不是:只有

sorry, can you please give me a modified version? and I still don't understand the syntax of "circle"

xue xiao mei you zhong wen shu ru fa, bu hao yi si la^^,

作者: fcode 时间: 2014-10-17 22:34

[Fortran] 纯文本查看 复制代码

program ln

    implicit none

    real::x,term,sum=0

    integer::n

    do

        print*,'please input x and n'

        read*,x,n

        if(x>1.or.x<0.000001) then

           cycle

        else

           exit

        end if

    end do

    do 

        term=(x**n)/n

        sum=sum+term

        n=n-1

        if(n==0) exit

    end do

    print*,sum

    end program ln

作者: Shiev 时间: 2014-10-18 01:12

楚香饭发表于 2014-10-17 16:00
你没有写 else exit

if 的意思是，如果。而不是:只有

理解了，谢谢！！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)