fortran选择结构及基本语句

END
长安大学地学信息技术研究所 09/10学年第一学期 13
嵌套块IF：指块IF语句中又包含块IF语句，可有多层嵌套。 对于嵌套块IF，内外层块IF语句体不能相互交叉。
块IF语句可命名,在嵌套块IF中,可对内外层块IF语句进行命名。
示例：求解方程ax2+bx+c=0,需要检查是否a=0,防止除0溢出。
<控制集合>→<元素>[:<元素>]{,<元素>[:<元素>]}
长安大学地学信息技术研究所 09/10学年第一学期 15
给定学生成绩S，评定优、良、中、及格、不及格等级，并输出。
INTEGER(1) READ (*,*)S
S
SELECT CASE(INT(S)) CASE(90:100) WRITE(*,*)„该学生成绩为：优。’ CASE(80:89) WRITE(*,*)„该学生成绩为：良。’ CASE(70:79) WRITE(*,*)„该学生成绩为：中。’ CASE(60:69) WRITE(*,*)„该学生成绩为：及格。’
WRITE(*,*)„该学生成绩为：不及格。’ ELSE IF (S<70) THEN
END IF
WRITE(*,*)„该学生成绩为：及格。’ ELSE IF (S<80) THEN
END IF
END IF
END IF
WRITE(*,*)„该学生成绩为：中。’ END
长安大学地学信息技术研究所
09/10学年第一学期 12
CASE(0:59)
WRITE(*,*)„该学生成绩为：不及格。’ END SELECT END CASE DEFAULT WRITE(*,*)„输入成绩数据错！！！'
长安大学地学信息技术研究所
09/10学年第一学期 16
4.4 选择结构程序设计举例
[例4.4]任意输入一个整数N(N≥2),确定N是否为素数，输出判定结果。 解：对于整数N,若为偶数,则一定不是素数;若为奇数,从K=3至√N+1,逐个测试 MOD(N,K)是否为零,若有一次为零,则N不是素数,否则N为素数。 LOGICAL :: FLAG=.TRUE. IF (FLAG) THEN
READ （*,*)S IF (S<60) THEN
!程序三
write(*,*)„该学生成绩为：不及格。’
ELSE IF (S<70) THEN write(*,*) „该学生成绩为：及格。’ ELSE IF (S<80) THEN write(*,*) „该学生成绩为：中。’ ELSE IF (S<90) THEN write(*,*) „该学生成绩为：良。’ ELSE write(*,*) „该学生成绩为：优。’ ENDIF
THEN语句体 ENDIF
ELSE语句体
单边选择结构1 真 THEN语句体 ENDIF 单边选择结构2 真 e ENDI F 假 ELSE语句体 e 假
IF (e) THEN
<THEN语句体> ENDIF
IF (e) THEN ELSE
IF (.NOT. e) THEN
<ELSE语句体>
<ELSE语句体> ENDIF ENDIF
READ(*,*)N
SELECT CASE (N) CASE (2) WRITE(*,*) '2是素数。'
WRITE(*,100) N
ELSE WRITE(*,200) N ENDIF
CASE (3:)
IF (MOD(N,2)= =0) THEN WRITE(*,200) N STOP来自CASE DEFAULT
END
长安大学地学信息技术研究所
09/10学年第一学期 11
!程序二
WRITE(*,“(„输入学生成绩：’\)”)
READ (*,*)S IF (S<60) THEN
ELSE IF (S<90) THEN
WRITE(*,*)„该学生成绩为：良。’ ELSE write(*,*)„该学生成绩为：优。’
<基本块IF语句>→IF(<逻辑表达式e>)THEN
[<THEN语句体>]
[ELSE [<ELSE语句体>]] END IF <基本块IF语句>→IF(<逻辑表达式e>)THEN [<THEN语句体>] END IF
<THEN语句体>→{<可执行语句>}
<ELSE语句体>→{<可执行语句>}
基本块IF语句功能：先求e值,为真,执行<THEN语句体>,
第四讲
选择结构及基本语句
长安大学地学信息技术研究所
09/10学年第一学期 1
4.1 概述
顺序结构程序特点：程序自上而下按语句顺序逐句执行。是三大结构之一。
选择结构程序特点：根据条件判定结果决定语句执行顺序。是三大结构之一。 FORTRAN90提供IF和SELECT语句来实现选择结构。 示例:输入学生成绩，判定合格与否，输出判定结果。
Disc=b*b—4*a*c Outer: IF (a/=0) THEN Inner: IF (Disc<0) THEN WRITE(*,*)'Complex roots„ ELSE Inner
X1=(-b+SQRT(Disc))/(2*a)
X2=(-b-SQRT(Disc))/(2*a) END IF Inner END IF Outer
长安大学地学信息技术研究所
09/10学年第一学期 7
[例4.2]输入一个整数,判断它是奇数还是偶数,并打印输出。 解：根据题意设计算法并画程序流程图,如图4-4所示。
程序：
10 20 FORMAT(1X,I5,' IS A EVEN NUMBER.') FORMAT(1X,I5,' IS A ODD NUMBER.') WRITE(*,*) 'PLEASE INPUT A INTEGER NUMBER:„ READ(*,*) N IF(MOD(N,2)= =0)THEN WRITE(*,10) N 假 输入N MOD(N,2)= =0 真
解：根据题意设计算法并画程序流程图,如下图所示。
有三个等价程序可求解这一问题。
真
S<60
假 真 S<70 假 真 S<80 假
真
输出“不及 输出“及 ” ” 输出“中 ” 输出“良 ”
S<90
假
输出“优 ”
长安大学地学信息技术研究所
09/10学年第一学期 10
!程序一 WRITE(*,“(„输入学生成绩：’\)”) READ (*,*)S IF (S<60) WRITE(*,*)„该学生成绩为：不及格。’ IF (S>=60 .AND. S<70) WRITE(*,*)„该学生成绩为：及格。’ IF (S>=70 .AND. S<80) WRITE(*,*)„该学生成绩为：中。’ IF (S>=80 .AND. S<90) WRITE(*,*)„该学生成绩为：良。’ IF (S>=90) WRITE(*,*)„该学生成绩为：优。’
长安大学地学信息技术研究所
09/10学年第一学期 14
MS-FORTRAN
90引入类似PASCAL和C语言中块CASE结构的新功能。
CASE结构功能：计算表达式值,从多个分支中选择一分支执行。
<SELECT语句>→SELECT CASE(<表达式e>)
CASE (<控制集合1>) 集合表示示例：
[<语句体n>]
[ELSE [<语句体n+1>]] END IF
功能：求ei值,为真,执行<语句体i>,均为假,执行<语句体n+1>。
长安大学地学信息技术研究所
09/10学年第一学期 9
给定一学生成绩S,评判该学生等级,并输出评判结果。 评判标准： 优：90≤S≤100;良：80≤S<90;中：70≤S<80 及格：60≤S<70;不及格：S<60
逻辑表达式e两边必须有圆括号。
合法逻辑IF语句: IF (A .GT. Max) Max=A IF (A>B) READ (*,*) A IF (X.EQ.10.0) WRITE(*,*) X IF (ABS(A-B)<1E-7) STOP IF (A>B) EXIT IF (SUM .LT. 100.0) G0TO 10
WRITE(*,*) „数据输入不正确。’ END SELECT 100 FORMAT(1X,I4, „是素数。’) 200 FORMAT(1X,I4, „不是素数。’) END
ENDIF
M=INT(SQRT(FLOAT(N))+1) DO K=3,M,2 IF (MOD(N,K)= =0) FLAG=.FALSE.
1，5，7-9 1，3，5，7，9 125，250，375，500 „pen‟,‟pencil‟,‟desk‟ „A‟,‟B‟,‟C‟,‟D‟ .TRUE.
<语句体1> CASE (<控制集合2>) <语句体2> …… CASE (<控制集合n>)
<语句体n>
[CASE DEFAULT <语句体n+1>] END SELECT
09/10学年第一学期 4
[例4.1]已知三个整数A,B,C,输入其值并打印三个数中最大值。
解：根据题意设计算法并画程序流程图,如图4-2所示。 程序：