主题:怎么绘中国国旗啊
ypzyq
[专家分:0] 发布于 2005-06-14 21:06:00
会的大虾发个源程序看看,谢谢!
回复列表 (共18个回复)
11 楼
飞鸟12 [专家分:2830] 发布于 2005-08-17 14:26:00
"现依版副提示,绘制1/4的旗面 "
不过 ,国旗没画出来
12 楼
spray [专家分:180] 发布于 2005-08-18 06:41:00
screen 12:cls
window screen(-50,-50)-(100,50)
paint(0,0),4
for i=-5 to 9
for j=-5 to 4
'line(i*10,j*9)-(i*10+10,j*9+9),3,b
next j,i
star$ = "c14ta90r130 ta-72r250 ta144r250 ta0r250 ta-144r250 ta72r250"
s$(1)= "s2ta66r85 c14ta-96r165 ta120r165 ta-24r165 ta-168r165 ta48r165"
s$(2)= "ta114r85 c14ta-48r165 ta168r165 ta24r165 ta-120r165 ta96r165"
s$(3)= "ta-70r165 ta144r165 ta0r165 ta-144r165 ta72r62"
s$(4)= "ta70r85 c14ta-92r165 ta124r165 ta-21r165 ta-164r165 ta52r165"
p$="ta90r31 ta-36r39 ta-108r39 ta180r39 ta108r39 p14,14"
PSET (0,0): DRAW star$ :PRESET (0,0): draw"ta90r85"+s$(3)+"p14,14"
PSET (50, -27): DRAW s$(1):PRESET (50, -27): DRAW p$
PSET (70, -9): DRAW s$(2):PRESET (70,-9): DRAW p$
PSET (70, 18): DRAW "ta92r85c14" + s$(3):PRESET (70, 18): DRAW p$
PSET (50, 36): DRAW s$(4):PRESET (50, 36): DRAW p$
end
13 楼
spray [专家分:180] 发布于 2005-08-18 09:41:00
s$(2)="ta144..."应改为s$(2)="ta114...",致歉。
14 楼
def [专家分:3380] 发布于 2005-08-22 03:32:00
13楼跟没说似的啊。。。
15 楼
spray [专家分:180] 发布于 2005-08-23 06:13:00
8楼中写的是S$(2)="ta144..."
12楼中写的是S$(2)="ta114...",已作修改。
13楼是针对以上情况而言,没说明白,请原谅。
16 楼
def [专家分:3380] 发布于 2005-08-23 07:04:00
................................
17 楼
spray [专家分:180] 发布于 2005-08-24 05:53:00
尊敬的版副def先生:
请问“................................”是什么意思呀?我理解能力太差,这个哑谜猜不出来。我仅仅是处于学步阶段,如果程序有何错误或不足,恳请赐教,好吗?
18 楼
moz [专家分:37620] 发布于 2005-08-24 08:47:00
1. 不要叫他做先生,他比我年轻
2. 他比我更神经质,所以一般情况下,会有些不同寻常的举动,可以忽略不加理会
我来回复