Fortran Coder

查看: 36|回复: 2

[求助] 二维数组的应用

[复制链接]

9

帖子

4

主题

0

精华

入门

F 币
55 元
贡献
36 点
发表于 7 天前 | 显示全部楼层 |阅读模式
请教一下,问题出在哪里呢,我是按照书上的例子写的
微信截图_20200730132923.png
回复

使用道具 举报

152

帖子

0

主题

0

精华

版主

World Analyser

F 币
319 元
贡献
299 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
发表于 7 天前 | 显示全部楼层
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

9

帖子

4

主题

0

精华

入门

F 币
55 元
贡献
36 点
 楼主| 发表于 7 天前 | 显示全部楼层
kyra 发表于 2020-7-30 14:03
1. 变量和数组要定义!!!
2. 要写 Implicit None
3. 要知道,你学的是Fortran,它是一门向量化的语言。如 ...

非常感谢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2020-8-6 23:49

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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