用Fortran语言编写程序:如果n为偶数则输出n加1,如果n为奇数则输出2n
时间: 2023-09-06 17:04:38 浏览: 350
### 回答1:
以下是用Fortran语言编写的程序,实现当n为偶数时输出n+1,当n为奇数时输出2n的功能:
```
program even_odd
implicit none
integer :: n, result
write(*,*) '请输入一个整数n:'
read(*,*) n
if (mod(n, 2) == 0) then
result = n + 1
write(*,*) 'n为偶数,输出n+1:', result
else
result = 2 * n
write(*,*) 'n为奇数,输出2n:', result
end if
end program even_odd
```
程序首先要求用户输入一个整数n,然后通过使用mod(n, 2)函数来判断n是偶数还是奇数。如果n是偶数,则将n加1并将结果输出;如果n是奇数,则将2n作为结果输出。在程序中,使用write(*,*)语句将结果输出到屏幕上。
### 回答2:
使用Fortran语言编写程序可以实现以下逻辑:
```fortran
program check_number
implicit none
integer :: n, result
! 从用户输入获取一个整数
print*, "请输入一个整数:"
read*, n
! 根据n的奇偶性进行判断并输出结果
if(mod(n, 2) == 0) then
result = n + 1
print*, "输入的整数为偶数,输出为:", result
else
result = 2 * n
print*, "输入的整数为奇数,输出为:", result
end if
end program check_number
```
这个程序首先向用户要求输入一个整数n,然后根据n的奇偶性通过使用mod函数进行判断。如果n是偶数,则将n加1并输出结果;如果n是奇数,则将n乘以2并输出结果。
### 回答3:
Fortran是一种高级编程语言,可以用来编写各种应用程序。下面是一个用Fortran编写的程序,根据给定的整数n的奇偶性,输出对应的结果。
```fortran
program check_number
implicit none
integer :: n, result
! 从用户输入获取整数n
write(*,*) '请输入一个整数n:'
read(*,*) n
! 判断n的奇偶性并计算结果
if (mod(n, 2) == 0) then
result = n + 1
else
result = 2 * n
end if
! 输出结果
write(*,*) '根据给定的数', n, '的奇偶性,计算得到的结果为:', result
end program check_number
```
以上程序首先会提示用户输入一个整数n,并读取这个输入值。接下来,程序使用Fortran的mod函数来判断n的奇偶性,如果n除以2的余数为0,则说明n是偶数,将n加1作为计算结果;否则,说明n是奇数,将2乘以n作为计算结果。最后,程序输出根据给定的数n的奇偶性所计算得到的结果。
阅读全文