之前寫的賓果遊戲想多加一個亂數取號的功能 但是沒學過亂數,沒亂數的概念 程式目的: 取25個亂數,範圍1~25,不重複,儲存到edit(1~25)

#include "stdlib.h"//下面函式需要的標題檔
 srand((unsigned)time(NULL));//對時間做亂數
 int Point=rand()% 1;//取亂數範圍1~25
 Edit1->Text=IntToStr(Point);
 

或參考這篇樂透的解法~大同小異 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=61818 發表人 - rogan321 於 2005/01/10 00:22:04

    int Point[25];//取亂數範圍1~25
    srand((unsigned)time(NULL));//對時間做亂數
    for ( int ran=1 ; ran<=25 ; ran  )
    {
       Point[ran]=rand()% 1;
    }
    for ( int system=1 ; system<=25 ; system   )
    {
       TEdit *edit = dynamic_cast(FindComponent("Edit"   IntToStr(system)));
       edit->Text=IntToStr(Point[system]);
    }

還是怪怪的,會重複,最後一個數字會超出範圍

[quote]      for ( int ran=1 ; ran<=25 ; ran++)     {        Point[ran]=rand()%25+1;     } 這只會產生1~25的亂數，當然會重複 最後一個數字會超出範圍 你的最後一個參數是Point[25]，你妳只宣告到Point[0]~Point[24](共25個) [/quote

int i,j,Temp; bool BRepeat; for ( i = 0; i < 25; i++ ) {     do{         BRepeat = false         Temp = rand()%25+1;         for ( j=0 ; j(FindComponent("Edit" IntToStr(system))); edit->Text=IntToStr(Point[system]); }

大家好： 插個花！ 因為該遊戲的資料是固定的，1~25。 所以可以將1~25的數字存在一陣列中，再隨機選擇交換該陣列中的元素，這樣就可以避免掉判斷資料是否重複的問題，又能獲得打亂後的排列結果。 RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

感謝blk5743 & rogan321 的回答