在mswLogo上学习logo编程1

HJBGraphics

于 2005-08-15 12:28:00 发布

阅读量4.3k

点赞数

分类专栏：磨炼文章标签：编程 360 table

本文链接：https://blog.csdn.net/HJBGraphics/article/details/454872

版权

本文通过六个实例介绍MSWLogo编程语言的基本语法和应用，包括绘制多边形、打印数字序列、实现Haino程序、绘制九九乘法表、画超立方体以及创建几何形状函数库。每个例子都有详细的代码解释和运行效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

语法学习
====================
例子1：

to polygon :len :sides
  repeat :sides [ fd :len rt 360.0 / :sides ]
end

to myPic :len :rep
  lt 90 pu fd 400 rt 90 pd         ; fd 400 定位用，要根据自己的系统设定具体值
  repeat :rep [ if 2 < repcount [ polygon :len repcount ] ]
end

myPic 100 20

效果图见 J:/skyDiary/Data/myPic.bmp
====================
例子2：

to myPrint :len
  make "count 0
  do.until [ print :count make "count :count + 1 ] [ :count > :len ]
end

myPrint 5

输出结果为：
0
1
2
3
4
5
====================
例子3：

用logo写的haino程序

make "steps 1

to haino :size :from :mid :to
  if :size = 0 [ stop ]
  haino :size - 1 :from :to :mid
  print ( se :steps :from "-> :to )
  make "steps :steps + 1
  haino :size - 1 :mid