|
一个小朋友问杨辉三角的算法,由于机器上没有安装其他开发环境,试了一下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=FFC=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]);
}
}
就是不知道换行用哪个函数,呵呵,如果可以,替换最后那句折行显示即可. |
|