循环语句训练Word文件下载.docx
- 文档编号:5646473
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:15
- 大小:21.20KB
循环语句训练Word文件下载.docx
《循环语句训练Word文件下载.docx》由会员分享,可在线阅读,更多相关《循环语句训练Word文件下载.docx(15页珍藏版)》请在冰点文库上搜索。
foryi:
=1to83to
sum:
=shi*10+wu*5+liang*2+yi*1;
ifsum=100thenbegin
write(shi,wu,liang,yi);
n:
=n+1;
end;
4、求一个最小的自然数,使它与6的和是13的倍数,与6的差是12的倍数。
=1to32766do
if((i+6)mod13=0)and((i-6)mod12=0)then
write(i);
5、爸爸比儿子大30岁,4年后爸爸的年龄是儿子的4倍,问现在爸爸和儿子的年龄是多少?
表示儿子现在的年龄
while(30+x+4)<
>
(x+4)*4do
=x+1;
write(30+x,x);
6、用15元,买15包食品,食品中包含有3种,糖每包2元,花生每包1元,瓜子每包0.5元,问有多少种购买方法?
见人民币一题
7、剧场中有1000个座位,已知第一排有30个座位,以后每排增加2个座位,问1000个座位能排几排?
最后剩下不够一排的座位有几个?
如果按前面的排法补全一排,问整个剧场有多少个座位?
表示第一排
=30;
s:
whiles<
1000do
p:
=p+1;
x:
=x+2;
=s+x;
y:
=1000-(s-x);
m:
=s;
8、计算1/1-1/2+1/3-1/4+1/5-......+1/99-1/100的值
k:
=1;
=1to100do
=s+k/i;
k:
=-k;
=1to99do
s:
=s+k/i+(-k)/(i+1);
9、随机产生20个两位数的整数,找出其中最大的,并指出它是第几个数?
randomize;
=1to20do
x[i]:
=trunc(random*90)+10
max:
=x[1];
fori:
=2to20do
ifmax<
x[i]thenbegin
max:
=x[i];
r:
=i;
注意:
random*9:
产生包括0不包括9的随机数。
[0,45)
10、有两缸金鱼,如果从第一缸取出15条放入第二缸,这时第二缸内的金鱼刚好是第一缸的5/7,已知第二缸内原有金鱼35条,第一缸内原有金鱼多少条?
提示:
a2:
=35;
=a2+15;
a1:
=a2/(5/7);
11、三位整数中有多少个能既被3整除,又能被5整除的数?
请输出这些数据并输出总个数?
fora:
=100to999do
if(amod3=0)and(amod5=0)then
write(a:
4);
write(n);
12、打印如下数字组成的图形
1
22
333
4444
55555
666666
……..
=1to5do
=1toido
13、一个数列第一个数为1,第二个数为2,从第三个数开始,其值为它前面两位数之积,求这个数列的前10项。
从第三个数开始,其值为它的前面两位数之和,求这个数列的前20项。
a[20]
a[1]:
a[2]:
=2;
=3to10do
a[i]:
=a[i-1]*a[i-2];
=3to20do
a[j]:
=a[j-1]+a[j-2];
14、产生5个70到150之间的随机整数,找出其中最大的那个数。
随机数如何生成:
先要用randomize;
来初始化(由循环要在循环外面)
如产生随机数(0到1之间)x,则x:
=random(80)+70;
a[i]:
=trunc(random*80)+70;
write(a[i]:
=a[1];
ifa[i]>
a[1]thenmax:
=a[i];
write(max);
15、有一个正整数,与它本身相加、相减、相乘、相除后的和差积商的总和等于121,找出这个数。
if2*a+0+sqr(a)+1=121thenwrite(a);
16、用0、1、2、3、4、5六个数字组成三位数的偶数,共有多少个。
=0to5do
fork:
=0to4do
ifkmod2=0thenbegin
=i*100+j*10+k;
=m+1;
17、三位数中有多少个能被25整除,且每个数中没有重复的数字。
ifimod25=0thenbegin
a:
=idiv100;
b:
=(idiv10)mod10;
c:
if(a<
b)and(b<
c)and(c<
a)then
=63524;
a:
=kdiv10000;
b:
=(kdiv1000)mod10;
=(kmod100)div10;
c:
=(kdiv100)mod10
d:
=....
18、画出如下图形:
987654
98765
9876
987
98
9
=4to9do
=9downtoido
write(j);
writeln;
19、找出1000以内的素数。
=1to1000do
=2totrunc(sqrt(i))do
ifimodj<
0theni为素数。
250
15.8
137
11.7
20、一个三位数,它的数字之和是15,百位上的数字比十位数字大5,个位数是十位数的3倍,求这个位数。
if(a=b+5)and(c=b*3)thenwrite(i);
只要是与数据的各个位数的数字有关,基本上都是要分离数字的。
活用 divmod 进行分离。
21、一个两位数、个位数是十位数的1/4,如果把十位上的数字和个位上的数字对调,则比原数小54,求原来的两位数。
=
=
if(a=b*4)and(b*10+a+54=a*10+b)thenwrite(i);
22、编一个程序使两个变量的值交换,但不允许使用第三个变量。
=12;
=6;
使用中间变量完成交换
t:
=a;
=b;
=t;
不使用中间变量完成交换
=a+b;
=a-b;
18-6=12
18-12=6
23、小明今年8岁,其父38岁,问多少年后,父亲的年岁恰好是他的年岁的两倍
f:
=38;
=8;
=1to62do
if(f+i)=(s+i)*2thenwrite(i);
24、求100以内所有被5除余1的自然数的和。
if(imod5=1)thens:
=s+i;
25、现有一笔钱,都是硬币,其中二分的比五分的多24个,按钱数算,五分的比二分的多三角,还有53个一分的,这笔钱共有多少分。
表示有五分的个数x*5
x+24二分的个数(x+24)*2=x*5-30
forx:
if条件成立thenm:
=x*5+(x+24)*2+53;
26、某怪数减去7剩下的再乘以7,所得结果与先减去11,乘下的再乘以11的结果相同,这个数是多少。
if(i-7)*7=(i-11)*11thenwrite(i);
27、已知四个数和为64,第一个数加3,第二个数减3,第三个数乘3,第四个数除3,所得的结果均相同,则此四个数是多少?
=1to61do
=7to61do
=1to20do
=64-i-j-k;
ifi+3=j-3andk*3andm/3thenwrite(i,j,k,m);
28、小明有48支笔,小刚有36支,若每次小明给小刚8支,同时小刚又还给小明四支,问经过多少次后小刚的笔是小明的两倍。
ming:
=48;
gang:
=36;
=1to12do
if(ming-4*i)*2=i*4+gangtheni
29、编写一个程序验证角谷猜想,对于任意正整数,若为奇数,则乘3加1,若为偶数,则除以2,所得结果再重复上述步骤,经有限次后,必能得到整数1。
read(i);
write(i,'
--'
);
whilei<
1do
ifimod2=1theni:
=i*3+1
elsei:
=idiv2;
9--28--14--7--22--11--34--17--52--26--13--40--20--10--5--16--8--4--2--1
8--4--2--1
循环语句:
如果没有begin...end的话,那么循环语句只有靠最近的一行语句。
30、晶晶养了几只白老鼠和几只百灵鸟,明明问他养了几只,晶晶说,共有15个头,50条腿,你说各有多少只
。
form:
=15-m;
ifm*4+b*2=50thenm,b
31、甲乙丙三个同学有一人在大家不在时“学雷锋做好事”,把教室打扫干净了,事后老师问是谁做的,甲说“是乙做”,乙说,不是我做干的,丙说,不是我干的,如果他们中有两个人说假话,一人说真话,请你判断是谁干的。
自己推断:
32、某校1998名同学按0001-1998编号,在新联欢会上,编号为5或6的倍数的同学能得到一张贺年卡,且最多能得一张。
问大会共需多少张贺年卡。
=1to1998do
if(imod5=0)or(imod6=0)thenm=m+1;
33、在1000个整数内,既不是2的倍数,又不是3的倍数,的数共有多少个?
if(imod2<
0)and(imod3<
0)thenm:
m
34、计算
1000+999-998-997+996+995-994-993+......+108+107-106-105+104+103-102-101=?
=1to225do
=s+4;
35、有一列数,3,33,333,3333,33333......,把他们前1997个数相加,那他们和的百位是多少。
=3;
=333;
=3to1997do
=s+3+33+b;
=s-(sdiv1000)*1000;
=sdiv100;
write(s);
36、从100到200,其中偶数和减去奇数和所得的差是多少?
=100to200do
ifimod2=0thens:
=s+i
=m+i;
=s-m;
s;
37、杨辉三角形的输出:
1
1
2
3
4
6
510
105
1
615
20156
充分利用二维数组来完成程序
a[1,1]:
a[1,2]:
a[2,2]:
=3to7do
a[i,j]:
=a[i-1,j]+a[i-1,j-1];
38、原计划600块砖让现有的男孩搬运,后来有来了两个女孩,工作量平均分配,每个男孩比原计划少搬25块砖,问现在共有多少个男孩?
表示现在有的男孩数量。
=600;
=1to24do
if(amodx=0)and(amod(x+2)=0)andadivx-adiv(x+2)=25thenx;
39、某人抽烟,每次剩下的烟头是等长的,四个烟头可以接成一个整烟接着抽,这人原来有64支烟,问他最多能抽几支烟?
=64;
i:
whilei>
=4do
=s+idiv4;
=i-(idiv4)*4;
end
40、把一个数的百位和个位上的两个数按照位置互换,十位上的数不动,所得的新数与原数相同,求这样的数共有多少个?
其中能被4整除的数有多少个?
=100do999do
if(a=c)thenbegin
ifimod4=0thenm:
mn
41、某公交汽车线路有15个站,(包括起始站和终止站),在每一站上车的人数恰好在以后各站分别下去一个,要使行使中每位乘客均有座位,问车上至少有多少个座位供乘客使用?
=1to15do
=15-i;
=i-1;
=s+a-b;
ifs>
mthenm:
42、3个数的和等于88,如果把第一个数减去5,第二个数加5,第三个数乘5,将得到3个相等的数,问原来3个数中最大的与最小的差是多少?
=0to86do
=i-5;
=i+5;
=i*5;
if(a+5)+(b-5)+cdiv5=88a=b=cthenm:
a+5-cdiv5;
43、将1/7化为小数,问小数点后第100个数是几?
=7;
b
=a*10;
=adiv7;
=a-b*7;
e;
44、龟兔赛跑,全程5.2公里,兔子每小时跑20公里,乌龟每小时跑3公里,乌龟不停的跑,兔子跑1分钟玩15分钟,再跑2分钟,在玩15分钟,在跑3分钟,在玩15分钟......问最后谁先到终点,快几分钟?
=(5.2/20)*60;
t1:
=0;
whilet1>
tdo
=t1+p;
t1:
=t1+(p-1)*15;
t2:
=5.2/3*60;
比较t1t2的大小t1-t2
45、某单位职工到郊外去植树,其中1/3的职工各带一个孩子参加,男职工每人种13棵树,女职工每人种10棵树,孩子每人种6棵树,他们共种了216棵树,那么其中女职工有多少人?
=1to216div13do
=1to21do
if(i+j)mod3=0then
ifi*13+j*10+((i+j)div3)*6=216thenj;
46、大、小盒子共装99个球,每个小盒装5个,每个大盒装12个,恰好装完,盒个数大于10,那么大、小盒子个多少?
=1to8do
=1to19do
ifi*12+j*5=99andi+j>
10thenij;
47、蜘蛛8条腿,蜻蜓6条腿2对翅膀,蝉6条腿1对翅膀,若现在有118条腿,20对翅膀,问蜘蛛,蜻蜓,蝉共有多少只?
用翅膀循环
=1to10do
=118-(i*6+6*j);
ifkmod8=0thenm:
=kdiv8;
write(i,j,m);
用腿循环
=1to14do
=20-j*2;
ifi*8+j*6+k*6=118thenwrite(i,j,k);
48、小英家的门牌号是一个三位数,其特点是,末位数字比首位数字大,而首位数字又比中间数字大,且各位数
字相加之和等于各位数字相乘之积,问小英家的门牌号是多少?
1.fori:
forj:
if(k>
i)and(i>
j)andi+j+k=i*j*kthenwriteln(i,j,k);
2.fori:
ifc>
aanda>
banda*b*c=a+b+cthenwrite(i);
49、有一条客运路线,包括起点有5个站,相临两站距离如图所示,票价0.03元/公里,计算输出这条客运路线的里程和票价表。
距离(公里)12
23
15
13
*-----*-----*-----*-----*
站码
5
a[3]:
=a[2]+23;
a[4]:
=a[3]+15;
a[5]:
=a[4]+13;
=1to4do
=1+ito5do
=a[j]-a[i];
=m*0.03;
write(m,p);
50、猴子吃桃,第一天吃了一半又多一个,第二天吃剩下的一半又多一个,以后每天都吃了前一天剩下的一半又多一个,到第10天再吃的时候,只剩下一个挑子,问原有多少个桃子?
i:
fork:
=(i+1)*2
write(i);
51.一个自然数与3的和是5的倍数,与3的差是6的倍数,这个自然数最小是几?
[27]
=3to32766do
if(i+3)mod5=0(i-3)mod6=0theni;
break;
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 循环 语句 训练