利用Fortran将35插入一组数中并使其按一定顺序排列
时间: 2023-11-28 20:50:12 浏览: 40
以下是一种可能的Fortran程序来实现这个任务:
```
PROGRAM INSERTION_SORT
IMPLICIT NONE
INTEGER :: N, I, J, TEMP, POS
INTEGER :: ARRAY(100)
! 读入数组大小和元素
WRITE(*,*) 'Enter the number of elements (up to 100):'
READ(*,*) N
WRITE(*,*) 'Enter the elements:'
DO I = 1, N
READ(*,*) ARRAY(I)
END DO
! 将35插入数组中
POS = 1
DO WHILE (POS <= N .AND. ARRAY(POS) < 35)
POS = POS + 1
END DO
IF (POS <= N) THEN
TEMP = ARRAY(POS)
ARRAY(POS) = 35
DO J = POS+1, N+1
TEMP2 = ARRAY(J)
ARRAY(J) = TEMP
TEMP = TEMP2
END DO
N = N + 1
ELSE
ARRAY(N+1) = 35
N = N + 1
END IF
! 对数组进行插入排序
DO I = 2, N
TEMP = ARRAY(I)
J = I - 1
DO WHILE (J >= 1 .AND. ARRAY(J) > TEMP)
ARRAY(J+1) = ARRAY(J)
J = J - 1
END DO
ARRAY(J+1) = TEMP
END DO
! 输出结果
WRITE(*,*) 'The sorted array is:'
DO I = 1, N
WRITE(*,*) ARRAY(I)
END DO
END PROGRAM INSERTION_SORT
```
该程序首先读取输入的数组大小和元素,并将35插入到数组中。然后,它使用插入排序算法对数组进行排序,并将结果输出到控制台。请注意,该程序假定输入的所有元素都是小于等于100的整数。如果需要更大的数组或更广泛的输入处理,请相应地修改程序。
相关推荐
![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)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)