主题：画图(答对30分)
LSQ
[专家分：220] 发布于 2006-01-27 20:38:00
在高分辨率图形模式下绘出一个三角形,其中三个点的位置为(0,0)、(199,0)、(99,172)。再画小三角形，小三角形是比小三角形大一点的三角形内接中点三角形，这要画下去，只要画动三角形的边长小于5时终止。
回复列表 （共6个回复）
沙发
moz [专家分：37620] 发布于 2006-01-28 01:23:00
什么叫做高分辨率?
12模式行吗?
这道题只要会线段中点方程就可以了.
screen 12
dim x(3, 1)
x(1, 0) = 199
x(2, 0) = 99
x(2, 1) = 172
do until longx(x(0,0),x(0,1),x(1,0),x(1,1))<5
for i=0 TO 2
line (x(i,0),x(i,1))-(x(i+1,0),x(i+1,1))
middlex x(i,0),x(i,1),x(i+1,0),x(i+1,1)
next
x(3,0)=x(0,0)
x(3,1)=x(0,1)
loop
sleep
screen 0
function longx(a,b,c,d)
longx=sqr((a-c)*(a-c)+(b-d)*(b-d))
end function
sub middlex(a,b,c,d)
a=(a+c)/2
b=(c+d)/2
end sub
板凳
moz [专家分：37620] 发布于 2006-01-28 01:29:00
用函数是不是嫌了?
screen 12
dim x(3, 1)
x(1, 0) = 199
x(2, 0) = 99
x(2, 1) = 172
do until (x(0,0)-x(1,0))^2+(x(0,1)-x(1,1))^2 < 25
for i=0 TO 2
line (x(i,0),x(i,1))-(x(i+1,0),x(i+1,1))
x(i,0)=(x(i,0)+x(i+1,0))/2
x(i,1)=(x(i,1)+x(i+1,1))/2
next
x(3,0)=x(0,0)
x(3,1)=x(0,1)
loop
sleep
screen 0
3 楼
zqnhlm [专家分：780] 发布于 2006-01-30 19:17:00
moz依然是这么热心呀，哈哈！
4 楼
moz [专家分：37620] 发布于 2006-01-31 15:54:00
热心? 可是没热报喔.
他明明写着答对加30分的嘛,
我答对了两次,应该得60分,
给老板扣血汗工钱扣了一半,真郁闷.
5 楼
LSQ [专家分：220] 发布于 2006-02-10 18:33:00
不好意思,如果给你60分,网站提示
"一个人在一个主题中所得的专家分最多不能超过50分！"
6 楼
mind [专家分：0] 发布于 2006-02-19 12:26:00
screen 11
linex(3, 1)
x(1, 0) = 199
x(2, 0) = 99
x(2, 1) = 172
pset(x(0,0),x(0,1),x(1,0),x(1,1))<5
for i=0 TO 2
line (x(i,0),x(i,1))-(x(i+1,0),x(i+1,1))
middlex x(i,0),x(i,1),x(i+1,0),x(i+1,1)
next
x(3,0)=x(0,0)
x(3,1)=x(0,1)
loop
sleep
screen 1
function longx(a,b,c,d)
longx=sqr((a-c)*(a-c)+(b-d)*(b-d))
end function
sub middlex(a,b,c,d)
a=(a+c)/2
b=(c+d)/2
end sub
我来回复
您所在位置：