依然一个极其简单的问题~~~~~ -。-

Question

有个海龟作图的题，但我不知道什么是海龟作图。
请解释下。谢谢~~~~~~~~~~

Answer 1

百度...海龟作图 〔问题描述〕 
设计并实现海龟抽象数据类型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）利用上述定义的海龟实现作图命令，以画出任意长度的线段、任意大小的矩形和圆。 
〔测试数据〕 
由学生自行指定线段（的长度）、矩形（的长度和宽度）及圆（的半径）等参数。 
〔实现提示〕 
（1）海龟的相关类型说明为： 
type  penstate=(up，down）； 
  aPoint=record v，h：real end； 
  newTurtle=record 
heading:integer； 
｛龟头（画笔）方向，简称龟头朝向｝ 
pen：penstate； 
｛画笔状态：uP抬笔，down落笔｝ 
color：Integer； 
｛画笔当前颜色｝ 
Pos：aPoint 
｛海龟当前位置｝ 
end； 
（2）将“海龟”实现为 Turbo Pascal的一个单元，并将其相关类型和变量说明封装在年元的实现部分，宿主程序仅通过单元的接口部分调用海龟进行作图。

Answer 2

虽然google移师香港，但是你要是想用的话还是能用的。
google一下就有了。
http://www.quilman.net/blogview.asp?logID=108
可执行文件