- 1、本文档共4页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第4章流程控制语句_循环结构第3次作业
1.
Declare @i int
Set @i=0
While @i=7
begin
Print space (10-@i)+replicate(‘*’,2*@i+1)
Set @i=@i+1
end
2.
Declare @i int
Set @=7
While @i=0
Begin
Print space (10-@i)+replicate(‘*’,2*@i+1)
Set@i=@i-1
end
Declare @i int
Set @i=8
While @i=1
Begin
Print space(20-@i)+replicate(*,2*@i-1)
Set @i=@i-1
End
3.
Declare @i int
Set @=7
While @i=0
Begin
Print space (10-@i)+replicate(‘A’,2*@i+1)
Set@i=@i-1
end
Declare @i int
Set @i=8
While @i=1
Begin
Print space(20-@i)+replicate(Char(65),2*@i-1)
Set @i=@i-1
End
4.
Declare @i int, @p varchar(20)
Set @=7
set @p=’HGFEDCBA’
While @i=0
Begin
Print space (10-@i)+replicate(substring(@p,@i+1,1),2*@i+1)
Set@i=@i-1
end
Declare @i int
Set @i=8
While @i=1
Begin
Print space(20-@i)+replicate(Char(65+8-@i),2*@i-1)
Set @i=@i-1
End
编程计算从300到1000之间的所有7的倍数之和.
Declare @i bigint, @s bigint
Selete @i=300 , @s=0
While @i=1000
Begin if @i%7=0 set @s=@s+@i
Set @i=@i+1
End
Print @s
Declare @i int,@s bigint
Set @i=300
Set @s=0
While @i1000
Begin
If @i%7=0 Set @s=@s+@i
Set @i=@i+1
End
Print @s
编写程序,输入一个数,判定该数是否为素数,如果是素数,则输出“该数是素数”的信息,否则输出“该数不是素数”的信息。
Declare @i int, @j int
Set @iSet @j=2
While @j@i
Begin
If @i%@j=0 print ‘@i’+‘不是素数’
set @j=@j+1
end
If @j=@i
Print ‘@i’+是素数’
Declare @i int, @j int
Set @i=53
Set @j=2
While @j=@i-1
Begin
If @i % @j = 0 break
Set @j = @j+1
End
If @j=@i
Print str(@i)+是素数
Else
Print str(@i)+不是素数
求s=a+aa+aaa+…+aaa…aaa(n个a),其中a和n的值由用户使用Set或Select语句自己输入。例如,当a=3,n=4时,S=3+33+333+3333。
Declare @a int,@n int,@s int
Set @a=3
Set @n=1
Set @s=0
While @n=4
Begin
Set @s=@s+@a*(power(10,@n)-1)/9
Set @n=@n+1
End
Print @s
文档评论(0)