奥赛信息学竞赛班进阶篇课件pascal-02-循环语句.pptVIP

PASCAL基本语句 汕头金山中学信息竞赛班 For 语句 循环语句 For 语句 for 语句 For 语句 for 语句注意事项 For 语句 for 语句注意事项 例1：换零钱 例：换零钱 把一张一元钞票换成一分、二分和五分的硬币(每种至少一枚)，问有哪几种换法？ 例1：换零钱 For 语句 for 语句嵌套 while 语句 While语句 while 语句 注意防止死循环 while 语句 例：求最大公约数 while 语句 例：求最大公约数 while 语句 例：求最大公约数 repeat 语句 repeat..until语句 repeat 语句 repeat..until语句 repeat 语句 试商法判断质数 * * LOGO （1)for 语句 s := 0； {s置初值0} for i := 1 to 100 do s := s + i ； writeln（’s=’，s）； {输出累加和s} 下一条语句 控制变量:＝初值 控制变量＝初值＋1 循环体 变量＝终值 false true （a）TO情况 下一条语句 控制变量:＝初值 控制变量＝初值-1 循环体 变量＝终值 false true （a）DOWNTO情况 s := 0； for i := 100 downto 1 do s := s + i ； writeln（’s=’，s）； 控制变量不能为real型 for语句的步长是一定的，不要在循环体内改 变循环控制变量 如： for k := 1 to 100 do begin k := 3； {循环体中改变了循环变量k的值} …… end for语句执行完，控制变量无定义， 因此for语句的后续语句不能认为控制变量的值是终值而加以利用。 当初值超过终值时，不执行循环，循环次数为0。 [分析] 采用穷举法解决： 令五分钱硬币的个数为k，k的取值范围为1～19 ； 二分钱硬币的个数为j，j的取值范围为1～49 ； 一分钱硬币的个数则为100－k×5－j×2 ； n为计数器，累计兑换方案的总数。 这样利用二重循环就可以得到每一种组合。 program s100； var i , j , k , n : integer； begin n := 0； { 计数器n清0 } for k := 1 to 19 do { 五分硬币的个数 } for j := 1 to 49 do begin { 二分硬币的个数 } i := 100－k * 5－j * 2 ； { 一分硬币的个数 } if i ＝1 then begin { 想想：为什么要加这一判断 } writeln ( ‘ 1 fen：’ , i , ‘ 2 fen：’, j , ‘ 5 fen：’ , k )； n := n + 1； { 计数器加1 } end； {if} end； writeln (‘ total =’ , n )； end. 打印 * 阵 条件 下一条语句 循环体 false true var i : longint; begin i:=1; while i50 do begin writeln ( i ); i:=i+3; end; end. 输出： 1 4 7 10 13 16 … 不小心出现死循环怎么办？ 按Ctrl+Break强制中断程序运行。 var i : longint; begin i:=1; while i50 do begin writeln ( i ); i:=i+3; end; end. 循环体中必须有修改WHILE后面的循环终止条件操作 辗转相除法 如果 x可以被 y 整除（即 x mod y=0），则 y 为 x 和y 的最大公约数; 否则，设 z为x除以y的余数（ z:=x mod y），再设 x:=y; y:=z; 看x可以被 y 整除，若能整除，则y为x 和y 的最大公约数; 否则，继续辗转相除下去…… 辗转相除法 例如： x=24 y=15 x y z 24 ÷ 15 = 1 …… 9 15 ÷ 9 = 1 …… 6