编程海龟图c语言,大家一起来探讨一下乌龟作图用c语言的实现方法

大家一起来探讨一下乌龟作图用c语言的实现方法

大家好，我们老师让我们做一个乌龟绘图程序，具体要求如下：

Basic statement for turtle

FD, BK

RT, LT

PU, PD

SETPC

HOME, CLEAN

Repeat (5)

REPEAT

Procedure (5)

TO

Save & load procedures(5)

SAVE

LOAD

Procedure with variable (5)

TO

Variable (5)

MAKE

Output (5)

PRINT

TO CIR :LEN

REPEAT 90 [ FD :LEN RT 4 ]

END

TO MAIN

PU BK 30 PD

REPEAT 18 [CIR 4 CIR 3 CIR 2 RT 20 ]

END

Expression (10)

+-*/=

Flow control (10)

IF

WAIT

THROW

OUTPUT

Compare & logic (5)

><=

AND OR NOT

TO MAIN

CLEAN PU HOME ST SETPC 12 PD

MAKE "L 10 MAKE "S 80

SETPOS [0 -140]

SZ :L :S

END

TO SZ :CC :CD

TEST :CC=1

IFTRUE [

FD :CD

LT 30 FD :CD BK :CD RT 30

RT 30 FD :CD BK :CD LT 30

BK :CD

STOP

]

IFFALSE [

FD :CD

LT 30 SZ :CC-1 :CD*0.75 RT 30

RT 45 SZ :CC-1 :CD*0.75 LT 45

BK :CD

]

END

Word & list

WORD

SENTENCE (SE)

FIRST

BUTFIRST

LAST

BUTLAST

THING

READLIST

我现在很困惑，牛人能给我一些提示吗？谢谢！

下面是一些提示：

char cmdline[MAXLINE];

do {

gets(cmdline);

} while ( parse(cmdline) ); // 0说明命令为bye

入口:

cmd=“FD 10 RT 90”

取第一个单词:

op=“FD”

cmd=“10 RT 90”

分派到doFD函数处理

…

doFD返回cmd=“RT 90”

继续循环

void parse(char* cmd) {

while ( *cmd) {

char* op=cmd;

cmd = get_word(cmd);

if ( strcmp(op,”FD”)==0 )

cmd = doFD(cmd);

else

…

}

}

char* get_word(char* cmd) {

while(*cmd++) {

if ( isspace(*cmd) ) {

*cmd=0;

break;

}

}

}

用层叠的if…else…语句

if ( strcmp(op,”FD”)==0 )

cmd = doFD(cmd);

else

…

char*[] opl = {

“FD”,”RT”…

}

num=-1;

for (i=0; i

if ( strcmp(op, opl[i]) ==0 ) {

num=i;

break;

}

switch (num) {

case 0:cmd=doFD(cmd);break;

…

}

struct {

char* op;

char* (fun)(char*);

}opl[] = {

{“FD”,doFD},{“RT”,doRT}…

}

for (i=0; i

if ( strcmp(op, opl[i].op) ==0 ) {

cmd = opl[i].fun(cmd);

break;

}

取参数

取第一个词

转换为int

执行

所有单参数的命令均可如此操作

char* doFD(char* cmd) {

int dis=0;

char* para = cmd;

cmd = get_word(cmd);

dis = atoi(para);

…

return cmd;

}

REPEAT 4 [FD 10 RT 90]

先取第一个词,记录为循环的次数rpt

然后扫描后面的字符串,找到一对[]

注意[]可能有嵌套

for (i=0; i

复制[]中的内容到rc

parse(rc);

}

TO CIR

REPEAT 36 [FD 10 RT 10]

END

TO后面的一个词是过程的名字

以后到END为止,所有的内容记录在这个过程的字符串里

struct procedure {

char* name;

char* body;

};

在doTo()中,读入输入行,记录在body中,直到输入END

在doTo()中设置全局变量标志开始记录过程，在主框架中根据该标志记录输入行到一个全局变量中，直到读到END

在parse()中，遇到不认识的op，到doDOTO

doDOTO从一个全局的过程列表里struct procedure* pro_list;寻找该op

找到的话，将body复制一份，交给parse()

struct procedure {

char* name;

char* body;

struct procedure* next;

};

全局变量

struct procedure* pro_lise;

记录所有的过程

在doDOTO中：

for ( p = pro_list; p; p=p->next ) {

if ( strcmp(op, p->name) ==0 ) {

char* tmp = (char*)malloc((strlen(p->body)+1);

strcpy(tmp,p->body);

parse(tmp);

break;

}

}

MAKE “A 100

FD :A

字：双引号开头的一个单词

变量：冒号开头的一个单词

布尔：TRUE/FALSE

数：不区分整数、浮点数

字：双引号开头的一个单词

表：[]括起来的字符串，可能有空格，也可能有其他表或数，如

[This is 12 list [ab c]]

struct value {

char* name;

int type;

// 0=null, 1=bool, 2=number, 3=word

char* cont;

struct value* next;

};

命令处理函数里的get_word()替换为get_value()

char* get_value(char* cmd, struct value* v);

取第一个词，看第一个字符

FD 90 是数字：制造一个value 变量记录这个数字

PRINT “A 是” ：制造一个value 变量记录这个字

FD :A 是: ：调用get_var() 得到这个变量的值

FD CAL 是字母：

是TRUE 或FALSE ：制造一个value 变量记录这个值

调用这个过程，从过程得到返回值

struct value* var_list;记录所有的全局变量

struct value* get_var(char* name);返回一个变量的值

MAKE有两个参数，第一个是变量的名字，第二个是变量的值

首先get_var()试图找到这个变量，如果

有：则改变value结构的内容，注意要先free

无：则加入一个新的value结构

MAKE ”A “ABC

MAKE :A “LALALA

在过程中MAKE的变量，或

出现在过程名字后面的变量

TO CIR :R

在doDOTO()中建立一个变量列表，保存所有本地变量，函数运行结束时清除

在doTO()中，将过程名称后面的变量记录在struct procedure中

在doDOTO()中进行参数初始化

struct procedure {

char* name;

char* body;

int number_of_parameters;

char** array_of_parameters;

struct procedure* next;

};

在doDOTO中

struct value* local_var=0;

for (i=0;i

struct value v;

v.name赋值为array_of_parameters[i];

cmd=get_value(cmd,&v);

在local_var列表中加入v

}

在过程中遇到:时，先在本地变量列表中寻找，再到全局变量列表中寻找

为此：

设立全局变量struct value* cur_local_var;

在get_var() 中先看cur_local_var ，再看var_list

在doDOTO 中，先设cur_local_var 为自己的，结束时设为0

希望高手能给一些具体实现的指导，万分感谢！

[此贴子已经被作者于2007-5-30 11:45:11编辑过]