Fortran Coder

查看: 459|回复: 2

[求助] 求改一下

[复制链接]

5

帖子

2

主题

0

精华

入门

F 币
73 元
贡献
56 点
发表于 2018-6-3 16:50:41 | 显示全部楼层 |阅读模式
[Fortran] 纯文本查看 复制代码
character*6,dimension(:),allocatable::xh
integer,dimension(:,:),allocatable::usual,final
integer,dimension(:),allocatable::zong
integer,dimension(:),allocatable::mingci
integer,dimension(:,:),allocatable::m(11),s(n)
integer i,j
print *,"请输入学生人数"
read *,n
allocate(xh(n))
allocate(usual(n),fianl(n))
allocate(zong(n))
do i=1,n
        read *,xh(i)
end do
do i=1,n
  zong(i)=usual(i)*0.3+final(i)*0.7
  do j=1,n 
   zong(j)=usual(j)*0.3+final(j)*0.7
  enddo
enddo
data m/11*0/
read(*,*)(s(i),i=1,n)
do i=1,n
     if(s(i)<=100.and.s(i)>=0)then
        k=s(i)/10+1
        m(k)=m(k)+1
     end if
end do
write(*,*)m
mingci=1
do i=1,n
do j=1,n
if (zong(i)<zong(j))then 
mingci(i)=mingci(i)+1
end if
end do
end do
print *,zong(i),mingci(i)
end


上边那个定义的n有问题,怎么改
回复

使用道具 举报

5

帖子

2

主题

0

精华

入门

F 币
73 元
贡献
56 点
 楼主| 发表于 2018-6-3 16:52:38 | 显示全部楼层
上边那个dimension定义的n,FORTRAN95

1323

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂伙计

F 币
222 元
贡献
261 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2018-6-4 08:22:04 | 显示全部楼层
和其他可分配数组,例如zong一样,照猫画虎就是
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2018-12-14 04:19

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表