wr格式的杨辉三角:)

zhaoaihua305

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

dionysus

惭愧，我都不知道杨辉三角是啥了