51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2813|回复: 1
打印 上一主题 下一主题

wr格式的杨辉三角:)

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-12-25 16:11:02 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
一个小朋友问杨辉三角的算法,由于机器上没有安装其他开发环境,试了一下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]);
        }
}
就是不知道换行用哪个函数,呵呵,如果可以,替换最后那句折行显示即可.
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-12-25 22:15:00 | 只看该作者
惭愧,我都不知道杨辉三角是啥了
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-25 03:45 , Processed in 0.071281 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表