急，跪求各位高手幫忙編一個自然數隨機排列程序，在線等，謝謝！

zhanzhe

假設　X　Y　Z　三個變量的自然數，X大於或等於1，小於或等於5; Y大於或等於2，小於或等於8; Z大於或等於7，小於或等於12　；；　現在把　X　Y　Z　三個自然數分別放在幾個不同的箱子裡按從大到小的順序排列，即需保證 X<Y<Z，還有，要保證　X　Y　Z　的和　小於或等於　20　請問有幾種排法？並且有哪幾種？

請各位高手幫忙出出主意： 利用上面的一些條件，能不能在CAD裡面編寫一個小程序，把所以的幾種排法都呈現在屏幕上？（那樣我就不用一個一個地去數有多少種排法了，並且准確，省時）

萬分謝謝！

tengte

(x y z)
(1 2 7)
(1 2 8)
(1 2 9)
(1 2 10)
(1 2 11)
(1 2 12)
(1 3 7)
(1 3 8)
(1 3 9)
(1 3 10)
(1 3 11)
(1 3 12)
(1 4 7)
(1 4 8)
(1 4 9)
(1 4 10)
(1 4 11)
(1 4 12)
(1 5 7)
(1 5 8)
(1 5 9)
(1 5 10)
(1 5 11)
(1 5 12)
(1 6 7)
(1 6 8)
(1 6 9)
(1 6 10)
(1 6 11)
(1 6 12)
(1 7 8)
(1 7 9)
(1 7 10)
(1 7 11)
(1 7 12)
(1 8 9)
(1 8 10)
(1 8 11)
(2 3 7)
(2 3 8)
(2 3 9)
(2 3 10)
(2 3 11)
(2 3 12)
(2 4 7)
(2 4 8)
(2 4 9)
(2 4 10)
(2 4 11)
(2 4 12)
(2 5 7)
(2 5 8)
(2 5 9)
(2 5 10)
(2 5 11)
(2 5 12)
(2 6 7)
(2 6 8)
(2 6 9)
(2 6 10)
(2 6 11)
(2 6 12)
(2 7 8)
(2 7 9)
(2 7 10)
(2 7 11)
(2 8 9)
(2 8 10)
(3 4 7)
(3 4 8)
(3 4 9)
(3 4 10)
(3 4 11)
(3 4 12)
(3 5 7)
(3 5 8)
(3 5 9)
(3 5 10)
(3 5 11)
(3 5 12)
(3 6 7)
(3 6 8)
(3 6 9)
(3 6 10)
(3 6 11)
(3 7 8)
(3 7 9)
(3 7 10)
(3 8 9)
(4 5 7)
(4 5 8)
(4 5 9)
(4 5 10)
(4 5 11)
(4 6 7)
(4 6 8)
(4 6 9)
(4 6 10)
(4 7 8)
(4 7 9)
(5 6 7)
(5 6 8)
(5 6 9)
(5 7 8)
共104个

tengte

;题目有点问题吧，不是随机排列，应该是排列组合吧

(defun c:TT (/ lst)

(setq x1  1
 x2  5
 y1  2
 y2  8
 z1  7
 z2  12
 sum 20
 x   x1
  )
  (while (<= x x2)
    (setq y (max y1 (1+ x)))
    (while (<= y y2)
      (setq z  (max z1 (1+ y))
     z0 (- sum x y)
      )
      (while (and (<= z z2) (<= z z0))
 (setq lst (append lst (list (list x y z)))
       z   (1+ z)
 )
      )
      (setq y (1+ y))
    )
    (setq x (1+ x))
  )
  (princ "\n(x y z)\n")
  (foreach el lst (print el))
  (mapcar 'princ (list "\n共" (length lst) "个"))
  (princ)
)

zhanzhe

謝謝樓主！非常感謝！