例如:N=5,R=3時，有如下組合
543
542
541
532
531
521
432
431
421
321
dime a(20)
input "n=" to n
input "r=" to r
i=1
a(1)=n
do while .T.
if i<>r
if a(I)>r-i
a(i+1)=a(i)-1
i=i+1
else
i=i-1
a(i)=a(i)-1
endif
else
for j=1 to r
??a(j)
endfor
?
if a(r)=1
i=i-1
a(i)=a(i)-1
else
a(i)=a(i)-1
endif
endif
if a(1)=r-1
exit
endif
enddo
有點看不懂程式。有誰給講解一下。程式注釋
uj5u.com熱心網友回復：
C(5,3) = 10 的組合演算法uj5u.com熱心網友回復：
*!* 5 選 3 的組合，得到 10 條記錄，Select SQL 演算法：
Create Cursor X (X N(2))
For I = 5 To 1 Step -1
Insert Into X Values (I)
Endfor
Select c.x c, b.x b, a.x a ;
From x a, x b, x c ;
Where a.x < b.x And b.x < c.x
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/95195.html
標籤：VFP
上一篇：請教個問題，mysql查詢總是報 ERROR 2013 (HY000): Lost connection to MySQL server,
下一篇：mysql 求金額占比