[公告] 要抽櫃子的記得繳交名單給我喔
看板NTU-GIIB2005作者a10111 (postcoital depression)時間20年前 (2005/10/08 23:42)推噓0(0推 0噓 2→)留言2則, 2人參與討論串1/1
可以站上寄信給我
或是EMAIL abc1011@so-net.net.tw
以下是抽獎程式碼
用MATLAB 歡迎測試
有疑點都可以提出來^^
==============================================
a=zeros(1,24); %存放中獎組別的陣列
i=1;
n=36; %參賽組數 可以亂改
while i<=24
b=ceil(n*rand(1,1)); %產生1~n的亂數
k=0;
for j=1:i %檢查有無重複
if a(j)==b
k=1;
end
end
if k==0
a(i)=b;
i=i+1;
end
end
c=sort(a); %由小到大排序
disp(c);
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.64.207.247
→
10/09 00:09, , 1F
10/09 00:09, 1F
※ 編輯: a10111 來自: 61.64.207.247 (10/09 00:12)
→
10/11 14:03, , 2F
10/11 14:03, 2F