Fortran题: 计算n个测试数据的平均值和平局偏差。测试数据个数不定
- 你的回答被采纳后将获得：
- 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）
1个回答
展开全部
fortran77程序：
dimension a(1000)
do 10 i=1,1000
read(*,*) b
if (b.lt.0) goto 20
n=i
a(i)=b
10 continue
20 sum=0
do 30 i=1,n
30 sum=sum+a(i)
aver=sum/n
ss=0
do 40 i=1,n
40 ss=ss+(a(i)-aver)**2
ss=ss/n
ss=sqrt(ss)
write(*,*)aver,ss
pause
end
dimension a(1000)
do 10 i=1,1000
read(*,*) b
if (b.lt.0) goto 20
n=i
a(i)=b
10 continue
20 sum=0
do 30 i=1,n
30 sum=sum+a(i)
aver=sum/n
ss=0
do 40 i=1,n
40 ss=ss+(a(i)-aver)**2
ss=ss/n
ss=sqrt(ss)
write(*,*)aver,ss
pause
end
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
创远信科
2024-07-24 广告
材料测试数据库是我们公司精心构建的核心资源之一，它集成了丰富的材料测试数据，涵盖了从基础物理性能到高级化学特性的全方位信息。这一数据库不仅为研发人员提供了宝贵的数据支持，也助力了新材料开发和技术创新。我们持续更新数据库内容，确保数据的准确性...
点击进入详情页
本回答由创远信科提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
