fortran问题 解决运算过程了 缺个读写文件内容 求大神帮助
fortran问题解决运算过程了缺个读写文件内容求大神帮助PROGRAMTASK_PROGRAMIMPLICITNONEINTERGE::M,N,I,J,K,P,Q,TI...
fortran问题 解决运算过程了 缺个读写文件内容 求大神帮助PROGRAM TASK_PROGRAM
IMPLICIT NONE
INTERGE::M,N,I,J,K,P,Q,T
INTEGER,DIMENSION(8,8)::MAIN_ARRAY
DO I 2:7
DO J 2:7
T=0
DO K 0:7
IF(K>=5)
K=K+1
END IF
P=MOD(K,3)
Q=K%3
M=I-1+Q
N=J-1+P
IF(MAIN_ARRAY(M,N)<MAIN_ARRAY(I,J))
T=T+1
END IF
IF(T==8)
WRITE(*,*) '(', M, ',', N, ')', MAIN_ARRAY(M,N)
END IF
END DO
END DO
END DO
END PROGRAM TASK_PROGRAM 展开
IMPLICIT NONE
INTERGE::M,N,I,J,K,P,Q,T
INTEGER,DIMENSION(8,8)::MAIN_ARRAY
DO I 2:7
DO J 2:7
T=0
DO K 0:7
IF(K>=5)
K=K+1
END IF
P=MOD(K,3)
Q=K%3
M=I-1+Q
N=J-1+P
IF(MAIN_ARRAY(M,N)<MAIN_ARRAY(I,J))
T=T+1
END IF
IF(T==8)
WRITE(*,*) '(', M, ',', N, ')', MAIN_ARRAY(M,N)
END IF
END DO
END DO
END DO
END PROGRAM TASK_PROGRAM 展开
1个回答
展开全部
fortran77 程序，供参考。
dimension a(100,100)
open(5,file='an_dian.txt',status='old')
read(5,*)m,n
write(*,*)m,n
do 10 i=1,m
read(5,*) (a(i,j),j=1,n)
10 continue
write(*,100)((a(i,j),j=1,n),i=1,m)
close(5)
100 format(1x,8f7.1)
do 20 i=2,m-1
do 30 j=2,n-1
k=0
if (a(i,j).gt.a(i-1,j-1)) k=k+1
if (a(i,j).gt.a(i-1,j)) k=k+1
if (a(i,j).gt.a(i-1,j+1)) k=k+1
if (a(i,j).gt.a(i,j-1)) k=k+1
if (a(i,j).gt.a(i,j+1)) k=k+1
if (a(i,j).gt.a(i+1,j-1)) k=k+1
if (a(i,j).gt.a(i+1,j)) k=k+1
if (a(i,j).gt.a(i+1,j+1)) k=k+1
if (k.eq.8) write(*,*) i,j
30 continue
20 continue
stop
end
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
