SQL实现杨辉三角

 

1. create proc pr_YangHui
2.     @n int  --杨辉三角的层数，1~67
3. as
4. begin
5.     set nocount on
6.     if @n<1 or @n>67 
7.         return
8.     declare @t table(nid int identity(1,1), val bigint) --存储杨辉三角中的数字
9.     insert @t select top 80 1 from sysobjects a, sysobjects b
11.     declare @i int, @str varchar(4000), @nWidth int, @cSpace varchar(20)
12.     
13.     --计算数字的最大宽度,以便控制数字前面显示的空格
14.     set @i=1
15.     while @i<=@n
16.     begin
17.         update a set val=a.val+b.val
18.         from @t a join @t b on a.nid=b.nid+1 where a.nid<@i         
19.         set @i=@i+1     
20.     end     
21.     select @nWidth = len(max(val))+1 from @t    
22.     update @t set val=1 where nid<@i
23.     select @nWidth = @nWidth + @nWidth%2, @cSpace=space(@nWidth)
25.     --打印杨辉三角
26.     set @i=1
27.     while @i<=@n
28.     begin
29.         update a set val=a.val+b.val
30.         from @t a join @t b on a.nid=b.nid+1 where a.nid<@i
31.         set @str=''
32.         select @str=@str+right(@cSpace+cast(val as varchar), @nWidth) from @t where nid<=@i
33.         print space((@n-@i)*@nWidth/2)+@str
34.         set @i=@i+1     
35.     end 
36. end
37. go
39. exec pr_YangHui 6
40. /*
41.              1
42.            1   1
43.          1   2   1
44.        1   3   3   1
45.      1   4   6   4   1
46.    1   5  10  10   5   1
47. */
49. --drop proc pr_YangHui