结构工程师基础科目(一)答疑精选3
浏览
收藏
问题内容
对 下列程序段
PARAMETER(N=3)
INTEGER A(N，N)
READ*，A
DO 10J=1， N
20 LS=LS+A(I，J)
LS=LS/N
DO 30 I=1，N
30 A(I，J) =A(I，J) -LS
10 CONTINUE
PRING*，A
END
若输入2，4，6，8，10，12，14，16，18
则程序运行后A(3，2)为?
用fortran90程序编译出结果为:14.这道题是否超刚?教材答案是2
老师回复用fortran90程序编译出结果为:14.对于程序段，如果同学不会，可以下载fortran进行编译得出结果。
老师回复同学如果答案是2,那么你的题目没有写完整。
原题中的
LS=0
DO 20 I=1,N
你没有打进去。
原题为：
PARAMETER (N=3)
INTEGER A(N,N)
READ *,A
DO 10 J=1,N
LS=0
DO 20 I=1,N
20 LS=LS+A(I,J)
LS=LS/N
DO 30 I=1,N
30 A(I,J)=A(I,J)-LS
10 CONTINUE
PRINT *,A(3,2)
END
答案为2.
A (3,2)
DO 10 J=1,N (J=2)
LS=0
DO 20 I=1,N
20 LS=LS+A(I,J) (LS=A(1,2)+A(2,2)+A(3,2)=8+10+12=30)
LS=LS/N (LS=30/3=10)
DO 30 I=1,N
30 A(I,J)=A(I,J)-LS (A(3,2)=12-10=2)
10 CONTINUE
PRINT *,A(3,2)
END
最新资讯
- 2024年结构工程师进央企注册，最高可获得2万元一次性奖励2024-09-30
- 多重补贴：某央企的结构工程师注册补贴公布2024-09-25
- 一级结构工程师含金量有多高2024-07-25
- 二级结构工程师该如何备考2024-05-16
- 一级结构工程师基础怎么备考2024-05-16
- 结构工程师是做什么的2024-05-10
- 结构工程师有前途吗2024-05-10
- 一级注册结构工程师一年挣多少钱2024-05-10
- 结构工程师前景及待遇2024-05-08
- 结构工程师的工作内容2024-05-04
打卡人数
