fortran语言教程第5章

81 第5章 循环结构程序设计 本章介绍循环的概念，循环结构设计的基本方法和技术，利用分支和转向语句书写循环程序，利用专门的循环语句书写循环程序。 5.1 循环结构 循环结构分为无条件循环和有条件循环。无条件循环就是无休止地反复执行一个程序段，而有条件循环就是每次执行程序段之前需要根据设置的条件判断是否继续循环。 5.1.1 循环结构的构成 例如对例4.3提出的判断肥胖问题。如果现在要求考察5个人的体重情况，考虑算法时，不能像写流水账一样，输入第1个人的身高、体重，判断第一个人的体重情况；输入第2个人的身高、体重，判断第二人的体重情况；„；输入第5个人的身高、体重，判断第5个人的体重情况。 这样的算法显然是不行的。既然每个人体重情况的处理过程都是一样的，则可以将体重情况的处理过程描述为：“输入身高、体重（每次输入的身高、体重不同！），判断体重情况并给出提示信息”，可以加一条流线将图 4.7修改得到问题要求的流程图 5.1。从图中可以看出形成了循环结构，被循环执行的部分就是处理一个人的身高、体重数据的操作，称为循环体。 图 5.1 重复判断的流程示意图 为了描述流线表示的操作，FORTRAN语言提供了 GOTO语句，即无条件转向语句。 1）GOTO 语句 格式：GOTO <标号> 功能：转向“标号”所指的语句去执行。 说明：“标号”是合法的1～5位正整数，并且应该是本程序单位中某语句的语句标号。 根据流程图 5.1，可以写出对应程序如下： REAL H,W0 5 READ*,H,W0 W0>W1 N Y |W0-W1|<5 N Y 输入 H，W0 开始 计算标准体重W1 提示 “标准” 提示 “过胖” 提示 “过瘦” 8 2 W1=H-110 IF(ABS（W0-W1）.LE.5)THEN PRINT *,'标准！' ELSEIF(W0.GT.W1) THEN PRINT *,'过胖！' ELSE PRINT *,'过瘦！' ENDIF GOTO 5 END 由于在END语句前增加了一条GOTO语句，在READ语句和GOTO语句之间就形成了一个循环过程。执行该程序时，用户每次输入一组H和W0值，程序就给出体重情况的提示。但是该循环结构是无条件循环结构，因此程序成为一个无条件循环程序，执行时将进入“死循环”。从流程图中也可以看出没有“结束”框，程序中的END语句永远都不会被执行。 无条件循环实际是一个不正确的循环结构，因为计算机执行这样的程序会出现“死循环”现象，程序永远不会结束，计算机永远不会停机（除非用户强制性地终止程序执行！）。 解决程序“死循环”的办法就是采用“条件循...