NonRandomRandom.ecl 257 B

1234567891011121314
  1. //
  2. // Example code - use without restriction.
  3. //
  4. INTEGER1 Rand1 := (RANDOM() % 25) + 1;
  5. OUTPUT(Rand1);
  6. OUTPUT(Rand1);
  7. OUTPUT(Rand1);
  8. INTEGER1 Rand2 := (RANDOM() % 25) + 1 : STORED('MyRandomValue');
  9. OUTPUT(Rand2);
  10. OUTPUT(Rand2);
  11. OUTPUT(Rand2);