Fortran三种方法打印 123456循环左移方阵1 2 3 4 5 62 3 4 5 6 13 4 5 6 1 24 5 6 1 2 35 6 1 2 3 4 这个怎么做 我完全小白 看到就蒙了
来源:学生作业帮助网 编辑:六六作业网 时间:2025/01/03 16:41:08
Fortran三种方法打印 123456循环左移方阵1 2 3 4 5 62 3 4 5 6 13 4 5 6 1 24 5 6 1 2 35 6 1 2 3 4 这个怎么做 我完全小白 看到就蒙了
Fortran三种方法打印 123456循环左移方阵
1 2 3 4 5 6
2 3 4 5 6 1
3 4 5 6 1 2
4 5 6 1 2 3
5 6 1 2 3 4
这个怎么做 我完全小白 看到就蒙了
Fortran三种方法打印 123456循环左移方阵1 2 3 4 5 62 3 4 5 6 13 4 5 6 1 24 5 6 1 2 35 6 1 2 3 4 这个怎么做 我完全小白 看到就蒙了
program main
implicit none
integer::a(6)=(/1,2,3,4,5,6/),b(12)
integer::i,j,k,m
b(1:6)=a(1:6)
b(7:12)=a(1:6)
write(*,*)'方法一'
do i=1,6
do j=i,i+5
k=j
if(k>6)then
k=k-6
endif
write(*,'(I,\)')a(k)
enddo
write(*,*)
enddo
write(*,*)'方法二'
do i=1,6
write(*,*)b(0+i:0+i+5)
enddo
write(*,*)'方法三'
do i=1,6
write(*,*)a
m=a(1)
do j=1,5
a(j)=a(j+1)
enddo
a(6)=m
enddo
pause
endprogram