主题:怎么画一个梯形呀!我是新手
旋涡鸣人
[专家分:0] 发布于 2011-02-05 13:19:00
老师叫的!搞不懂
回复列表 (共4个回复)
沙发
旋涡鸣人 [专家分:0] 发布于 2011-02-05 13:32:00
各位哥哥姐姐,告诉小弟怎么画上下对称等腰三角形。拜托
板凳
yangxunyi [专家分:0] 发布于 2011-02-26 08:55:00
用LINE语句画一个三角形。
cls
screen 12
line(300,300)-(400,400)
line(300,300)-(200,400)
line(200,400)-(400,400)
end
3 楼
幽灵密码 [专家分:3510] 发布于 2011-03-02 18:50:00
用“*”
三角形:
Cls
Input n
Print Tab(n);"*"
For i = n - 1 To 2 Step -1
Print Tab(i);"*";Spc((n - i) * 2 - 1);"*"
Next i
Print String$(n * 2 - 1, "*");
End
梯形:
Cls
Input n
Print String$(n - 2, "*")
For i = 2 To n - 1
Print "*";Spc(i + n - 5);"*"
Next i
Print String$(2 * n - 3, "*")
End
4 楼
火拳艾斯 [专家分:0] 发布于 2011-03-29 21:38:00
感谢!
小弟叩头!
我来回复