广东省汕头市金山中学高中信息技术 奥林匹克信息学竞赛班进阶篇 pascal02 循环语句课件.ppt

pascal基本语句 for语句 循环语句 1 for语句 s 0 s置初值0 fori 1to100dos s i writeln s s 输出累加和s for语句 for语句 s 0 fori 100downto1dos s i writeln s s for语句 for语句注意事项 控制变量不能为real型 for语句的步长是一定的 不要在循环体内改变循环控制变量 如 fork 1to100dobegink 3 循环体中改变了循环变量k的值 end for语句 for语句注意事项 for语句执行完 控制变量无定义 因此for语句的后续语句不能认为控制变量的值是终值而加以利用 当初值超过终值时 不执行循环 循环次数为0 例1 换零钱 例 换零钱把一张一元钞票换成一分 二分和五分的硬币 每种至少一枚 问有哪几种换法 分析 采用穷举法解决 令五分钱硬币的个数为k k的取值范围为1 19 二分钱硬币的个数为j j的取值范围为1 49 一分钱硬币的个数则为100 k 5 j 2 n为计数器 累计兑换方案的总数 这样利用二重循环就可以得到每一种组合 例1 换零钱 programs100 vari j k n integer beginn 0 计数器n清0 fork 1to19do 五分硬币的个数 forj 1to49dobegin 二分硬币的个数 i 100 k 5 j 2 一分硬币的个数 ifi 1thenbegin 想想 为什么要加这一判断 writeln 1fen i 2fen j 5fen k n n 1 计数器加1 end if end writeln total n end for语句 for语句嵌套 打印 阵 while语句 while语句 vari longint begini 1 whilei 50dobeginwriteln i i i 3 end end 输出 147101316 while语句 不小心出现死循环怎么办 按ctrl break强制中断程序运行 vari longint begini 1 whilei 50dobeginwriteln i i i 3 end end 注意防止死循环 循环体中必须有修改while后面的循环终止条件操作 while语句 例 求最大公约数 辗转相除法 如果x可以被y整除 即xmody 0 则y为x和y的最大公约数 否则 设z为x除以y的余数 z xmody 再设x y y z 看x可以被y整除 若能整除 则y为x和y的最大公约数 否则 继续辗转相除下去 while语句 例 求最大公约数 辗转相除法 例如 x 24y 15xyz 24 15 1 9 15 9 1 6 6 1 3 6 3 2 0 while语句 例 求最大公约数 辗转相除法 vara b c longint beginreadln a b whileamodb0dobeginc amodb a b b c end writeln b end repeat语句 repeat until语句 repeat语句 repeat until语句 vari longint begini 1 whilei 50dobeginwriteln i i i 3 end end vari longint begini 1 repeatwriteln i i i 3 untili 50 end repeat语句 试商法判断质数 输入一个大于1的整数n 若为质数 输出 t 否则输出 f varx i integer f boolean beginreadln x f true i 2 ifx 2thenrepeatifxmodi 0thenf false i i 1 until i sqrt x or f false if