Constrained random points on a circle: Difference between revisions
Constrained random points on a circle (view source)
Revision as of 20:27, 28 February 2022
, 2 years agoConstrained random points on a circle en BASIC256
(Constrained random points on a circle en Yabasic) |
(Constrained random points on a circle en BASIC256) |
||
Line 363:
=={{header|BASIC}}==
==={{header|BASIC256}}===
{{trans|PureBasic}}
<lang freebasic>graphsize 31, 31
for i = 1 to 100
do
x = int(rand * 30) - 15
y = int(rand * 30) - 15
r = sqr(x*x + y*y)
until 10 <= r and r <= 15
color rgb(255, 0, 0)
plot(x+15, y+15)
next i
end</lang>
==={{header|BBC BASIC}}===
| |||