Solved

Random number generator for even numbers only (500 points)

Posted on 2008-06-16
3
216 Views
Last Modified: 2010-04-05
I need to quickly generate a random number between 1000 and 65000 but it must be even.  

I am using Delphi 6.  

I am giving the maximum 500 points as this is urgent.  Many thanks for your help.
0
Comment
Question by:rincewind666
3 Comments
 
LVL 14

Accepted Solution

by:
SteveBay earned 500 total points
ID: 21796928
I think this is what you want:
function TForm1.RandEven: Integer;
begin
     Randomize;
     repeat
          Result :=  (Random( 64000 ) + 1000);
     UNtil (Result Mod 2) = 0
 
end;

Open in new window

0
 

Author Comment

by:rincewind666
ID: 21797022
SteveBay, many thanks for your help.  Greatly appreciated.
0
 
LVL 2

Expert Comment

by:TheVanter
ID: 21797079
Randomize;
numberwanted := Random(500 + random(32000)) * 2;

The randomize is needed to mix up the pseudo-random numbers generated by the time.

or for a variable even range:
function randomeven(min, max: double): double;
var range, tmp : double;
  begin
  Randomize;
  if min > max then
    begin
    tmp := min;
    min := max;
    max := tmp;
    end;
  min := min / 2;
  max := max / 2;
  range := max - min;
  randomeven := (min + Random * range) * 2;
  end;

Open in new window

0

Featured Post

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
In a recent question (https://www.experts-exchange.com/questions/28997919/Pagination-in-Adobe-Acrobat.html) here at Experts Exchange, a member asked how to add page numbers to a PDF file using Adobe Acrobat XI Pro. This short video Micro Tutorial sh…

810 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question