RosettaCodeData/Task/Constrained-random-points-on-a-circle/ZX-Spectrum-Basic/constrained-random-points-on-a-circle.basic

7 lines
141 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
10 FOR i=1 TO 1000
20 LET x=RND*31-16
30 LET y=RND*31-16
40 LET r=SQR (x*x+y*y)
50 IF (r>=10) AND (r<=15) THEN PLOT 127+x*2,88+y*2
60 NEXT i