如何用fortran实现计数功能

大鹏 · 发表于 2012-10-7 14:43:06

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

48.21100
50.87400
47.68500
45.67200
47.28600
51.50100
50.48400
45.42600
47.39500
52.32500
46.95200
49.95900 比如给出这一组数据要求输出满足>50的数据，并实现统计满足条件的数据数量，现在这组有四个满足的，怎么计数

Aires · 发表于 2012-10-7 15:36:16

a(i) !数组
b(j)
j=1
count=0 ！用于计数
do i=1,...
if(a(i)>50) then
   b(j)=a(i)
   count=count+1
   j=j+1
end if
end do
write(*,*) b
write(*,*) count

你试一下吧。

topmad · 发表于 2012-10-7 19:42:06

就用二楼的方法循环加判断就可以了

river · 发表于 2012-10-7 21:47:33

二楼正解{:2_26:}

做个霸气的木头 · 发表于 2012-10-8 10:24:09

计数是fortran里面的基本程序，楼主要多多自己努力的说~

大鹏 · 发表于 2012-10-9 16:59:49

Aires 发表于 2012-10-7 15:36

登录/注册后可看大图

a(i) !数组
b(j)
j=1

谢谢啊

		自动登录	找回密码
密码			立即注册

[求助] 如何用fortran实现计数功能

登录后查看更多精彩内容~

评分