循环结构习题课2013.pptVIP

条件、循环结构习题课 有一堆100多个零件，如果3个3个数剩2个，5个5个数剩3个，7个7个数剩5个，请计算出这堆零件至少有多少个? Program samp14; var a,b,s:integer; Begin For a:=100 to 200 do if (a mod 3=2) and(a mod 5=3) and (a mod 7=5) then write(a=,a); Readln; End. 输入一个自然数，求这个自然数的所有约数之和 一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y恰好比x大36，请编程求出所有这样的两位数。 猴子吃桃问题：猴子第一天摘下若干个桃子，当即吃了一半，还不瘾，又多吃了一个;第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第10天早上想再吃时，见只剩下一个桃子了。求第一天共摘了多少。 题目： 有5个人坐在一起，问第五个人多少岁？他说比第4个人大2岁。问第4个人岁数，他说比第3个人大2岁。问第三个人，又说比第2人大两岁。问第2个人，说比第一个人大两岁。最后问第一个人，他说是10岁。请问第五个人多大？ Program suishu; var a,i:longint; begin a:=10; for i:=1 to 4 do a:=a+2; writeln(a); end. 齐王点兵的故事。 相传三齐王韩信才智过人，从不直接清点自己军队的人数，只是让士兵先后以三人一排、五人一排、七人一排地变换队形，而他每次只掠一眼队伍的排尾就知道总人数了（不超过100人）。输入三次排尾的人数，输出总人数。 program e2_36; var a,b,c,i:integer; begin writeln(shu ru p3(0~2),p5(0~4),p7(0~6) de wei shu:); readln(a,b,c); for i:=100 downto 1 do if (i mod 3=a)and(i mod 5=b)and(i mod 7=c) then writeln(i); if i=1 then writeln(No answer!); end. 多重循环练习 编程序分别打印以下三图： （1） （2） （3） ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** 【问题分析】 三个图形都是5行5列，因此可以用2重循环来实现，但是三个图形又各有区别，区别就在于每一行第一个星号之前的空格数量有所不同，因此可以用空格数量来进行控制. 在屏幕上输出乘法口诀表 var i,j:integer; begin for i:=1 to 9 do begin for j:=1 to 9 do begin write(j,*,i,=,j*i, ); end; writeln; end; end. Program Exam4; Var a,b:integer; Begin for a:=1 to 9 do begin for b:=1 to a do write(b,X,a,=,a*b:2, ); writeln end; Readln; End. 试编写能够打印输出如下图形的程序。 AAAAAAAAA AAAAAAA AAAAA AAA