Вопрос Помогите пожалуйста перевести программу из QBASIC в Small Basic

[zviagateror]

screen 12
pi=4*atn(1)
k=.25
r0=150
for u=0 to 2*pi step pi/10000
r=r0*sin(5*u)
h=r0*sin(5*u)^2
x=320+r*cos(u+.2)
y=240+k*r*sin(u+.2)
pset(x,y-h)
next u

 

[Nelub123]

pi = 4*Math.ArcTan(1) k = 0.25 r0 = 150 for u = 0 to 2*pi step pi/10000 r=r0*Math.sin(5*u) h=r0*Math.Power(Math.sin(5*u),2) x=320+r*Math.cos(u+.2) y=240+k*r*Math.sin(u+.2) GraphicsWindow.SetPixel(x,y-h,"Red") EndFor

 

[Rey000]

шшдд