用Fortran语言,交通信号灯由红灯、绿灯、黄灯组成。红灯表示禁止通行,绿灯表示准许通行,黄灯表示等待。请从键盘输入灯色,屏幕显示输出相应指示。(使用块case结构完成)

好的，以下是使用Fortran语言完成的程序：

program traffic_light
  implicit none
  character(6) :: color   ! 存储输入的灯色
  print *, "请输入灯色（红灯/绿灯/黄灯）："
  read *, color
  select case (color)
    case ("红灯")
      print *, "禁止通行"
    case ("绿灯")
      print *, "准许通行"
    case ("黄灯")
      print *, "等待"
    case default
      print *, "输入有误，请重新输入"
  end select
end program traffic_light

在程序中，我们使用了select case结构来判断输入的灯色，并输出相应的指示。如果输入的灯色不是红灯、绿灯或黄灯，则输出提示信息。

相关问题

用Fortran语言，交通信号灯由红灯、绿灯、黄灯组成。红灯表示禁止通行，绿灯表示准许通行，黄灯表示等待。请从键盘输入灯色，屏幕显示输出相应指示。（使用块case结构完成）

好的，根据您的要求，我为您编写了以下Fortran代码：

program traffic_lights
    implicit none
    character(len=10) :: color ! 灯色

    write(*, *) "请输入灯色（红灯/绿灯/黄灯）："
    read(*, *) color

    select case (color)
        case ("红灯")
            write(*, *) "禁止通行！"
        case ("绿灯")
            write(*, *) "准许通行！"
        case ("黄灯")
            write(*, *) "请等待！"
        case default
            write(*, *) "输入错误，请重新输入！"
    end select

end program traffic_lights

您可以将以上代码保存到一个后缀名为`.f90`的文件中，然后使用Fortran编译器编译运行即可。在程序运行时，会要求您输入灯色，程序会根据输入的灯色输出相应的指示，并将结果输出到屏幕上。如果输入的灯色不是红灯、绿灯或黄灯，则程序会输出“输入错误，请重新输入！”提示。

Fortran语言中阶乘怎么表示

在Fortran语言中，阶乘可以使用循环结构来表示。以下是一个示例代码：

integer n,i,result
result=1
write(*,*) 'Please enter a positive integer:'
read(*,*) n
do i=1,n
  result=result*i
end do
write(*,*) n,'! = ',result

该代码将提示用户输入一个正整数，然后使用循环结构计算该数的阶乘。最终结果将被打印到屏幕上。