关于杨辉三角 - 编程论坛

#2

yms1232010-05-17 19:36

Dim a(10,10),i,j;
　For i=0 To 9
 j=10
　 Do While j>=i
　　 Response.Write "  " '两个空格
 j=j-1
 Loop
 j=0
　　Do While j<=i
　　 if i=j Or j=0 Then
　　 a(i,j)=1
　　 Else
　　 a(i,j)=a(i-1,j)+a(i-1,j-1)
 End IF
　　 Response.Write a(i,j)&" "
　　 if i=j Then
　　 Response.Write " "
 End IF
 j=j+1
　　Loop
　Next

[ 本帖最后由 yms123 于 2010-5-17 19:38 编辑 ]

#3

golmjie2010-05-17 19:50

回复 2楼 yms123

程序代码：

错误类型：
Microsoft VBScript 编译器错误 (0x800A0408)
无效字符
/test2.asp, line 12
　Dim a(10,10)i,j;

版主不行也。它提示无效的字符啊！

#4

yms1232010-05-17 19:56

Dim a(10,10),i,j
　For i=0 To 9
 j=10
　 Do While j>=i
　　 Response.Write "  " '两个空格
 j=j-1
 Loop
 j=0
　　Do While j<=i
　　 if i=j Or j=0 Then
　　 a(i,j)=1
　　 Else
　　 a(i,j)=a(i-1,j)+a(i-1,j-1)
 End IF
　　 Response.Write a(i,j)&" "
　　 if i=j Then
　　 Response.Write " "
 End IF
 j=j+1
　　Loop
　Next

#5

golmjie2010-05-17 20:40

回复 4楼 yms123

还是不行呀！

#6

hams2010-05-18 15:18

怎么个不行法呀？

#7

golmjie2010-05-18 15:36

回复 6楼 hams

它说无效的字符！

#8

gupiao1752010-05-18 15:46

版主YMS123的方法是可以的，你认真看看，排个版本，对齐一下，否则ASP会误认为是无效的字符！

程序代码：

<%
dim a(10,10)
dim i
dim j

for i=0 to 9
 j=10
Do While j>=i
response.write "  " ' 两个空格
 j=j-1

Loop
 j=0
Do While j<=i
if i=j or j=0 then

a(i,j)=1
Else
a(i,j)=a(i-1,j)+a(i-1,j-1)

End IF
Response.Write a(i,j)&" "
if i=j then
Response.Write " "
End IF
j=j+1
Loop
next
%>

#9

yms1232010-05-18 16:19

<%
Dim h,w
Dim a()
ReDim a(99,99)
For h=1 To 10
 For w=1 To h
 If w=1 Or w=h Then
 a(w,h)=1
 Response.Write a(w,h)
 Else
 a(w,h)=a(w-1,h-1)+a(w,h-1)
 Response.Write a(w,h)
 End If
 Next
 Response.Write " "
Next
%>

#10

gupiao1752010-05-18 18:58

<%
Dim h,w
Dim a()
ReDim a(99,99)
For h=1 To 10
 For w=1 To h
 If w=1 Or w=h Then
 a(w,h)=1
 Response.Write a(w,h)&" "
 Else
 a(w,h)=a(w-1,h-1)+a(w,h-1)
 Response.Write a(w,h)&" "
 End If
 Next
 Response.Write " "
Next
%>
这种算法更简单，厉害！

#11

golmjie2010-05-18 19:55

回复 9楼 yms123

谢谢版主是可以的

#12

golmjie2010-05-18 19:59

回复 10楼 gupiao175

恩。。这个更好点！