SQL循环结构程序深刻复习.docxVIP

. 循环结构程序 1.利用随机函数RAND和函数floor，生30个1到20之的随机整数，使用WHILE 句示30个随机数。 declare@iint,@xint select@i=1 while@i=30 begin set@x=FLOOR(RAND( )*(20-1+1)+1) set@i=@i+1 print@x end 的厚度0.5毫米，将折，再折?，求最少折多少次，的厚度能达到珠穆朗峰的高度8848米。 方法一： Declare@hdecimal(10,1),@nint select@h=0.5,@n=0 while@h8844000--运算部分 begin set@h=@h*2 set@n=@n+1 end . select对折,@n,次后可以超过珠峰的高度‘-输出部分 方法二： Declare@hdecimal(10,1),@nint select@h=0.5,@n=0 while@h8844000--运算部分 begin set@n=@n+1 set@h=0.5*power(2,@n) end --select对折,@n,次后可以超过珠峰的高度 print对折+ltrim(str(@n))+次后可以超过珠峰的高度 求自然数1～100之间奇数之和 declare@iint,@sbigint select@i=1,@s=0 while@i=100 begin set@s=@s+@i set@i=@i+2 end select@s=,@s 编写程序，输出由1、2、3、4、5、6这六个数字组成的所有可能的两位数，并统计它 . 们的个数。 declare@xint,@iint,@jint,@nint set@x=123456 set@i=1 set@n=0 while@i=6 begin set@j=1 while@j=6 begin printstr(@i,1)+str(@j,1) set@n=@n+1 set@j=@j+1 end set@i=@i+1 end print@n=+str(@n,3) 编写程序，输入一个数，判断该数是否为素数，如果是素数，则输出“该数是素数”的信 息，否则输出“该数不是素数”的信息。（输出50—100之间所有素数） 方法一：用循环变量等于要判断的数减一的方法来确定。 declare@xint,@iint . set@i=2 set@x=6 while@i=@x-1 begin if@x%@i=0 break else set@i=@i+1 end if@i=@x printstr(@x)+else  ‘是素数 printstr(@x)+  ‘不是素数  方法二：使用做记号的方法。 declare@xint,@iint,@jhbit set@jh=0--使用变量做记号 set@i=2 set@x=5 while@i=@x-1 begin if@x%@i=0 begin . set@jh=1 break end else set@i=@i+1 end if@jh=0 printstr(@x)+‘是素数 else printstr(@x)+‘不是素数 编程计算从1到30之间的所有7的倍数之和 declare@iint,@sbigint select@i=1,@s=0 while@i=30 begin if@i%7=0 set@s=@s+@i set@i=@i+1 end select@s=,@s . 7.在国象棋棋的64个格上依次放入小麦1粒、2粒、4粒、8粒?，求按此律放 个格需要多少粒小麦。解析： 后一个数是前一个数的2倍，得出通式：@X=2*@X declare@xfloat,@Sfloat,@nbigint select@x=1,@s=0,@n=1 while@n=64 begin set@s=@s+@x set@x=2*@x set@n=@n+1 print@x end print@s=+cast(@sasvarchar(40)) 求自然数1～100之偶数之和 declare@iint,@sbigint select@i=0,@s=0 while@i=100 begin set@s=@s+@i set@i=@i+2 . end select@s=,@s 9.算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=1 set@s=0 set@fm=1 while1/@fm0.0004 begin set@s=@s+1/@fm set@i=@i+1 set@fm=@