pascal第四讲1.pptVIP

第四讲 做十次打‘*’号的程序： for i:=1 to 10 do write(‘*’); 这个图形如何打出来呢？ 双重循环 for i:=1 to 10 do begin for j:=1 to 10 do write(‘*’); writeln; end; 百钱买百鸡 一百元钱买一百鸡，其中公鸡五元钱一只，母鸡二元钱一只，小鸡三只一元钱，输出所有的买法？ 水仙花数 以前的方法： 拆分每一个三位数． 还有什么方法？ 穷举百位＼十位＼个位，用三重循环． 显示时钟的程序 复习 输入一个整数,判断它是否为素数。 最原始的方法: 从1到数本身找因子,仅找到两个就是素数,找到两个以上即不是. 改进一: 作标记的方法,假定这个数是素数,从2到本身-1找到一个因子,即做上不是素数的标记,跳出循环,这种方法有什么弊端? 改进二： 作进一步的改进，同样先打上是素数的标记，减少循环次数．我们发现因子都是成对出现的，而且都是一小一大的（最多相等），当那个小的因子自己乘自己都超过了这个数，就不可能再找到新的因子了，也就说明我们都检查过了，这个数是否为素数也可以下结论了． 找出1..100之间所有的素数。 Repeat语句 输入若干个字符，统计字符中出现字母”A“的次数。（以‘#’号作为结束） * * For j:=1 to 10 do for i:=1 to 10 do write(‘*’); 打印一行十颗“*” 思考：write(‘*’)命令运行了几次？writeln;运行了几次？ For i:=1 to 9 do for j:=0 to 9 do for k:=0 to 9 do if i*i*i+j*j*j+k*k*k =i*100+j*10*k then writeln(i*100+j*10*k); 思考：if i*i*i+j*j*j+k*k*k =i*100+j*10*k then writeln(i*100+j*10*k); 要做多少次？