FORTRAN90第二章_选择结构程序设计题库.pptVIP

§2.3.3 CASE结构的命名 CASE结构命名方式与块IF结构相仿: Case 结构名: Select case(case_exp) case (case_selector1)[Case 结构名] CASE块statements case (case_selector2) [Case 结构名] CASE块statements …. [case default [Case 结构名] DEFAULT块statements] End Select [Case 结构名] §2.4 选择结构程序设计举例 例:输入一个整数,如果能被7整除则输出“YES”,否则输出“NO”。 logical l integer k read*,k l=mod(k,7)==0 if(l)then print*,yes else print*,no endif end 例：打印学生成绩等级 implicit none real g select case(int(g)) case(90:100) print*, ’a’ case(80:89) print*, ’b’ case(70:79) print*, ’c’ case(60:69) print*, ’d’ case(:59) print*, ’e’ case default prin