如何取亂數
出自VFP Wiki
（修訂版本間差異）
小 |
小 (→如何取亂數) |
||
| 第5行： | 第5行： | ||
for i=1 to 10 | for i=1 to 10 | ||
? rand() | ? rand() | ||
| - | next | + | next |
| + | |||
| + | === 如何洗樸克牌 === | ||
| + | dime pk[52] | ||
| + | for i=1 to 52 | ||
| + | pk[i]=i | ||
| + | next | ||
| + | rand(-1) | ||
| + | for i=1 to 52 | ||
| + | mtaget = int(rand()*52)+1 | ||
| + | mtemp = pk[ mtaget ] | ||
| + | pk[mtaget] = pk[i] | ||
| + | pk[i] = mtemp | ||
| + | next | ||
</pre> | </pre> | ||
===參考資料=== | ===參考資料=== | ||
http://fox.hanyu.com.tw/View.aspx?fbId=1&Id=25649 | http://fox.hanyu.com.tw/View.aspx?fbId=1&Id=25649 | ||
在2005年5月25日 (三) 02:14的最新修訂版本
如何取亂數
rand(-1) for i=1 to 10 ? rand() next === 如何洗樸克牌 === dime pk[52] for i=1 to 52 pk[i]=i next rand(-1) for i=1 to 52 mtaget = int(rand()*52)+1 mtemp = pk[ mtaget ] pk[mtaget] = pk[i] pk[i] = mtemp next
