Fortran编程和编译运行。要求:屏幕输出:“这是第*组。组员包括:***、***……“。(中英文均可)
时间: 2023-11-14 19:52:59 浏览: 42
Fortran code:
program group_members
implicit none
integer :: group_num, num_members, i
character(len=20) :: members(10)
write(*,*) "请输入组数:"
read(*,*) group_num
do i=1, group_num
write(*,*) "请输入第", i, "组的成员数:"
read(*,*) num_members
write(*,'("这是第",i2,"组。组员包括:")') i
do j=1, num_members
write(*,*) "请输入第", j, "个成员的姓名:"
read(*,*) members(j)
end do
write(*,*) trim(members(1:num_members))
end do
end program group_members
编译运行:
1. 使用Fortran编译器编译代码,比如gfortran:
gfortran group_members.f90 -o group_members
2. 运行可执行文件:
./group_members
示例输出:
请输入组数:
2
请输入第 1 组的成员数:
3
这是第 1 组。组员包括:
请输入第 1 个成员的姓名:
张三
请输入第 2 个成员的姓名:
李四
请输入第 3 个成员的姓名:
王五
请输入第 2 组的成员数:
2
这是第 2 组。组员包括:
请输入第 1 个成员的姓名:
赵六
请输入第 2 个成员的姓名:
钱七
张三 李四 王五
赵六 钱七
相关推荐
![](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)