Re: [問題] 20個人中隨機抽取10個人

[janewinnie (逃離)]

忘了回來板上看@@
我已經寫出一個方法了

先給每個人一個亂數
如果100人要取20人，就取亂數最大的20人

main program
implicit none
integer,parameter::k=20,n=100   !k是要選出的人數,n為總人數
integer::who(n)                 !who作為有無選上的標記


call choose(k,n,who)
write(*,*) who                     !1表是選上,0表示未選上
stop
end program


subroutine choose(k,n,who)
implicit none
integer::thft,i,n,person,loca(1)
real::rand(n)
integer::who(n)


call random_number(rand)    !叫出"n"個亂數(每個人配一個亂數)
 do i=1,k,1
    loca=maxloc(rand)     !找擁有最大亂數的那個人
    person=loca(1)
    who(person)=0       !這個人的who=1
    rand(person)=0      !將這個人的亂數設為0，下次就不會再選到
 enddo

return
end


--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.123.185.83
推 latinboy: 可以用 但是效率很驚人.....