fortran选择结构及基本语句课件.pptVIP

!程序一 WRITE(*,“(‘输入学生成绩：’\)”) READ (*,*)S IF (S60) WRITE(*,*)‘该学生成绩为：不及格。’ IF (S=60 .AND. S70) WRITE(*,*)‘该学生成绩为：及格。’ IF (S=70 .AND. S80) WRITE(*,*)‘该学生成绩为：中。’ IF (S=80 .AND. S90) WRITE(*,*)‘该学生成绩为：良。’ IF (S=90) WRITE(*,*)‘该学生成绩为：优。’ END 精品 !程序二 WRITE(*,“(‘输入学生成绩：’\)”) READ (*,*)S IF (S60) THEN WRITE(*,*)‘该学生成绩为：不及格。’ ELSE IF (S70) THEN WRITE(*,*)‘该学生成绩为：及格。’ ELSE IF (S80) THEN WRITE(*,*)‘该学生成绩为：中。’ ELSE IF (S90) THEN WRITE(*,*)‘该学生成绩为：良。’ ELSE write(*,*)‘该学生成绩为：优。’ END IF END IF END IF END IF E