home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol071 / rndmizer.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  827 b   |  41 lines
  1. Program rtest2;
  2. { 11/27/81 rep }
  3. var
  4.   a1, a2 ,a3: integer;
  5.   seed: real;
  6.  
  7.  
  8. function random( var seed: real):real; external;
  9.  
  10. procedure randomize; external;
  11.  
  12.  
  13. BEGIN
  14.   a1 := 0; a2 := 0; a3 := 0;
  15.   Write('Enter your first move -->');
  16.   RANDOMIZE;
  17.   readln( a1 );
  18.   writeln('First twenty numbers generated:' );
  19.   for a3:=1 to 20 do begin
  20.     write( a3:2 );writeln( trunc(random(seed)*10) );
  21.   end;
  22.   writeln;
  23.   writeln( 'NOTE: first move generated to block #', a1:1 );
  24. END.
  25.  
  26.  
  27.  
  28. PROCEDURE RANDOMIZE;
  29. { SEED THE RANDOM NUMBER GENERATOR BASED ON A RANDOM TIME DELAY }
  30. var    dummy: real;
  31.  
  32.   function constat: boolean; external;
  33.  
  34. begin
  35.   seed := 4.0;{ lucky guess }
  36.   { generate random numbers until a key press is detected }
  37.   while not constat do
  38.     dummy := random( seed );
  39. end{of randomize};
  40.  
  41.