home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / rantest.pas < prev    next >
Pascal/Delphi Source File  |  1984-04-29  |  427b  |  24 lines
  1. Program rantest;
  2. { last edited: 7/15/81 }
  3. var
  4.   i: integer;
  5.   r: real;
  6.   seed: real;
  7.  
  8.  
  9. FUNCTION RANDOM(VAR SEED: REAL):REAL;EXTERNAL;
  10.  
  11. begin
  12.   seed := 4.0;
  13.   While true do begin
  14.     writeln;
  15.     write('enter number of numbers to generate: ');
  16.     readln(n);
  17.     writeln;
  18.     for i:=1 to n do begin
  19.       r := random(seed);
  20.       writeln( i:4,   r,  trunc(r*10), trunc(r*5) );
  21.     end;
  22.   end{while};
  23. end.
  24.