(第四章循环结构.pptVIP

对上一讲内容进行复习 判断2012年，每个月份的天数。 第四讲 循环结构 打印出30至60的偶数 方法一： ①设a表示30至60的所有的数，可用for循环列出； ②用式子　a mod 2=0　筛选出其中的偶数并输出。 打印出30至60的偶数 方法二： ①设n表示15至30的所有自然数，可用for循环列出； ②用式子　a := 2*n　求出其中的偶数； ③将结果输出至屏幕。 [例3.6]用“*”号打印出如下的长方形图案。　********* ********* ********* ********* ① 给出的图例共有4行，我们可以用一个循环控制行的变化； ② 在每行中又有9列，我们可以在前面控制行的循环中再套一个循环来控制列的变化。 [例3.7] 打印出九九乘法表: Program Exam37； Var a，b: byte； Begin for a:=1 to 9 do {外循环 } begin for b:=1 to a do {内循环 } write(a,’* ‘,b,’= ’,a*b,’ ’:3)； writeln end； Readln End. [例3.8]从七张扑克牌中任取三张，有几种组合方法？请编程输出所有组合形式。 [例3.9] 数学上把除了1和它本身，没有别的数能够整除它的自然数叫做素数(或质数)。现在由键盘输入一个自然数N，编程判断N是否是素数，是则输出“Yes”，否则输出“No”。 解：根据定义，对于给定的自然数N，只需判断除1和它本身外，还有没有第三个自然数即可。 ① 令K从1循环至N； ② 根据N mod K是否为0可统计K的约数的个数； ③ 若N的约数的个数超过2个，则判定N不是素数。 程序中的变量yse为布尔(或逻辑)类型(Boolean)。布尔值只有两个： True(真) False(假)  布尔值与条件判断结果为真(条件成立)或为假(条件不成立)的作用相同，常用于条件语句和循环语句中。 Pascal 共有四种逻辑运算符： ① and (与) 两条件都为True时，其结果值为True；否则为False； ② or (或)两条件中只要有一个为True ；其结果值为True；否则为False； ③ xor (异或)两条件的逻辑值不相同时，其结果值为True；否则为False； ④ not (非) 条件为True时，其结果值为False；否则为True；(取反) [例3.9] 数学上把除了1和它本身，没有别的数能够整除它的自然数叫做素数(或质数)。现在由键盘输入一个自然数N，编程判断N是否是素数，是则输出“Yes”，否则输出“No”。 For语句课堂练习 1.打印出1至20的平方数表。 2.打印出100至200之间的奇数。 3 求出能被5整除的所有四位数的和。 4.在下面式子中的二个□内填入一个合适的同样的数字，使等式成立。 □3*6528=3□*8256 5.有一个三位数，它的各位数字之和的11倍恰好等于它自身，请编程求出这个三位数。 6.在自然数中，如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。 如:153=13+53+33，所以153是一个水仙花数。求所有的水仙花数。 7.某人想把一元钱换成伍分、贰分、壹分这样的零钱，在这三种零钱中每种零钱都至少各有一个的情况下，共有多少种兑换方案。并打出这些方案。 8.输出100以内的全部素数，要求每行显示5个。 9.百钱买百鸡：今有钱100元，要买100只鸡，公鸡3元一只，母鸡1元一只，小鸡1元3只，若公鸡、母鸡和小鸡都至少要买1只，请编程求出恰好用完100元钱的所有的买鸡方案。 10.编程序打印出下列图案： 平行四边形 等腰三解形　 菱形 　　 ****** * 　 * ****** *** *** ****** ***** ***** ****** ******* *** ****** ********* * 甲、乙、丙三人都是业余射击爱好者, 在一次练习中他们枪枪中靶: 甲射了八发子弹,取得225环成绩,乙射了七发,也取得225环