用Fortran语音编写:输入十个数,统计其中正数,负数和零的个数
时间: 2024-05-24 07:13:46 浏览: 20
您好,我能够理解您的问题。这是一个关于Fortran语言的问题,程序可以如下编写:
program count_positive_negative
integer :: num, positiveCount = 0, negativeCount = 0, zeroCount = 0
do i = 1, 10
write(*,*) "请输入第", i, "个数:"
read(*,*) num
if(num > 0) then
positiveCount = positiveCount + 1
else if(num < 0) then
negativeCount = negativeCount + 1
else
zeroCount = zeroCount + 1
end if
end do
write(*,*) "正数个数:", positiveCount
write(*,*) "负数个数:", negativeCount
write(*,*) "零的个数:", zeroCount
stop
end program count_positive_negative
希望能够帮助您。
相关问题
用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中的数。
希望这能帮到你!如果你有其他问题,请随时追问。
用Fortran语言编写程序:输入5个数,按从小到大排列输出
好的,以下是用Fortran语言编写的程序:
```
program sort
implicit none
integer :: a(5), i, j, temp
! 输入5个数
do i = 1, 5
write(*,*) '请输入第', i, '个数:'
read(*,*) a(i)
end do
! 冒泡排序
do i = 1, 4
do j = i+1, 5
if (a(i) > a(j)) then
temp = a(i)
a(i) = a(j)
a(j) = temp
end if
end do
end do
! 输出排序结果
write(*,*) '从小到大排序结果为:'
do i = 1, 5
write(*,*) a(i)
end do
end program sort
```
程序的运行结果如下:
```
请输入第 1 个数:
5
请输入第 2 个数:
2
请输入第 3 个数:
9
请输入第 4 个数:
3
请输入第 5 个数:
7
从小到大排序结果为:
2
3
5
7
9
```
相关推荐
![](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)