1、1实验编号：词法分析（1）一、 实验目的及要求设计、编制并调试一个词法分析程序，加深对词法分析原理的理解。1 待分析的简单的词法（1）关键字：begin if then while do end所有的关键字都是小写。（2）运算符和界符： = + - * / = = ; ( ) #（3）其他单词是标识符（ID）和整型常数（SUM） ，通过以下正规式定义：ID = letter (letter | digit)*NUM = digit digit*（4）空格有空白、制表符和换行符组成。空格一般用来分隔 ID、SUM、运算符、界符和关键字，词法分析阶段通常被忽略。2 各种单词符号对应的种别码：表 2
2、.1 各种单词符号对应的种别码单词符号 种别码 单词符号 种别码bgin 1 ： 17If 2 ：= 18Then 3 21do 5 23lettet（letter|digit）*10 = 24dight dight* 11 = 25+ 13 ； 26 14 ( 27* 15 ) 28/ 16 # 03 词法分析程序的功能：输入：所给文法的源程序字符串。输出：二元组（syn,token 或 sum）构成的序列。其中：syn 为单词种别码；token 为存放的单词自身字符串；2sum 为整型常数。例如：对源程序 begin x:=9: if x9 then x:=2*x+1/3; end #的源
3、文件，经过词法分析后输出如下序列：(1,begin)(10,x)(18,:=)(11,9)(26,;)(2,if)二、 实验环境Microsoft Visual Studio VC6.0三、 算法描述是 是否字母数字 其他运算符、 符号界符等符号否是图 3-2四、 源程序清单#include “stdio.h“#include “iostream.h“#include “stdlib.h“#include “string.h“是否文件结束？ 返回拼数syn=1111返回对不同符号给出相应的 syn值报错拼字符串是否关键字？syn 为对应关键字的单词种别码syn=103#define _KEY_
4、WORD_END “wainting for your expending“typedef struct int typenum;char * word;WORD;char input255;char token255=“;int p_input;int p_token,p;char ch;char * rwtab=“begin“,“if“,“then“,“while“,“do“,“end“,_KEY_WORD_END;WORD * scaner();void main()int over=1;WORD * oneword=new WORD;printf(“请输入文法的源程序字符串(按#键结束
5、):“);scanf(“%#s“,input);p_input=0;printf(“源程序为:n%sn“,input);while(overtypenumtypenum,oneword-word);over=oneword-typenum;printf(“n 按 # 键退出:“);scanf(“%#s“,input);char m_getch()ch=inputp_input;p_input=p_input+1;return(ch);void getbc()while(ch= | ch=10)4ch=inputp_input;p_input=p_input+1;void concat()tok
6、enp_token=ch;p_token=p_token+1;tokenp_token=0;int letter()if(ch=a myword-word=“;p_token=0;m_getch();getbc();if(letter()while(letter()|digit()concat();m_getch();retract();myword-typenum=reserve();myword-word=token;return(myword);elseif(digit()while(digit()concat();m_getch();retract();myword-typenum=2
7、0;myword-word=token;return(myword);elseswitch(ch)6case=:m_getch();if(ch=)myword-typenum=39;myword-word=“=“;return(myword);retract();myword-typenum=21;myword-word=“=“;return(myword);break;case+: myword-typenum=22;myword-word=“+“;return(myword);break;case-: myword-typenum=23;myword-word=“-“;return(myw
8、ord);break;case*: myword-typenum=24;myword-word=“*“;return(myword);break;case/: myword-typenum=25;myword-word=“/“;return(myword);break;case(: myword-typenum=26;myword-word=“(“;return(myword);break;case): myword-typenum=27;myword-word=“)“;return(myword);break;case: myword-typenum=28;myword-word=“;ret
9、urn(myword);break;7case: myword-typenum=29;myword-word=“;return(myword);break;case: myword-typenum=30;myword-word=“;return(myword);break;case: myword-typenum=31;myword-word=“;return(myword);break;case,: myword-typenum=32;myword-word=“,“;return(myword);break;break;case: myword-typenum=33;myword-word=
10、“:“;return(myword);break;case;: myword-typenum=34;myword-word=“;“;return(myword);break;case: m_getch();if(ch=)myword-typenum=37;myword-word=“=“;return(myword);retract();myword-typenum=35;myword-word=“;return(myword);break;casetypenum=38;myword-word=“=“;return(myword);retract();myword-typenum=36;mywo
11、rd-word=“typenum=40;myword-word=“!=“;return(myword);retract();myword-typenum=-1;myword-word=“ERROR“;return(myword);break;case0: myword-typenum=1000;myword-word=“OVER“;return(myword);break;default: myword-typenum=-1;myword-word=“ERROR“;return(myword);五、 运行结果及分析输入 begin x:=9: if x9 then x:=2*x+1/3; end # 后经词法分析输出如下序列：(begin 1)(x 10)(：17)(= 18)(9 11)(；26)(if 2)9
