Fortran程序编写,希望各位帮帮忙哈, 急!!!在线等答案

1.设计一个程序处理歌手比赛成绩。设计要求是:(1)有10名歌手,12位评委评分,所有歌手的全部成绩应登记在一个二维数组中,成绩按100分计算。(2)所有歌手姓名存入一字... 1.设计一个程序处理歌手比赛成绩。设计要求是:
(1)有10名歌手,12位评委评分,所有歌手的全部成绩应登记在一个二维数组中,成绩按100分计算。
(2)所有歌手姓名存入一字符数组,姓名长度<=10个字符。
(3)计分办法:去掉一个最高分,去掉一个最低分,按中间10个分数计平均分,存入一个数组中。
(4)对歌手得分排序(从高到低)。
(5)打印歌手编号。姓名与得分(按排序输出)。
2.设计一个计算n!的函数子程序,并调用该子程序计算数e的近似值。计算公式:e=1+1/1!+1/2!+...+1/n!+... 当n!>1e8时停止计算。
3.对于任意的二维数组A(m,n),设计一个子例行程序max(A,B,m,n,k).其中A是一个二维数组,m,n分别是A的行数和列数,B是一个一维数组。子程序的功能是:当参数k=1时,求A的每列上的最大元素并存放到B(1),B(2),……B(n)中;当参数k=2,求A每行上的最大元素并存到B(1),B(2),……B(m)中。
展开
 我来答
若以下回答无法解决问题,邀请你更新回答
沧海一再
2010-05-12
知道答主
回答量:7
采纳率:0%
帮助的人:0
展开全部
1、
program main
implicit none
integer,parameter :: la=10,lb=12
integer a(la,lb),b(2,la)
character *10 name(la)
integer i,j,min,max,num,s,temp
do i=1,la
print "('输入'i2.2'号选手的姓名:')",i
read(*,"(a10)")name(i)
b(1,i)=i
do j=1,lb
print "('输入'i2.2'号裁判对'i2.2'号选手的评分:')",j,i
read(*,*) a(i,j)
end do
end do
do i=1,la
min=1
max=1
do j=2,lb
if(a(i,j)>a(i,max))max=j
if(a(i,j)<a(i,min))min=j
end do
a(i,min)=0
a(i,max)=0
end do
do i=1,la
b(2,i)=0
do j=1,lb
b(2,i)=b(2,i)+a(i,j)
end do
b(2,i)=b(2,i)/la
end do

do i=1,la-1
num=i
do j=i+1,la
if(b(2,j)>b(2,num))num=j
end do
s=b(2,num)
temp=b(1,num)
b(2,num)=b(2,i)
b(1,num)=b(1,i)
b(2,i)=s
b(1,i)=temp
end do

do i=1,la
print *,b(1,i),name(b(1,i)),b(2,i)
end do
end

2、
program main
implicit none
integer i,y
real z
y=0
z=1
i=1
do while(y<1e8)
call fun(y,i)
z=z+1/real(y)
i=i+1
end do
print *,z
end

subroutine fun(y,n)
integer y,n
integer i
y=1
do i=2,n
y=y*i
end do
end subroutine

3、
program main
implicit none
integer a(4,5),b(5),i,j,k
do i=1,4
do j=1,5
print "('a('i1','i1')=')",i,j
read(*,*)a(i,j)
end do
end do
call max(a,b,4,5,1)

end

subroutine max(a,b,m,n,k)
integer a(4,5),b(5),m,n,k,i,j,nmax
if(k==1) then
do i=1,5
nmax=1
do j=2,4
if(a(j,i)>a(nmax,i)) nmax=j
end do
b(i)=a(nmax,i)
print *,b(i)
end do
else
do i=1,4
nmax=1
do j=2,5
if(a(i,j)>a(i,nmax)) nmax=j
end do
b(i)=a(i,nmax)
print *,b(i)
end do
end if

end subroutine
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
qdw82
2010-05-11
知道答主
回答量:24
采纳率:0%
帮助的人:10万
展开全部
怎么不用c语言来编写呢
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式