[請益] 求救 亂數發牌

[forwardsky (......)]

老師出一個作業，為了這作業煩惱超久，因為我們都是新手

毫無頭緒下手

撲克牌共有四種花色：♠Spade、♥Heart、♦Diamond、♣Club，以簡單隨機

方式發給"兩家各五張牌"，並讓雙方的牌

依照

黑桃♠、紅心♥、方塊♦、梅花♣排列

一次中同一張牌不能重複出現，

有個發牌鍵，按下去後又可以重新亂數發牌

老師有給一個撲克牌的圖檔，有52張<例:黑桃3的檔名就是"S3">

然後給了一些提示

<1>

FOR($X=1;$X<=10;$X++)

{DO
   {$i=RAND(1,52);

} WHILE($A[$i]< >0);

$A[$i]=$X;

<2>
(int)(($i-1)/13).....跟花色有關

$i%13.......跟1~13有關

可以請大家幫幫我們嗎?

謝謝～

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.123.232.164
推 yuleen123:看來我們修同一堂課..  XD
推 ileadu:參考範例在這？http://140.123.174.143/891530003/HW4/