| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛

cs.rar (3.43 KB)

cs表中现在有两个人一模一样的答案，还有两个考生的答案相似，大家可以试一试。

[此贴子已经被作者于2023-9-17 07:46编辑过]

1、你的答案数据结构是什么样的？
2、如果人工判断，什么样的叫有作弊嫌疑？

dBase有人接盘了。

……只是为了介绍一下。
……大家可以试一试。
……以上两个问题，请大家分别给出查询代码。

“老师我已有了标准答案，同学们且试一试吧，看能否答对？”

```Close Databases
Use cs
Select kc from cs group by kc into array aGrp
Select xm, kc, Cast('' as V(50)) as suspect from cs where .f. into cursor result Readwrite

For m.ii = 1 to Alen(m.aGrp)
Select cs
Scan all for kc == m.aGrp[m.ii]
Scatter name oRec
m.oRec.ans = 0h + m.oRec.ans
Select xm, Bitxor(m.oRec.ans, 0h+ans) as op, Cast(0 as I) as diff ;
from cs where (kc == m.oRec.kc) and !(xm == m.oREc.xm) ;
Update temp set diff = Len(op) - Occurs(0h00, op)
Select xm, diff from temp where diff <= 3 order by diff into cursor temp
If Reccount('temp') > 0
m.cc = ''
Scan all
m.cc = m.cc + Textmerge('，<<Alltrim(xm)>>(不同:<<diff>>)')
EndScan
insert into result (xm, kc, suspect) Values (m.oRec.xm, m.oRec.kc, Substr(m.cc,3))
EndIf
EndScan
EndFor

Use in temp
Use in cs
Select result
Locate
Browse
```

[此贴子已经被作者于2023-9-17 10:15编辑过]

• 16
• 1/2页
• 1
• 2