海龟作图,程序虽短,但功能齐全!!设置海龟类型的基本操作为:procedureStartTurtleGraphlcs;
{显示作图窗口,并在窗口内写出本人的姓名、上机号和实验题号。
}procedureStartTurtle;
{令海龟处于作图的初始状态。
即显示作图窗口,并将海龟定位在窗口正中;
}{置画笔状态为落笔、龟头朝向为0度(正东方向)。
}procedurePenUp;
{改变画笔状态为抬笔。
从此时起,海龟移动将不在屏幕上作图。
}procedurePenDown;
{改变画笔状态为落笔。
从此时起,海龟移动将在屏幕上作图。
}functionTurtleHeadins:inteser;
{前往海龟头当前朝向的角度。
}functionTurtlePos:PaPoint;
{前往海龟的当前位置。
}procedureMove(steps:Integer);
{依照海龟头的当前朝向,向前移动海龟steps步。
}procedureTurn(degrees:Integer);
{改变海龟头的当前朝向,逆时针旋转degrees度。
}procedureMoveTTo(newPos:aPolnt);
{将海龟移动到新的位置newPos。
如果是落笔状态,则同时作图。
1