PClogo常用图形
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
PClogo常用图形
PC-LOGO 4.0语言几种常用的基本过程
TO ZFX :A
1、正方形: REPEAT 4[FD :A RT 90]
END
TO CFX :A :B 2、长方形: REPEAT 2[FD :A RT 90 FD :B RT 90] END
TO SJX :A
3、三角形: REPEAT 3[FD :A RT 120]
END
TO DBX :N :B 4、正多边形: REPEAT :N[FD :B RT 360/:N]
END
TO YUAN :R 5、圆:(在LOGO语言中可以直接用PI来代REPEAT 360[FD :R*PI/180 RT 1] 替π的值。) END
TO LHU :N :R 6、左弧: REPEAT :N[FD :R*PI/180 LT 1]
END
TO RHU :N :R 7、右弧: REPEAT :N[FD :R*PI/180 RT 1]
END
TO LY :N :R 8、左叶: REPEAT 2[LHU :R :N LT 180-:N]
END
TO RY :N :R 9、右叶: REPEAT 2[RHU :R :N RT 180-:N]
END
TO KXJX :A :B 10、空心矩形: STAMPRECT :A :B
END
TO SXJX :A :B 11、实心矩形: (STAMPRECT :A :B ”TRUE)
END
TO KXTY :X :Y 12、空心椭圆: STAMPOVAL :X :Y
END
TO SXTY :X :Y 13、实心椭圆: (STAMPOVAL :X :Y ”TRUE)
END
14、空心正多角形: TO KXDJX :N :B
REPEAT :N[FD :B RT 720/:N FD :B LT 360/:N]
END
TO YBDJX :N :B :K 15、一般正多角星:(一般正多角星的内角角
度为NJ=(N-2K)*180/N，其中K为整数，KREPEAT :N[FD :B RT :K*360/:N] 的范围在1,K,N/2，且K与N没有公因数。) END
TO PXSBX :B1 :B2 :J 16、平行四边形: REPEAT 2[FD :B1 RT :J FD :B2 RT 180-:J]
END
TO SHU :B :S :N
IF :B,:S STOP
LT :N/2
FD :B
SHU :B/2 :S :N
BK :B 17、树::B表示最大树枝的长度, :S表示最
小树枝的长度, :N表示树叉角度。 RT :N
FD :B
SHU :B/2 :S :N
BK :B
LT :N/2
END TO SHU :B :S :N if :b<:s stop
LT :N / 2
FD :B
SHU :B / 2 :S :N BK :B
RT :N
FD :B
SHU :B / 2 :S :N BK :B
LT :N / 2
END
TO SHU2 :B :S :N
if :b<:s stop
LT :N / 2
FD :B
SHU2 :B-10 :S :N BK :B
RT :N
FD :B
SHU2 :B-10 :S :N
BK :B
LT :N / 2 END