logo语言画图

谁能帮我用pclogo 4.0或1.01a画如下一个图:主过程名xhg。谢谢
2024-12-18 14:50:33
推荐回答(1个)
回答1:

直接告诉你:没人会详细回答这个问题,因为用logo画这太难了。
这个几乎没有规律,所以你得一格一格的画,一个像素一个像素的画。
提示:用以下文字可以辅助你思考:
to a
(stamprect 12 12"true) (每像素为实心的12×12的正方形)
end
setpc x(x为颜色编号)

to ak :a :b
if :b=1
repeat :a(a fd 12 rt 90 fd 12 lt 90) (画k>0(:b=1)的向右的斜边,重复次数为:a)
end
if :b=2
repeat :a(a fd 12 lt 90 fd 12 rt 90) (画k<0(:b=2)的向右的斜边,重复次数为:a)
end

(这里你可能不懂k>0是什么意思,我跟你讲一下:k>0在一次函数中有y=kx+b,k>0说明这个函数的图像左边低右边高,k<0时图像左边高右边低)
在定义这些之后,如果你输入ak 4 1,那么海龟就向右上连续画4个边长为12的实心正方形。
继续:
to f :a
repeat :a(a fd 12) (连续向上画n个正方形)
end
其他的你可以利用我给你的这些脚本自己整合。整合是一个非常简单却又耗时间的任务。

C式工作室为您解答,有疑请追问,无疑请采纳