F程序设计_3.docVIP

第章 .1 if结构 3.1.1 程序示例 从键盘输入一个成绩，如果小于60分，输出“fail!”；60分和70分之间，输出“pass!”；70分和90分之间，输出“good!”；90分以上，输出“excellent!”。 程序清单如下： program your_score implicit none real::score print*,input your score: !输入提示 read*,score !输入成绩 if (score=0.and.score60) then !if结构 print*,fail! else if (score70) then print*,pass! else if (score90) then print*,good! else if (score=100) then print*,excellent! else print*,incorrect score! end if end program your_score 在以上程序中，通过语句read*,score从键盘上读入变量score的值，然后顺序执行后面的if结构。这个if结构是我们所不熟悉的新内容，它从if语句开始，一直到end if语句结束。 如果if后面的表达式score=0.and.score60的值为.true.，就执行从它到后面else if语句之间的语句，即 print*,fail!，然后跳转到if结构的结束语句end if； 否则如果else if 后的表达式score70的值为.true.，就执行从它到后面else if语句之间的语句，即 print*,pass!，然后跳转到if结构的结束语句end if； 否则如果else if 后的表达式score90的值为.true.，就执行从它到后面else if语句之间的语句，即 print*,good!，然后跳转到if结构的结束语句end if； 否则如果else if 后的表达式score=100的值为.true.，就执行从它到后面else语句之间的语句，即 print*,excellent!，然后跳转到if结构的结束语句end if； 否则执行else和end if 之间的语句 print*,incorrect score!，结束if结构。 程序运行时，从键盘输入： 87 ↙ 屏幕输出： good! 控制结构控制下的一个语句集合被称为一个语句块，它可以由多条语句组成。比如，if－then语句和其相匹配的else if语句之间的所有语句，就是一个语句块。Fortran 90中不允许从外部转移到一个块里，但允许用控制转移语句（如exit或cycle语句）从块里转移出去。任何一个块都可以包含完整的if结构、select case结构或do结构，因此，控制结构可以嵌套至任何一层。编写程序时，通常把同一语句块的语句缩进几个空格，这样的编程习惯可以增加程序的可读性，使程序易于维护。 另外，任何一个控制结构，包括if结构、select case结构和do结构，都可以在结构的第一行定义一个结构名，结构名由一个Fortran的标志符和其后的冒号组成。终止该结构的语句，像end if 语句、end select语句 或end do语句必须后跟相同的结构名。对于多层嵌套的结构，结构名是非常有用的，它可以清楚的区分嵌套的各层结构，增加程序的清晰性。如上例中的if结构可以添加上结构名S1： S1: if (score=0.and.score60) then !if结构 print*,fail! else if (score70) then print*,pass! else if (score90) then print*,good! else if (score=100) then print*,excellent! else print*,incorrect score! end if S1 3.1.2 if结构的格式 if结构是一个简单的逻辑判断结构，它使得程序运行时可以选择众多块中特定的一个来执行。if结构的一般形式为： if （逻辑表达式1） then ! if－then语句 语句块1 ! if－then块 else if （逻辑表达式2） then