51Testing软件测试论坛
标题:
wr格式的杨辉三角:)
[打印本页]
作者:
zhaoaihua305
时间:
2007-12-25 16:11
标题:
wr格式的杨辉三角:)
一个小朋友问杨辉三角的算法,由于机器上没有安装其他开发环境,试了一下wr(8.0),竟然调过.脚本如下(空格用*号代替了,便于查看结果):
db_connect("query1","DSN=??;UID=??
WD=??;DBQ=??;DBA=W;APA=T;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;FRL=F;MTS=F;CSR=F
FC=10;TLO=0;",30);
public i,j,arry[];
for(i=1;i<10;i++)
{
for(j=10-i;j>0;j--)
{
report_msg("*");
}
arry[i,1]=1;
report_msg(arry[i,1]);
for(j=2;j<i;j++)
{
arry[i,j]=arry[int(i)-1,int(j)-1]+arry[int(i)-1,int(j)];
report_msg("arry["&i&","&j&"]=arry["&(int(i)-1)&","&int(j)-1&"]+arry["&int(i)-1&","&int(j)&"]="&arry[i,j]);
}
if(i!=1)
{
arry[i,i]=1;
report_msg(arry[i,i]);
}
}
就是不知道换行用哪个函数,呵呵,如果可以,替换最后那句折行显示即可.
作者:
dionysus
时间:
2007-12-25 22:15
惭愧，我都不知道杨辉三角是啥了
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)
Powered by Discuz! X3.2
WD=??;DBQ=??;DBA=W;APA=T;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;FRL=F;MTS=F;CSR=F