用Fortran语言,从键盘输入实型变量a, b,如果变量a小于变量b,交换a,b的值。打印输出a,b的值。(分别使用if及case两种结构完成此题)
时间: 2024-02-15 18:04:32 浏览: 28
好的,根据您的要求,我为您编写了以下Fortran代码:
使用if结构:
```
program value_swap_if
implicit none
real :: a, b, temp
write(*, *) "请输入变量a:"
read(*, *) a
write(*, *) "请输入变量b:"
read(*, *) b
if (a < b) then
temp = a
a = b
b = temp
end if
write(*, *) "交换后的变量a和b的值分别为:", a, b
end program value_swap_if
```
使用case结构:
```
program value_swap_case
implicit none
real :: a, b, temp
write(*, *) "请输入变量a:"
read(*, *) a
write(*, *) "请输入变量b:"
read(*, *) b
select case (a < b)
case (true)
temp = a
a = b
b = temp
case (false)
! do nothing
end select
write(*, *) "交换后的变量a和b的值分别为:", a, b
end program value_swap_case
```
以上两种代码实现了相同的功能,即从键盘输入实型变量a, b,如果变量a小于变量b,交换a,b的值,最后打印输出a,b的值。如果使用if结构,则使用if语句进行判断,如果使用case结构,则使用select case语句进行判断。