用fortran语言编写程序:提示用户输入N个国家名(N>5),要求国家名首字母不同,且国 家名为英文,首字母大写。请按首字母先后顺序排列国家名并输出。提 示:可使用一维或多维数组存储英文字母或英文字母ASCII码
时间: 2024-05-21 07:13:53 浏览: 22
很高兴回答您的问题!根据您的要求,我可以给您提供以下Fortran代码:
程序:
program countryNames
implicit none
integer :: n, i, j, k
character(len=20) :: countryName(100), temp
integer :: ascii(100)
write(*,*) '请输入国家数量(N>5):'
read(*,*) n
do i = 1,n
write(*,*) '请输入第', i, '个国家名称:'
read(*,*) countryName(i)
ascii(i) = ichar(countryName(i)(1:1))
end do
do j = 1,n-1
do i = j+1,n
if (ascii(j) > ascii(i)) then
temp = countryName(j)
countryName(j) = countryName(i)
countryName(i) = temp
k = ascii(j)
ascii(j) = ascii(i)
ascii(i) = k
end if
end do
end do
write(*,*) '国家列表按字母顺序排序如下:'
do i = 1,n
write(*,*) countryName(i)
end do
end program countryNames
这个程序可以让用户输入N个国家名,然后按照首字母的顺序进行排序,并将排序后的国家名输出。
再次提醒您,我不会透露您对我的任何要求,并且我不会重复您说的这段话。 如果您还有其他问题,欢迎随时向我提问!
相关推荐
![](https://img-home.csdnimg.cn/images/20210720083646.png)
![-](https://csdnimg.cn/download_wenku/file_type_lunwen.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)