Sierpinski triangle/Graphical: Difference between revisions
Sierpinski triangle/Graphical en QBASIC
m (Quackery moved to be in alphabetic order. D'oh.) |
(Sierpinski triangle/Graphical en QBASIC) |
||
Line 425:
PostMessage, 0xA1, 2
}</lang>
=={{header|BASIC}}==
{{works with|QBasic}}
<!-- {{works with|QBasic}} codificado por: Kibbee, 12 junio 2012 -->
<lang basic>
SCREEN 9
H=.5
P=300
FOR I=1 TO 9^6
N=RND
IF N > 2/3 THEN
X=H+X*H:Y=Y*H
ELSEIF N > 1/3 THEN
X=H^2+X*H:Y=H+Y*H
ELSE
X=X*H:Y=Y*H
END IF
PSET(P-X*P,P-Y*P)
NEXT
</lang>
[https://www.dropbox.com/s/c3g1ae1i771ox7g/Sierpinski_triangle_QBasic.png?dl=0 Sierpinski triangle QBasic image]
=={{header|BBC BASIC}}==
| |||