循环结构程序(问题详解)

实用标准文案循环结构程序1.利用随机函数 RAND 和函数floor ，产生30个1到20之间的随机整数，使用 WHILE语句显示这 30个随机数。declare@iint,@xintselect@i=1while@i<=30beginset@x=FLOOR(RAND()*(20-1+1)+1)set@i=@i+1print@xend设纸的厚度为0.5毫米，将纸对折，再对折⋯，求至少对折多少次，纸张的厚度能达到珠穆朗玛峰的高度8848米。方法一：Declare@hdecimal(10,1),@nintselect@h=0.5,@n=0while@h<8844000 --运算部分beginset@h=@h*2set@n=@n+1end精彩文档实用标准文案select '对折',@n,'次后可以超过珠峰的高度‘ -输出部分方法二：Declare@hdecimal(10,1),@nintselect@h=0.5,@n=0while@h<8844000 --运算部分beginset@n=@n+1set@h=0.5*power(2,@n)end--select '对折',@n,'次后可以超过珠峰的高度 'print '对折'+ltrim(str(@n))+' 次后可以超过珠峰的高度 '求自然数1～100之间奇数之和declare@iint,@sbigintselect@i=1,@s=0while@i<=100beginset@s=@s+@iset@i=@i+2endselect'@s=',@s编写程序，输出由1、2、3、4、5、6这六个数字组成的所有可能的两位数，并统计它精彩文档实用标准文案们的个数。declare@xint,@iint,@jint,@nintset@x=123456set@i=1set@n=0while@i<=6beginset@j=1while@j<=6beginprintstr(@i,1)+str(@j,1)set@n=@n+1set@j=@j+1endset@i=@i+1endprint'@n='+str(@n,3)编写程序，输入一个数，判定该数是否为素数，如果是素数，则输出“该数是素数”的信息，否则输出“该数不是素数”的信息。方法一：用循环变量等于要判断的数减一的方法来确定。declare@xint,@iint精彩文档实用标准文案set@i=2set@x=6while@i<=@x-1beginif@x%@i=0breakelseset@i=@i+1endif@i=@xprintstr(@x)+ ‘是素数'elseprintstr(@x)+ ‘不是素数'方法二：使用做记号的方法。declare@xint,@iint,@jhbitset@jh=0 --使用变量做记号set@i=2set@x=5while@i<=@x-1beginif@x%@i=0begin精彩文档实用标准文案set@jh=1breakendelseset@i=@i+1endif@jh=0printstr(@x)+ ‘是素数'elseprintstr(@x)+ ‘不是素数'编程计算从1到30之间的所有7的倍数之和declare@iint,@sbigintselect@i=1,@s=0while@i<=30beginif@i%7=0set@s=@s+@iset@i=@i+1endselect'@s=',@s精彩文档实用标准文案7.在国际象棋棋盘的 64个格上依次放入小麦 1粒、2粒、4粒、8粒⋯，求按此规律放满个格需要多少粒小麦。分析：后一个数是前一个数的 2倍，得出通式为： @X=2*@Xdeclare@xfloat,@Sfloat,@nbigintselect@x=1,@s=0,@n=1while@n<=64beginset@s=@s+@xset@x=2*@xset@n=@n+1print@xendprint'@s='+cast(@sasvarchar(40))求自然数1～100之间偶数之和declare@iint,@sbigintselect@i=0,@s=0while@i<=100beginset@s=@s+@iset@i=@i+2精彩文档实用标准文案endselect'@s=',@s9.计算s=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+ ⋯当第i项的值小于 0.0004 时结束。提示：找出规律，第 i项的分母是前一项的分母加 i减1。declare@iint,@sfloat,@fmfloat--@i 是项数，@fm是分母，@s是所求的和值set@i=1set@s=0set@fm=1while1/@fm>0.0004beginset@s=@s+1/@fmset@i=@i+1set@fm=@fm+@i-1 --第i项的分母是前一项的分母加 i减1endprint'@s='+str(@s,7,4)print'@i='+str(@i,7,4) --查看一下第多少项时 1/fm 为0.0004print'@fm='+str(@fm,7,4) -- 查看一下1/fm 为0.0004 时的fm是多少注意:分母（@fm）必须定义为 float 类型，不能定义为 int，因两个整数相除商为整数而得不到小数。精彩文档实用标准文案编写程序，在100～999三位整数范围内,找出这样的数(水仙花数)：该数等于其各位数字的立方和。如： 371=3^3+7^3+1^3 ，即371就是水仙花数。注意： 3^3 表示3的3次方，7^3 表示7的3次方，1^3 表示1的3次方。分析：首先要会将数进行分解，分解的方法我们讲过至少 3种。第一种，一般的分解方法：Declare@xint,@aint,@bint,@cint,@sintset@x=456Set@a=floor(@x/100) --取出百位上的数字Set@b=floor((@x-@a*100)/10) --取出十位上的数字set@c=@x-@a*100-@b*10 --取出个位上的数字使用以上分解数的方法所编代码为：Declare@xint,@aint,@bint,@cintprint'100-999 之间的所有水仙花是：'set@x=100while@x<=999beginSet@a=floor(@x/100) --取出百位上的数字Set@b=floor((@x-@a*100)/10) --取出十位上的数字set@c=@x-@a*100-@b*10 --取出个位上的数字ifpower(@a,3)+power(@b,3)+power(@c,3)=@xprint@x精彩文档实用标准文案set@x=@x+1end第二种，找通式方法：假设@x=1234个位=(Floor(@x/1))%10十位=(Floor(@x/10))%10百位=(Floor(@x/100))%10千位=(Floor(@x/1000))%10通式：X（i）=FLOOR(@X/10（i-1）)%10i从个位数起。使用以上分解数的方法所编代码为：Declare@xint,@aint,@bint,@cintprint'100-999之间的所有水仙花是：'set@x=100while@x<=999beginSet@a=(Floor(@x/100))%10--取出百位上的数字Set@b=(Floor(@x/10))%10--取出十位上的数字set@c=(Floor(@x/1))%10--取出个位上的数字ifpower(@a,3)+power(@b,3)+power(@c,3)=@xprint@xset@x=@x+1end精彩文档实用标准文案第三种，取子串的方法Declare@xint,@aint,@bint,@cintprint'100-999 之间的所有水仙花是：'set@x=100while@x<=999beginSet@a=str(substring( cast(@x aschar(3)),1,1),1) --取出百位上的数字Set@b=str(substring( cast(@x aschar(3)),2,1),1) --取出十位上的数字set@c=str(substring( cast(@xaschar(3)) ,3,1),1) --取出个位上的数字ifpower(@a,3)+power(@b,3)+power(@c,3)=@xprint@xset@x=@x+1end提示：代码中的 cast(@x aschar(3)) 是将数值型的@X转换为字符型数据，之后用substring 函数取子串，然后再将字符型数据用 str函数转换为数值型数据。11.计算1！+2！+⋯+20！方法一：使用双循环即循环嵌套来实现。精彩文档实用标准文案declare@s1float,@S2float,@iint,@jintset@i=1set@s1=0while@i<=4beginset@j=1set@s2=1while@j<=@ibeginset@s2=@s2*@jset@j=@j+1endprintstr(@j-1,2)+'!='+ltrim(str(@s2))set@s1=@s1+@s2set@i=@i+1endprint'1!+2!+3!+... 的和@s1='+cast(@s1asvarchar(40))方法二：使用单循环也可实现。declare@s1float,@S2float,@iint,@jintset@i=1set@s1=0 --用来存放和值set@s2=1 --用来存放阶乘值精彩文档实用标准文案while@i<=4beginset@s2=@s2*@iset@s1=@s1+@s2set@i=@i+1endprint'1!+2!+3!+... 的和@s1='+cast(@s1asvarchar(40))类似的题目还有：s=1+(1+2)+(1+2+3)+(1+2+3+4)+ ⋯.+(1+2+#+ ⋯+n),模仿上例自己编程实现。12. 利用循环结构求 s的值，S=1*2*3+2*3*4+ ⋯+i*(i+1)*(i+2)+ ⋯+15*16*17 的值。declare@s1float,@S2float,@iint,@jintset@i=1set@s1=0 --用来存放和值set@s2=1 --用来存放乘积while@i<=3beginset@s2=@i*(@i+1)*(@i+2)set@s1=@s1+@s2set@i=@i+1endprint '1*2*3+2*3*4+ ⋯ +i*(i+1)*(i+2)+ ⋯ +15*16*17 的 和精彩文档实用标准文案@s1='+cast(@s1asvarchar(40))13.有一个分数序列， 求出这个序列的前 20项之和。2/1,3/2,5/3,8/5,13/8,21/13, ⋯.提示：后一项是前一项的倒数加 1。declare@sfloat,@xfloat,@iintset@i=1set@s=0 --用来存放和值set@x=2/1while@i<=3beginset@s=@s+@xset@i=@i+1set@x=1/@x+1 --后一项是前一项的倒数加 1endprint'2/1,3/2,5/3,8/5,13/8,21/13 的前20项的和@s='+cast(@sasvarchar(40))14. 计算1^3+2^3+3^3+ ⋯+100^3. 注意：1^3 表示1的3次方，2^3 表示2的3次方，⋯，100^3 表示100的3次方。declare@sbigint,@iintset@i=1精彩文档实用标准文案set@s=0 --用来存放和值while@i<=100beginset@s=@s+power(@i,3)set@i=@i+1endprint'1^3+2^3+3^3+ ⋯+100^3 的和@s='+cast(@sasvarchar(40))编写程序，用Print语句显示1～50之间的奇数declare@iintprint' 显示1～50之间的奇数'set@i=1while@i<=50beginprint@iset@i=@i+2end16.求s=a+aa+aaa+ ⋯+aaa⋯aaa(n 个a),其中a和n的值由用户使用 Set或Select 语句自己输入。例如，当 a=3,n=4 时，S=3+33+333+3333 。方法一：用重复产生字符函数 REPLICATE编程：declare@iint,@avarchar(10),@sbigint精彩文档实用标准文案print' 求a+aa+aaa+ ⋯+aaa⋯aaa(n个a)的和'set@s=0set