回 帖 发 新 帖 刷新版面

主题:怎么画一个梯形呀!我是新手

老师叫的!搞不懂

回复列表 (共4个回复)

沙发

各位哥哥姐姐,告诉小弟怎么画上下对称等腰三角形。拜托

板凳

用LINE语句画一个三角形。
cls
screen 12
line(300,300)-(400,400)
line(300,300)-(200,400)
line(200,400)-(400,400)
end

3 楼

用“*”
三角形:
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 楼

感谢!
小弟叩头!

我来回复

您尚未登录,请登录后再回复。点此登录或注册