LOGO编程画个CPU（四）PCLogo解
历久弥坚的PCLogo几乎是学习LOGO编程神一般的存在。明明PCLogo只能在WinXP及32位的Win7中运行使用，现在有些新出新的CPU及计算机，连Win7都安装不了，但是PCLogo还在相当的领域范围之内使用。不仅有些地方整个城市每年大约6月份都要举办以PCLogo为载体的LOGO语言笔试竞赛考试、从中选拔优秀的编程苗子；还有些省份的《信息技术》课本中的编程内容还是PCLogo，不管是Win10、Win11的新计算机安装了“虚拟机”照样跑PCLogo。这不仅是由于PCLogo老牌，而且性能确实优秀。所以“画CPU"这道题，还是有必要给出PCLogo的解——因为还有不少人在继续学习使用PCLogo。
TO YUAN :R
;画针脚圆圈的子程序
PU FD :R RT 90 PD
REPEAT 18 [FD :R * PI / 9 RT 20]
PU LT 90 BK :R
END
TO
BIAN ;画CPU一条边的子程序
PD FD 15
;画这条边起始的一小段直线
PU RT 90 FD 15
;画相邻的14层每层3个针脚
REPEAT 14 [REPEAT 3 [PD SETW 2 YUAN 5 SETW 1 YUAN
10 PU FD 25] PU BK 75 LT 90 FD 25 RT 90]
LT 90 BK 25 * 14
;退回前面画一小段直线的暂停处
RT 90 BK 15 LT 90
;画这条边未画完的直线
PD FD 430 - 15
END
TO CPU4P
;主程序 FOR PCLogo
CS SETPC 0
PU SETXY SE -215 -215 PD
;移位到左下方整个图形居中
REPEAT 4 [BIAN RT 90]
;画CPU的4条边
PU SETXY SE -125 -125 PD
;画中间的内框
FD 250 - 70 / SQRT 2 RT 45 FD 70 RT 45 FD 250 -
70 / SQRT 2
RT 90 FD 250 RT 90 FD 250
PU SETXY SE -25 10 PD TT "CPU
;写屏CPU
HT
END
PCLogo和MSWLogo-FMSLogo其实语法差不多，可以互相借鉴参考。所以凡是学LOGO编程的，的教材都有参考学习的价值。
历年的复赛编程替竟然这样丰富多彩：
学会编程是一种精神享受
加载中，请稍候......
加载中…
(2023-04-30 09:41:43)