注册 登录
编程论坛 Delphi论坛

如何取随即数且符合一定条件

受苦 发布于 2007-11-24 22:01, 1061 次点击
如下面~随机取1个十数满足下面条件~
      ord(edit2.text[1])+ord(edit2.text[6])=$6D
            ord(edit2.text[1])+ord(edit2.text[7])=$67
            ord(edit2.text[3])+ord(edit2.text[8])=$69
            ord(edit2.text[4])+ ord(edit2.text[9])=$70
             ord(edit2.text[5])* ord(edit2.text[10])=$0A8C
1 回复
#2
sky_yang_sky2007-11-26 10:15
用條件判斷,符合條件的就停,不符合條件的再生成下一個數
1