您所在位置：主题：好久没来了,,碰到问题来求助
zhongaike [专家分：0] 发布于 2006-09-25 20:30:00
SCREEN 12
WINDOW (-100, -80)-(100, 80)
INPUT "n,r="; n, r
a = 3.1415926# / 2
FOR b = 0 TO 4 * n
k = r * (2 ^ (-FIX(b / 4)))
x = k * COS(a * b)
y = k * SIN(a * b)
m = 3.1415926# * (1 + ((-1) ^ FIX(b / 4))) / 2
CIRCLE (x, y), k, a * (b - 1) + m, a * b + m
NEXT b
END
一,上面这个程序谁来帮我解释一下,
二,这个程序运行的时候出现问题,帮我修改一下.
先谢谢了....今晚在线等.
WINDOW (-100, -80)-(100, 80)
INPUT "n,r="; n, r
a = 3.1415926# / 2
FOR b = 0 TO 4 * n
k = r * (2 ^ (-FIX(b / 4)))
x = k * COS(a * b)
y = k * SIN(a * b)
m = 3.1415926# * (1 + ((-1) ^ FIX(b / 4))) / 2
CIRCLE (x, y), k, a * (b - 1) + m, a * b + m
NEXT b
END
一,上面这个程序谁来帮我解释一下,
二,这个程序运行的时候出现问题,帮我修改一下.
先谢谢了....今晚在线等.
