24小时热门版块排行榜    

查看: 380  |  回复: 0

zanis

新虫 (初入文坛)

[求助] 请问这段程序是怎么执行的?

DO 10 I=1,N
        C=A-RJ(I)/B
        C1=SQRT(1.-C*C)
        IF(C) 6,7,7
7     FJ(I)=ASIN(C1)
      GOTO 10
6     FJ(I)=3.14159265-ASIN(C1)
10    CONTINUE
      RETURN
        END

发自小木虫Android客户端
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zanis 的主题更新
信息提示
请填处理意见