Question

How to use the clock as a random generator seed in Pascal

Answer 1

program RandomSeedExample;

uses
  SysUtils; // For Randomize

var
  i: Integer;
  randomNumber: Longword; // Longword = unsigned 32-bits integer
 
begin
  // Seed the random number generator with the current time
  Randomize;  
   
  for i := 1 to 40 do
  begin
    // Generate a random number between 1 and 100
    randomNumber := Random(100) + 1;
     
    Writeln(randomNumber);
  end;
end.




(*
run:

73
32
48
61
19
69
14
60
90
45
81
2
59
79
92
9
66
2
88
62
61
1
25
10
41
71
44
11
71
79
35
11
4
63
24
86
82
16
35
100

*)

 

Learn SQL from A to Z at LearnSQL.com