Fortran Coder

标题: 二维数组的应用 [打印本页]

作者: 胆怯滴大侠 时间: 2020-7-30 13:34
标题: 二维数组的应用
请教一下，问题出在哪里呢，我是按照书上的例子写的

微信截图_20200730132923.png (24.27 KB, 下载次数: 225)

作者: kyra 时间: 2020-7-30 14:03
1. 变量和数组要定义！！！
2. 要写 Implicit None
3. 要知道，你学的是Fortran，它是一门向量化的语言。如果按照你的写法，还不如学C语言。

[Fortran] 纯文本查看 复制代码

program he

  Implicit None

  Real :: a(4,5),suma,average

  integer :: i

  a = reshape([2,5,12,7,6,-1,0,6,4,3,4,-9,9,8,10,5,-13,7,2,3],shape(a))

  suma=sum(a)

  average=suma/size(a)

  where( a<average) a = 0

  do i = 1 , size(a,2)

    write(*,*) a(:,i)

  end do

end program he

作者: 胆怯滴大侠 时间: 2020-7-30 16:51

kyra 发表于 2020-7-30 14:03
1. 变量和数组要定义！！！
2. 要写 Implicit None
3. 要知道，你学的是Fortran，它是一门向量化的语言。如 ...

非常感谢

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)