应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】有关数组赋值
51/1返回列表
查看: 339  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

astringent

铜虫 (著名写手)

[交流] 【求助】有关数组赋值

初学fortran，现有一问题向大家求助。
有一组数（比如有20个），它们的值不是0就是1，储存在数组P（20）中，我想用一个循环进行判断，如果数组P中所存的值都是1，就把condition赋值为真，否者为假。当condition为真时，进行下面的程序。请问该如何实现。我这些可以吗？
program test
implicit none
integer :(20)
logical ::condition
integer i

open (11,file='data.out',status='old')
do i=1,20
     read (11,*) P(i)
enddo
! 进行判断
do i=1,20
     if (P(i)==0) then
        exit
    else
        condition=true
   endif
enddo
if (condition) then
-----
-----
endif
end
回复此楼

» 猜你喜欢

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼 2011-02-13 05:15:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

scatcj

木虫 (小有名气)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+2): 谢谢参与应助！ 2011-02-27 15:02:16
你的程序中在0的前面只要有1，condition都被赋值为真了
赞一下(2人) 回复此楼
3楼2011-02-23 23:19:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答

snoopyzhao

至尊木虫 (职业作家)
★ ★
astringent(金币+20): 2011-02-13 20:34:27
余泽成(金币+2): 辛苦了！ 2011-02-20 18:22:10
CODE:
do i=1,20
     if (P(i)==0) then
        condition = .false.
        exit
    else
        condition = .true.
   endif
end do
赞一下(1人) 回复此楼
2楼2011-02-13 09:59:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭