随机数问题

各位大虾，如何同时产生15个随机数，其中随机分布3到5位的正数和3到5位的负数  
  问题点数：65、回复次数：6Top

1 楼xiaoxiao197821（你的笑对我很重要）回复于 2001-12-04 09:02:07 得分 30

var  
  s:string;  
  i,j:integer;  
  begin  
    s:=''   ;  
    for   i:=1   to   15   do  
    begin  
      j:=random(2);  
      if   j=0   then   s:=s+inttostr(random(3)+3);  
      if   j=1   then   s:=s+inttostr(random(3)-5);  
    end;  
  edit1.text:=s;  
  end;Top

2 楼小乖（Xi@oGu@i）回复于 2001-12-04 09:07:59 得分 0

SUB   WINDOW_ONLOAD   ()  
  DIM   s   AS   STRING  
  S=""  
  FOR   I=1   TO   15  
  J=RANDOM(2)  
  IF   J=0   THEN   S=S   &   RANDOM(3)+3  
  IF   J=1   THEN   S=S   &   RANDOM(3)-5  
  NEXT  
  MSGBOX   S  
  END   SUB  
   
  VB实现(翻译过来的)Top

3 楼cobi（我是小新）回复于 2001-12-04 09:11:25 得分 0

guanzhu   Top

4 楼ahdou0（阿斗）回复于 2001-12-04 09:14:08 得分 0

记住，在调用random   之前，需要先调用randomize,否则不会产生真正的随机数Top

5 楼enlightenment（破冰超人）回复于 2001-12-04 09:30:02 得分 35

function   MyRandom:integer;  
  begin  
      randomize;  
      Result:=Random(100000-100)+100;  
      if   Boolean(Random(2))then   Result:=-Result;  
  end;  
   
  Top

6 楼小乖（Xi@oGu@i）回复于 2001-12-04 14:59:32 得分 0

恩!  
  对Top

相关问题

• 随机数
• random
• then
• begin
• result

• 帖主：pbnewer
• xiaoxiao197821
• enlightenment

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载