Sierpinski triangle/Graphical: Difference between revisions
Content added Content deleted
m (Quackery moved to be in alphabetic order. D'oh.) |
(Sierpinski triangle/Graphical en QBASIC) |
||
Line 425: | Line 425: | ||
PostMessage, 0xA1, 2 |
PostMessage, 0xA1, 2 |
||
}</lang> |
}</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}}== |
=={{header|BBC BASIC}}== |