[流程控制] 关于块case选择结构

! 完成加减乘除四则运算，即输入两个数，再输入一个运算符号，做对应的运算
real a,b
character op  !定义一个字符变量
read *,a,b,op
select case(op)
case('+')
    print *,'两个数之和为：',a+b
case('-')
    if (a<b) then 
        print *,'被减数不能小于减数'
    else
        print *,'两个数之差为',a-b
    end if
case('*')
    print *,'两个数之积为：',a*b
case('/')
    if (b==0) then 
        print *,'除数不能为零'
    else
        print *,'两个数之商为：',a/b
    end if
case default
    print *,"输入错误，请重新输入"
end select
end

real a,b
character op
read(*,*) a , b  !// 先表控格式读取 a b 
read(*,"(a)") op !// 然后利用格式符读取 op
select case(op)
case('+')
    print *,'两个数之和为：',a+b
case('-')
    if (a<b) then 
        print *,'被减数不能小于减数'
    else
        print *,'两个数之差为',a-b
    end if
case('*')
    print *,'两个数之积为：',a*b
case('/')
    if ( abs(b)<1.0e-6 ) then !// 浮点数不要做相等判断
        print *,'除数不能为零'
    else
        print *,'两个数之商为：',a/b
    end if
case default
    print *,"输入错误，请重新输入"
end select
end