請教一個問題--亂數 |
答題得分者是:malanlk
|
goodjimmy
一般會員 發表:20 回覆:26 積分:9 註冊:2004-02-19 發送簡訊給我 |
|
wyndog
資深會員 發表:7 回覆:362 積分:348 註冊:2004-10-12 發送簡訊給我 |
|
goodjimmy
一般會員 發表:20 回覆:26 積分:9 註冊:2004-02-19 發送簡訊給我 |
|
malanlk
尊榮會員 發表:20 回覆:694 積分:577 註冊:2004-04-19 發送簡訊給我 |
是這樣吧....
procedure TForm1.FormCreate(Sender: TObject); begin Randomize; end; procedure TForm1.Button1Click(Sender: TObject); var p: Real; begin p := RandomBetween_X_and_1(0.9); ShowMessage(Format('%8.7f',[p])); end; function TForm1.RandomBetween_X_and_1(X:Real): Real; begin if (X<1) and (X>0) then Result := Random*(1-X) X else Result := 0; end; |
richtop
資深會員 發表:122 回覆:646 積分:468 註冊:2003-06-10 發送簡訊給我 |
goodjimmy 您好: 不精確知道您要產生的變數範圍,底下程式碼請參考!
// 0 <= random(n) < n procedure TForm1.Button1Click(Sender: TObject); var k : integer; begin for k:=1 to 10 do begin ListBox1.Items.Add( FloatToStr((1 random(10))/10) ); //小數點後 1 位 //ListBox1.Items.Add( FloatToStr((10 random(91))/100) ); //小數點後 2 位 //ListBox1.Items.Add( FloatToStr((100 random(901))/1000) ); //小數點後 3 位 // ..... end; end;RichTop 敬上 =====***** 把數學當工具,可以解決問題;將數學變能力,能夠發現並解決問題! =====##### |
goodjimmy
一般會員 發表:20 回覆:26 積分:9 註冊:2004-02-19 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |