作业帮fortran程序求教
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/30 13:05:22
fortran程序求教
program sjk01
implicit none
integer::a(5,5),b(5,5),i,j
do i=5
do j=1,5
a(i,j)=0
b(i,j)=(i-j)+1
enddo
a(i,j)=1
enddo
write (*,'(5x,5i6)' ((a(i,j),i=1,5),i=1,5)
write (*,'(5x,5i6)') ((b(i,j),j=1,5),i=1,5)
end
一个数据库的题目 老是不对 求指导!
program sjk01
implicit none
integer::a(5,5),b(5,5),i,j
do i=5
do j=1,5
a(i,j)=0
b(i,j)=(i-j)+1
enddo
a(i,j)=1
enddo
write (*,'(5x,5i6)' ((a(i,j),i=1,5),i=1,5)
write (*,'(5x,5i6)') ((b(i,j),j=1,5),i=1,5)
end
一个数据库的题目 老是不对 求指导!
执行 a(i,j)=1 这一句的时候,刚跳出 j 的循环, j 应该等于6的,给a(i,j)赋值应该会有问题
另外输出的时候((a(i,j),i=1,5),i=1,5),两个都是 i ,没问题么?
另外输出的时候((a(i,j),i=1,5),i=1,5),两个都是 i ,没问题么?