用Fortran ,从键盘输入10个实型数赋给某数组,要求将前5个元素与后5个元素对调。即第1个与第10个对调,第2个与第9个对调,…,第5个与第6个对调。即将数组倒序重排。输出数组中原先各元素的值和对调后各元素的值。
时间: 2024-03-08 15:45:57 浏览: 156
好的,这是一个简单的数组操作题目,以下是Fortran代码实现:
```fortran
program swap_array
implicit none
integer :: i, n
real :: arr(10), temp
! 输入10个实型数
do i = 1, 10
write(*, *) "请输入第", i, "个数:"
read(*, *) arr(i)
end do
! 前5个元素与后5个元素对调
do i = 1, 5
temp = arr(i)
arr(i) = arr(11-i)
arr(11-i) = temp
end do
! 输出数组中原先各元素的值和对调后各元素的值
write(*, *) "原数组:"
do i = 1, 10
write(*, *) arr(i)
end do
write(*, *) "对调后的数组:"
do i = 1, 10
write(*, *) arr(i)
end do
end program swap_array
```
在程序运行时,你可以依次输入10个实型数,程序将会输出原数组和对调后的数组的值。注意,这里我们对数组下标进行了一些变换,在循环中使用了11-i代替了10-i,这是因为Fortran数组下标从1开始,而不是从0开始,因此最后一个元素的下标是10而不是9。
阅读全文