用Fortran语言,从键盘输入10个实型数赋给某数组,要求将前5个元素与后5个元素对调。即第1个与第10个对调,第2个与第9个对调,…,第5个与第6个对调。即将数组倒序重排。输出数组中原先各元素的值和对调后各元素的值。
时间: 2024-03-07 07:49:47 浏览: 25
好的,我来帮你解决这个问题。
以下是Fortran代码:
```fortran
program swap_array
implicit none
real :: arr(10)
real :: temp
integer :: i
! 从键盘读入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
```
你可以将以上代码保存为.f90文件,然后使用Fortran编译器进行编译和运行。程序会要求你输入10个实型数,然后输出数组中原先各元素的值和对调后各元素的值。
希望能帮到你!
相关问题
用Fortran ,从键盘输入10个实型数赋给某数组,要求将前5个元素与后5个元素对调。即第1个与第10个对调,第2个与第9个对调,…,第5个与第6个对调。即将数组倒序重排。输出数组中原先各元素的值和对调后各元素的值。
好的,这是一个简单的数组操作题目,以下是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。
用fortran语言编写:从键盘输入十个数,要求按输入时的逆序输出
你好!下面是一个例子,如何用Fortran语言从键盘输入十个数并按逆序输出:
program inverse_input
implicit none
integer :: i, n, a(10)
! 从键盘输入十个数
do i = 1, 10
write(*,'(A)') '请输入一个数:'
read(*,'(I5)') n
a(i) = n
end do
! 按输入时的逆序输出
do i = 10, 1, -1
write(*,'(I5)') a(i)
end do
end program inverse_input
在这个例子中,我们定义了一个整数数组a,用来存储从键盘输入的十个数。然后,我们使用一个循环从键盘输入这十个数,并将它们存储在数组a中。最后,我们使用另一个循环按逆序输出数组a中的数。
希望这能帮到你!如果你有其他问题,请随时追问。
相关推荐
![application/pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)