设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 17950|回复: 3

[求助] 急求,简单问题想不出来

  [复制链接]
发表于 2015-6-11 09:57:59 | 显示全部楼层 |阅读模式
5仿真币
如图,需要每次运行某段程序后,在表格的第三列中随机插入1~10不重复的10个数字,请问程序怎么写?
附件: 您需要 登录 才可以下载或查看,没有帐号?注册
 楼主| 发表于 2015-6-11 16:52:56 | 显示全部楼层
zsp643295840 发表于 2015-6-11 11:22
8 I& t' {5 `9 r/ ~, c7 O; k! d* |3 c再来个简洁版的" L! \9 x3 o8 |  L: g, U/ h' j1 W
is* N& D  `4 |# S7 W. T7 {, R0 x/ J3 Q
        i,j,num,val:integer;
+ o2 V4 U( ?- x1 Y% W" h% h5 d: h/ A
非常感谢,可是程序上的obj.delete;这段话会把表格其他的数据都删除了,能只删除表格第3列的数据吗?
; h' f% k( ?) {& L# h( B另外        你可以帮我解答下程序里的疑问吗?我找不出书本可以学习这些语句
. P: e  d# f, O' s% w) x0 g6 R        for i:=1 to num loop
9 j' L; o5 I* Q1 _7 x                isrepeat:=true; 0 o8 I1 t! E/ K; I2 r
                repeat
! q8 z  x' I$ I                        val:=z_uniform(1,1,num+1);$ P3 C, O: i# r) |
                        obj.cursorx:=3;     这句和下句用法?我知道跟去重有关,可以不知道为什么这么用,为什么值为3和1
5 Y% t) v9 r5 V6 S- |                        obj.cursorx:=1;
2 m: ?- ]  }! R8 J                        if not obj.find({3,1}..{3,num},val) then, P: J& H+ a2 g& [0 d- X
                                obj[3,i]:=val;
9 E0 o7 S3 |3 c5 J2 z; [                                isrepeat:=false;& D: s; I/ \' y" {2 S  S
                        end;( \$ r- p# a& F" b- V
                until not isrepeat;6 `+ z5 M+ Z8 w3 ^& D2 {* W' K: G
        next;
- v9 v- k: _% J* q
发表于 2015-6-11 17:10:56 | 显示全部楼层
taoyifei2000 发表于 2015-6-11 16:51
1 G8 G9 u) P  Q* a纯交流 / \0 D7 ?3 x( z$ i
3 w; v' T: D. O9 y
这个程序没问题,但是效率是需要考虑的,尤其是问题规模大的时候,repeat的时候会有很多无用 ...
7 U2 ~* n8 r, c/ W: {  D- T& N
厉害!!!
 楼主| 发表于 2015-6-12 16:01:31 | 显示全部楼层
zsp643295840 发表于 2015-6-11 17:02
& r6 t/ H7 O& r/ ]$ B, Q可以只删除第三列path.delete({3,1}..{3,*}); / I/ t; A3 c) v5 ~+ e
至于cursor的问题,建议F1查看帮助
& M5 e$ l+ q1 s6 O$ S* V% z: e& JPS:建议采用4楼的方法 ...

1 r$ ?: t. v: m. v% t* m好的,非常感谢,收获很多
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2025-12-17 13:43 , Processed in 0.017560 second(s), 13 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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