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 这个怎么做 我完全小白 看到就蒙了

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 10:17:04
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 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