主题:急!急!急!
tq688
[专家分:0] 发布于 2007-04-19 18:43:00
各位编程爱好者们好,向大家求一个用QBASIC画图的,随便什么内容!
回复列表 (共1个回复)
沙发
V2战警2 [专家分:390] 发布于 2007-07-26 17:53:00
一个太极图——————————————————————
cls
pi=4*atn(1)
screen 12
a=40
r=5*a
circle (8*a,r),a
circle (r+a,r),a
circle (2*r,r),a
circle (a+r,r),2*a,,0,pi
circle (2*r,r),2*a,,pi,0
paint (2*r,r):paint (8*a,7*a)
end
我来回复