第5章 循环(old).pptVIP

第6章 循环 6.1 DO 例1 打印sinx的值，每10度为一个间隔，x的范围为0~360。 请采用顺序结构编写该程序。 6.1 DO 利用循环结构实现如下： Program main integer x real::hudu=3.14159/180 Do x=0,360,10 write(*,*)sin(x*hudu) enddo End 6.1 DO 常见的循环运算还有： 6.1 DO 循环的分类： 6.1.1 带循环变量的DO结构 一般形式： DO 循变V=初值e1, 终值e2 [ , 步长值e3] 循环体 !重复执行的语句 ENDDO 6.1.1 带循环变量的DO结构 Fortran77格式： 6.1.1 带循环变量的DO结构 6.1.1 带循环变量的DO结构 注意：循环变量的初值E1、终值E2和步长E3只是在循环入口有效，进入循环后，改变其值不会对循环有影响。P103 6.1.2 DO结构嵌套 DO结构嵌套：一个DO结构循环体内可以包含另一个DO循环结构，这就是DO结构循环嵌套 注意：只嵌套，不交叉 6.1.2 DO结构嵌套 注意：外层变一，内层变N 试一试，写程序！ ?1 求等差数列1+2+3+4+…+99+100 6.2 DO WHILE 循环(当型循环) 循环并不一定由计数器的增减来决定是否该结束循环，可改由一个逻辑运算来决定，这就是Do-While的功能。 6.2 DO WHILE 循环(当型循环) integer,parameter::limit=10 integer counter integer::ans=0 counter=2 do while(counter=limit) ans=ans+counter counter=counter+2 enddo write(*,*)ans Stop end 6.2 DO WHILE 循环(当型循环) 做一个游戏：某美女视自己的体重为秘密，试编写一个程序来猜她的体重 （1）猜对为止； （2）最多只给5次机会，猜对了跳出循环，猜错了也没机会了。 6.2 DO WHILE 循环(当型循环) 猜猜她的体重 循环？？次 可猜的连续性 猜对了程序停止 6.3 循环的流程控制 Cycle—略过在Cycle后面的程序，直接回到循环的开头，继续执行循环。 Exit—跳出程序，避免进入死循环。 6.3 循环的流程控制 循环命名— 名字：do enddo 名字 6.4 循环的应用 求等差数列1+2+3+4+…+99+100 《算经》中的“百鸡问题” 公元五世纪末，我国古代数学家张丘建在《算经》中提出“百鸡问题”:鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。百钱买百鸡，问鸡翁、母、雏各几何？ 例： 求一批数中，负数的个数及负数的总和。要求从键盘一个一个的输入，当输入的数据为0时，终止循环。 分析 重复：计数 count=count+1 求和 sum=sum+x 终止：if(x==0)exit 跳过：if(x0)cycle 上节课内容回顾 上节课内容回顾 Cycle—略过在Cycle后面的程序，直接回到循环的开头，继续执行循环。 Exit—跳出程序，避免进入死循环。 《算经》中的“百钱买百鸡问题” 公元五世纪末，我国古代数学家张丘建在《算经》中提出“百鸡问题”:鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。百钱买百鸡，问鸡翁、母、雏各几何？ 消除空格的程序 二、Do-While结构 DO ans=ans+V ENDDO do while(逻辑运算) …… …… enddo 上节课内容回顾 三、循环的流程控制 本章重难点 掌握DO、DO WHILE循环、循环的流程控制 重点与难点：循环的应用 * * * * * * 主要内容 §6.2 DO WHILE循环 §6.3 循环的流程控制 §6.4 循环的应用 §6.1 DO 基本要求：掌握do ,do while循环和流程控制 重难点：循环的应用 Program main real::hudu=3.14159/180 write(*,*)sin(0*hudu) write(*,*)sin(10*hudu) … … write(*,*)sin(360*hudu) end 编写37次write， 很辛苦！? 循环的表示及适用范围： 循环均由Do结构表示，其Do结构共有二种形式： 1．带循环变量的DO结构 2．Do WHILE循环结构 1、已知循环次数