Pseudorandom number generator image: Difference between revisions
Pseudorandom number generator image (view source)
Revision as of 15:53, 19 February 2022
, 2 years agoAdded XPL0 example.
(Pseudorandom number generator image en FreeBASIC) |
(Added XPL0 example.) |
||
Line 517:
static draw(dt) {}
}</lang>
=={{header|XPL0}}==
The PRNG is built in to the language (as well as graphics) and is seeded with the time-of-day.
<lang XPL0>int X, Y;
[SetVid($11B); \VESA 1280x1024x24
for Y:= 0 to 1000-1 do
for X:= 0 to 1000-1 do
Point(X, Y, Ran($100_0000));
]</lang>
{{out}}
<pre>
Same as Delphi's image.
</pre>
| |||