How to generate random number in FreePascal between 1 and 1,000,000

How to generate random number in Free Pascal between 1 and 1,000,000?

I have used a variable type as LongInt, Real, Integer, but there is always an RangeError.

But random number between 1 and 33,333 is working correctly.

Program Random;

var
  a: ...;

begin

a:=random(1000000);

end.

pascal

Contributors

Views

4 Years

Discussion Span

4 Years Ago

Last Post by cereal

While waiting for more appropriate support, try to load randomize. This seems to work fine for me:

Program Test;

var
  num:longint;

begin
  randomize;
  num:=random(1000000);
  write(num, '');
  writeln;
end.

Source: http://www.freepascal.org/docs-html/rtl/system/randomize.html

This topic has been dead for over six months. Start a new discussion instead.

public class StudentListings{

 
     private String name;   // key field 

 
     private int ID; 

 
     private double GPA; 
 
     private int next; 
 
     private int size;
 
     private StudentListing[] data; 
 
 
   public StudentListings(){
 
       this.name= name; 
       this.id= ID; 
       this.gpa=GPA; 
   } 
 
   public StudentListings(){ 
 
    next=0; 
    data= new StudentListings[Size]; 
    size= Size; 
 
   } // end of constructor 
  ...

I'm currently developing a webpage that when user input the data needed in Advance Filtering and click on the button'Search Result',the table will show the data needed,but the problem is ...

Suppose you have 3 tables: TABHDBH, TABHDBHCHUYEN and TABHDBHCT
Table TABHDBH has the following fields:
NGAY DateTime;
IDHDBH int
...

Table IDHDBHCT has the following fields:
MAHDBH int
...

TABHDBHCHUYEN ...