randomrange

[BubikolRamios]

Is that really useful for small ranges ?
I can tell there are 1000+  just 1 before and 1000+  just 2 after (see image)

randomize does no change anything at all.

Code: Pascal  [Select][+][-]

1.   for ...
2.   begin
3.  
4.     randomize();
5.     random12 := RandomRange(1,3);
6.     SynEdit1.Lines.Add(IntToStr(random12 ));
7.  
8.   end;
9.  

Any suggestion ?

[Thaddy]

I don't see anything wrong.
A random in the range 1..3 is returned. 3 is not part of the range... see:
https://www.freepascal.org/docs-html/rtl/math/randomrange.html

So the function can only return 1 or 2 and it does.

Code: Pascal  [Select][+][-]

1. //tested with
2. {$ifdef fpc}{$mode objfpc}{$endif}
3. uses math;
4. type range = 0..999;
5. var
6.  i:integer;
7. begin
8.   randomize;
9.   for i in range do writeln(i:5,randomrange(1,3):2);
10. end.

If 3 needs to be included, make the upper range 4.

[BubikolRamios]

Ahh, forget that, works fine. Had SynEdit1.Lines.Add(IntToStr(random12 )) inside wrong loop.
Thanks.