求海龟作图代码

来源：百度知道 编辑：UC知道 时间：2024/05/10 06:33:58
要求如下:
海龟作图

〔问题描述〕
设计并实现海龟抽象数据类型Turtle，并以此为基础设计一个演示海龟作图的程序。
〔基本要求〕
（1）设置海龟类型的基本操作为：
procedure StartTurtleGraphlcs ；
｛显示作图窗口，并在窗口内写出本人的姓名、上机号和实验题号。｝
procedure StartTurtle；
｛令海龟处于作图的初始状态。即显示作图窗口，并将海龟定位在窗口正中；}
｛置画笔状态为落笔、龟头朝向为0度（正东方向）。｝
procedure PenUp；
｛改变画笔状态为抬笔。从此时起，海龟移动将不在屏幕上作图。｝
procedure PenDown；
｛改变画笔状态为落笔。从此时起，海龟移动将在屏幕上作图。｝
function TurtleHeadins：inteser ；
｛返回海龟头当前朝向的角度。｝
function TurtlePos：PaPoint；
｛返回海龟的当前位置。｝
procedureMove（steps：Integer）；
{依照海龟头的当前朝向，向前移动海龟steps步。｝
procedureTurn（degrees：Integer）；
｛改变海龟头的当前朝向，逆时针旋转degrees度。｝
procedure MoveTTo（newPos：aPolnt）；
｛将海龟移动到新的位置 newPos。如果是落笔状态，则同时作图。｝
Procedure TurnTTo（angle：real）；
｛改变海龟头的当前朝向为，从正东方向起的angle度。｝
proceduresetTurtleColor（color：Integer）；
｛设置海龟画笔的颜色为color。｝
（2）利用上述定义的海龟实现作图命令，以画出任意长度的线段、任意大小的矩形和圆。
〔测试数据〕
由学生自行指定线段（的长度）、矩形（的长度和宽度）及圆（的半径）等

加我QQ,我来教你504107500

留下个邮箱或者qq
我发给你
当然前提是你把分给我

算法及数据结构方法:重点应用数据结构:栈 来解释代码(如操作符,运算符,过程,函数),命令(指令)用while循环读取直到-1,从而实现整个程序目的

晕，初中时候玩的东西，十几年喽，都忘记了~~~

用logo！