2.3 SELECT CASE结构.ppt

2.3 SELECT CASE结构 SELECT CASE 语句 SELECT CASE 语句可以取代某些使用IF-ELSE IF的语句，使程序更加简洁 利用select case结构也可以实现多重判定,即多分支选择结构. 放入所要判断的变量 SELECT CASE 基本结构： SELECT CASE(变量) CASE(数值1) 语句块1 !变量等于数值1时执行本模块代码 CASE(数值2) 语句块2 !变量等于数值2时执行本模块代码 . . . CASE(数值n) 语句块n !变量等于数值n时执行本模块代码 CASE DEFAULT 语句块n+1 !变量不等于以上数值时执行本模块代码 END SELECT 放入所要判断的变量 ① 变量只能是整型、字符型和逻辑型； ②数值n只能是常量，不能是变量，且必须和select case中的变量有相同的类型，它可以是单个的常数，或是用逗号分开的多个常数。也可以是用冒号分开的两个常数，表示一个值域，即取包括这两个常数在内的所有这两个数之间的数值。 Case 中判断数值的写法 case(1) !变量==1时，会执行这个case中的程序模块 case(1:5) !1=变量=5时，会执行这个case中的程序模块 case(1: ) !变量=1时，会执行这个case中的程序模块 case( :5) !变量=5时，会执行这个case中的程序模块 case(1,3, 5) !变量==1或3或5时，会执行这个case中的程序模块 限制： （1）判断的数据只能用整型、字符型与逻辑型， 不能是浮点数和复数 （2）每个CASE中的数值只能是固定的常量，不能使用变量 （3） case中的数值范围不能重叠 例： A=65 Read(*, *) key Select case(key) Case(a) !这一行程序错，A为变量 …… Case(c) ! 如果c声明成parameter 的常量，才可以 …… 例：判断运算方法 program ex0513 implicit none real a,b,ans character operator read(*,*) a read(*,(A1)) operator ! 不使用格式有些机器会读不到除号/ read(*,*) b 例：判断运算方法 select case(operator) case(+) ans = a+b case(-) ans = a-b case(*) ans = a*b case(/) ans = a/b case default ! 输入其它符号不处理 write(*,(Unknown operator ,A1)) operator stop ! 结束程序 end select write(*,(F6.2,A1,F6.2,=,F6.2)) a,operator,b,ans end 注意：字符数值的判断书写 2.3 SELECT CASE结构