Fortran的一道编程，求帮助 急！！！ 求手写图片 50
编写函数fun，功能是：计算s（N）数组中N个数的平均值，平均值通过形参返回主函数，将小于平均值且最接近平均值的数作为函数值返回，在主程序中产生随机数，调用fun后输出平...
编写函数fun，功能是：计算s（N）数组中N个数的平均值，平均值通过形参返回主函数，将小于平均值且最接近平均值的数作为函数值返回，在主程序中产生随机数，调用fun后输出平均值和小于平均值且最接近平均值的数。（随机数函数：call random_number（x），产生[0,1）的随机数存入x）
展开
3个回答
展开全部
program main
implicit none
integer,parameter::N=100
integer::i
real::s(N),E,t
call random_seed()
do i=1,N
call random_number(s(i))
enddo
E=fun(s)
write(*,*)'平均数为：',E
t=-1E10
do i=1,N
if(s(i)>=E)cycle
if(s(i)>t)then
t=s(i)
endif
end do
write(*,*)'小于平均数，且最接近平均数的数是：',t
pause
contains
real function fun(s)
real::s(N),sum
integer::i
sum=0
do i=1,N
sum=sum+s(N)
enddo
fun=sum/N
endfunction
endprogram
implicit none
integer,parameter::N=100
integer::i
real::s(N),E,t
call random_seed()
do i=1,N
call random_number(s(i))
enddo
E=fun(s)
write(*,*)'平均数为：',E
t=-1E10
do i=1,N
if(s(i)>=E)cycle
if(s(i)>t)then
t=s(i)
endif
end do
write(*,*)'小于平均数，且最接近平均数的数是：',t
pause
contains
real function fun(s)
real::s(N),sum
integer::i
sum=0
do i=1,N
sum=sum+s(N)
enddo
fun=sum/N
endfunction
endprogram
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
--
2022-12-05 广告
图形化编程简单理解为用积木块形式编程，scratch和python也是其中的一种，属于入门级编程，以其简单生动的画面获得无数学生的喜爱，深圳市创客火科技有限公司是一家做教育无人机的公司，旗下有编程无人机，积木无人机及室内外编队，每款飞机含有...
点击进入详情页
本回答由--提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
