循環(huán)結(jié)構(gòu)程序(問題詳解)

實用標(biāo)準(zhǔn)文案循環(huán)結(jié)構(gòu)程序1.利用隨機函數(shù) RAND 和函數(shù)floor ，產(chǎn)生30個1到20之間的隨機整數(shù)，使用 WHILE語句顯示這 30個隨機數(shù)。declare@iint,@xintselect@i=1while@i<=30beginset@x=FLOOR(RAND()*(20-1+1)+1)set@i=@i+1print@xend設(shè)紙的厚度為0.5毫米，將紙對折，再對折?，求至少對折多少次，紙張的厚度能達到珠穆朗瑪峰的高度8848米。方法一：Declare@hdecimal(10,1),@nintselect@h=0.5,@n=0while@h<8844000 --運算部分beginset@h=@h*2set@n=@n+1end精彩文檔實用標(biāo)準(zhǔn)文案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))+' 次后可以超過珠峰的高度 '求自然數(shù)1～100之間奇數(shù)之和declare@iint,@sbigintselect@i=1,@s=0while@i<=100beginset@s=@s+@iset@i=@i+2endselect'@s=',@s編寫程序，輸出由1、2、3、4、5、6這六個數(shù)字組成的所有可能的兩位數(shù)，并統(tǒng)計它精彩文檔實用標(biāo)準(zhǔn)文案們的個數(shù)。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)編寫程序，輸入一個數(shù)，判定該數(shù)是否為素數(shù)，如果是素數(shù)，則輸出“該數(shù)是素數(shù)”的信息，否則輸出“該數(shù)不是素數(shù)”的信息。方法一：用循環(huán)變量等于要判斷的數(shù)減一的方法來確定。declare@xint,@iint精彩文檔實用標(biāo)準(zhǔn)文案set@i=2set@x=6while@i<=@x-1beginif@x%@i=0breakelseset@i=@i+1endif@i=@xprintstr(@x)+ ‘是素數(shù)'elseprintstr(@x)+ ‘不是素數(shù)'方法二：使用做記號的方法。declare@xint,@iint,@jhbitset@jh=0 --使用變量做記號set@i=2set@x=5while@i<=@x-1beginif@x%@i=0begin精彩文檔實用標(biāo)準(zhǔn)文案set@jh=1breakendelseset@i=@i+1endif@jh=0printstr(@x)+ ‘是素數(shù)'elseprintstr(@x)+ ‘不是素數(shù)'編程計算從1到30之間的所有7的倍數(shù)之和declare@iint,@sbigintselect@i=1,@s=0while@i<=30beginif@i%7=0set@s=@s+@iset@i=@i+1endselect'@s=',@s精彩文檔實用標(biāo)準(zhǔn)文案7.在國際象棋棋盤的 64個格上依次放入小麥 1粒、2粒、4粒、8粒?，求按此規(guī)律放滿個格需要多少粒小麥。分析：后一個數(shù)是前一個數(shù)的 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))求自然數(shù)1～100之間偶數(shù)之和declare@iint,@sbigintselect@i=0,@s=0while@i<=100beginset@s=@s+@iset@i=@i+2精彩文檔實用標(biāo)準(zhǔn)文案endselect'@s=',@s9.計算s=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+ ?當(dāng)?shù)趇項的值小于 0.0004 時結(jié)束。提示：找出規(guī)律，第 i項的分母是前一項的分母加 i減1。declare@iint,@sfloat,@fmfloat--@i 是項數(shù)，@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，因兩個整數(shù)相除商為整數(shù)而得不到小數(shù)。精彩文檔實用標(biāo)準(zhǔn)文案編寫程序，在100～999三位整數(shù)范圍內(nèi),找出這樣的數(shù)(水仙花數(shù))：該數(shù)等于其各位數(shù)字的立方和。如： 371=3^3+7^3+1^3 ，即371就是水仙花數(shù)。注意： 3^3 表示3的3次方，7^3 表示7的3次方，1^3 表示1的3次方。分析：首先要會將數(shù)進行分解，分解的方法我們講過至少 3種。第一種，一般的分解方法：Declare@xint,@aint,@bint,@cint,@sintset@x=456Set@a=floor(@x/100) --取出百位上的數(shù)字Set@b=floor((@x-@a*100)/10) --取出十位上的數(shù)字set@c=@x-@a*100-@b*10 --取出個位上的數(shù)字使用以上分解數(shù)的方法所編代碼為：Declare@xint,@aint,@bint,@cintprint'100-999 之間的所有水仙花是：'set@x=100while@x<=999beginSet@a=floor(@x/100) --取出百位上的數(shù)字Set@b=floor((@x-@a*100)/10) --取出十位上的數(shù)字set@c=@x-@a*100-@b*10 --取出個位上的數(shù)字ifpower(@a,3)+power(@b,3)+power(@c,3)=@xprint@x精彩文檔實用標(biāo)準(zhǔn)文案set@x=@x+1end第二種，找通式方法：假設(shè)@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從個位數(shù)起。使用以上分解數(shù)的方法所編代碼為：Declare@xint,@aint,@bint,@cintprint'100-999之間的所有水仙花是：'set@x=100while@x<=999beginSet@a=(Floor(@x/100))%10--取出百位上的數(shù)字Set@b=(Floor(@x/10))%10--取出十位上的數(shù)字set@c=(Floor(@x/1))%10--取出個位上的數(shù)字ifpower(@a,3)+power(@b,3)+power(@c,3)=@xprint@xset@x=@x+1end精彩文檔實用標(biāo)準(zhǔn)文案第三種，取子串的方法Declare@xint,@aint,@bint,@cintprint'100-999 之間的所有水仙花是：'set@x=100while@x<=999beginSet@a=str(substring( cast(@x aschar(3)),1,1),1) --取出百位上的數(shù)字Set@b=str(substring( cast(@x aschar(3)),2,1),1) --取出十位上的數(shù)字set@c=str(substring( cast(@xaschar(3)) ,3,1),1) --取出個位上的數(shù)字ifpower(@a,3)+power(@b,3)+power(@c,3)=@xprint@xset@x=@x+1end提示：代碼中的 cast(@x aschar(3)) 是將數(shù)值型的@X轉(zhuǎn)換為字符型數(shù)據(jù)，之后用substring 函數(shù)取子串，然后再將字符型數(shù)據(jù)用 str函數(shù)轉(zhuǎn)換為數(shù)值型數(shù)據(jù)。11.計算1！+2！+?+20！方法一：使用雙循環(huán)即循環(huán)嵌套來實現(xiàn)。精彩文檔實用標(biāo)準(zhǔn)文案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))方法二：使用單循環(huán)也可實現(xiàn)。declare@s1float,@S2float,@iint,@jintset@i=1set@s1=0 --用來存放和值set@s2=1 --用來存放階乘值精彩文檔實用標(biāo)準(zhǔn)文案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),模仿上例自己編程實現(xiàn)。12. 利用循環(huán)結(jié)構(gòu)求 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 的 和精彩文檔實用標(biāo)準(zhǔn)文案@s1='+cast(@s1asvarchar(40))13.有一個分?jǐn)?shù)序列， 求出這個序列的前 20項之和。2/1,3/2,5/3,8/5,13/8,21/13, ?.提示：后一項是前一項的倒數(shù)加 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 --后一項是前一項的倒數(shù)加 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精彩文檔實用標(biāo)準(zhǔn)文案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之間的奇數(shù)declare@iintprint' 顯示1～50之間的奇數(shù)'set@i=1while@i<=50beginprint@iset@i=@i+2end16.求s=a+aa+aaa+ ?+aaa?aaa(n 個a),其中a和n的值由用戶使用 Set或Select 語句自己輸入。例如，當(dāng) a=3,n=4 時，S=3+33+333+3333 。方法一：用重復(fù)產(chǎn)生字符函數(shù) REPLICATE編程：declare@iint,@avarchar(10),@sbigint精彩文檔實用標(biāo)準(zhǔn)文案print' 求a+aa+aaa+ ?+aaa?aaa(n個a)的和'set@s=0set