point_number用数组
时间: 2024-03-14 15:44:38 浏览: 22
如果要使用数组来存储每个点的序号,可以将 `point_number` 变量改为一个长度为 `total_points` 的整数数组,其中 `total_points` 是所有方框中点的总数。以下是修改后的代码:
```
program label_points_array
implicit none
integer :: i, j, k, total_points
integer, dimension(4) :: points = [4, 3, 1, 4]
integer, dimension(:), allocatable :: point_numbers
total_points = sum(points) ! 计算所有方框中点的总数
allocate(point_numbers(total_points)) ! 动态分配数组空间
k = 1 ! 初始化点的序号
do i = 1, size(points)
do j = 1, points(i)
point_numbers(k) = i ! 将当前点所在方框的编号存储到数组中
k = k + 1 ! 更新点的序号
end do
end do
do i = 1, total_points
write(*,*) "Point", i, "is in box", point_numbers(i)
end do
deallocate(point_numbers) ! 释放数组空间
end program label_points_array
```
这个程序先计算出所有方框中点的总数,然后动态分配一个长度为 `total_points` 的整数数组 `point_numbers` 来存储每个点所在方框的编号。程序使用一个循环遍历所有点,并将每个点所在方框的编号存储到 `point_numbers` 数组中,同时更新点的序号。最后,程序使用另一个循环遍历数组,输出每个点的序号以及所在方框的编号。最后,程序释放 `point_numbers` 数组的空间。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![application/msword](https://img-home.csdnimg.cn/images/20210720083327.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_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)