编程问题,高手进!

来源:百度知道 编辑:UC知道 时间:2024/05/31 03:33:46
想要一道用QBASIC编出来的的图形,要好看的,漂亮的图形.行的话,给出程序,谢谢大家了~~~~~要漂亮点的,像房子之类的

五角星
CLS
SCREEN 13
x0=160
y0=100
r=80
b=3.14159/2
p=4*3.14159/5
FOR k=0 to 4
x1=x0+r*cos(k*p-b)
y1=y0+r*SIN(k*p-b)
x2=x0+r*cos((k+1)*p-b)
y2=y0+r*sin((k+1)*p-b)
LINE (x1,y1)-(x2,y2),4
next k
paint(x0,y0),4
for k =0 to 4
paint(x0+.5*r*cos(k*p-b),y0+.5*r*sin(k*o-b)),4
next k
end

for i = 1 to1000
for j = 1 to (1000-i)+1
print "*";
next j
print
next i

What the hell is QBASIC?