fortran移动数据问题有n个整数,编程序将前面的各个数依次向后移动k个位置,最后k个数移到最前面的k个位置如:n=8,k=3移动前:1 2 3 4 5 6 7 8移动后:6 7 8 1 2 3 4 5
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/03 00:22:11
![fortran移动数据问题有n个整数,编程序将前面的各个数依次向后移动k个位置,最后k个数移到最前面的k个位置如:n=8,k=3移动前:1 2 3 4 5 6 7 8移动后:6 7 8 1 2 3 4 5](/uploads/image/z/9622723-67-3.jpg?t=fortran%E7%A7%BB%E5%8A%A8%E6%95%B0%E6%8D%AE%E9%97%AE%E9%A2%98%E6%9C%89n%E4%B8%AA%E6%95%B4%E6%95%B0%2C%E7%BC%96%E7%A8%8B%E5%BA%8F%E5%B0%86%E5%89%8D%E9%9D%A2%E7%9A%84%E5%90%84%E4%B8%AA%E6%95%B0%E4%BE%9D%E6%AC%A1%E5%90%91%E5%90%8E%E7%A7%BB%E5%8A%A8k%E4%B8%AA%E4%BD%8D%E7%BD%AE%2C%E6%9C%80%E5%90%8Ek%E4%B8%AA%E6%95%B0%E7%A7%BB%E5%88%B0%E6%9C%80%E5%89%8D%E9%9D%A2%E7%9A%84k%E4%B8%AA%E4%BD%8D%E7%BD%AE%E5%A6%82%EF%BC%9An%3D8%2Ck%3D3%E7%A7%BB%E5%8A%A8%E5%89%8D%EF%BC%9A1+2+3+4+5+6+7+8%E7%A7%BB%E5%8A%A8%E5%90%8E%EF%BC%9A6+7+8+1+2+3+4+5)
fortran移动数据问题有n个整数,编程序将前面的各个数依次向后移动k个位置,最后k个数移到最前面的k个位置如:n=8,k=3移动前:1 2 3 4 5 6 7 8移动后:6 7 8 1 2 3 4 5
fortran移动数据问题
有n个整数,编程序将前面的各个数依次向后移动k个位置,最后k个数移到最前面的k个位置如:n=8,k=3
移动前:1 2 3 4 5 6 7 8
移动后:6 7 8 1 2 3 4 5
fortran移动数据问题有n个整数,编程序将前面的各个数依次向后移动k个位置,最后k个数移到最前面的k个位置如:n=8,k=3移动前:1 2 3 4 5 6 7 8移动后:6 7 8 1 2 3 4 5
下面的代码我没运行过,大概就这么编,有错误自己改改吧
program main
integer,parameter::n=8,k=3
integer,dimension(n)::d1,d2
open (1,file=’数据.txt’)
do i=1,n
read(1,*) d1(i)
enddo
close(1)
do i=1,k
d2(i)=d1(n-k+i)
enddo
do i=k+1,n
d2(i)=d1(i-k)
enddo
do i=1,n
write(*,*) d2(i)
enddo
end