home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / windows / units / rand.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1993-06-04  |  400 b   |  32 lines
  1. PROGRAM RandTest;
  2.  
  3. USES WinCrt; 
  4.  
  5. PROCEDURE MitRandomize;
  6. VAR i,x : INTEGER;
  7. BEGIN
  8.   Randomize;
  9.   FOR i := 0 TO 9 DO
  10.   BEGIN
  11.     x := Random(i);
  12.     Write (x:7);
  13.   END;
  14. END;
  15.  
  16. PROCEDURE OhneRandomize;
  17. VAR i,x : INTEGER;
  18. BEGIN
  19.   FOR i := 0 TO 9 DO
  20.   BEGIN
  21.     x := Random(i);
  22.     Write (x:7);
  23.   END;
  24. END;
  25.  
  26. BEGIN
  27.   OhneRandomize;
  28.   WriteLn;
  29.   MitRandomize;
  30.   ReadLn;
  31. END.
  32.