词法分析程序的功能：
输入一个二元式，输出二元式的值。
程序调试截图如下：
符号与种别码对照表：
用文法描述词法规则：
•<字母>→ a|b|c|……y|z
•<数字>→d|<整数>|.<小数>
•<整数常数>→1|2|3|···
•<标识符>→l|l<字母数字>
•<关键字>→→if|else|while|do|for|int|char|···
•<运算符>→+|-|-|/|=|=<等号>···
•<界符>→，|；|（|）|···
源程序代码如下：
1 #include <stdio.h> 2 #include <string.h> 3 char prog[80],token[8],ch; 4 int syn,p,m,n,sum; 5 char *rwtab[6]={"begin","if","then","while","do","end"}; 6 void scaner(void); 7 main() 8 { 9 p=0; 10 printf("\n please input a string(end with '#'):\n"); 11 do{ 12 scanf("%c",&ch); 13 prog[p++]=ch; 14 }while(ch!='#'); 15 p=0; 16 do{ 17 scaner(); 18 switch(syn) 19 { 20 case 11: 21 printf("( %-10d%5d )\n",sum,syn); 22 break; 23 case -1: 24 printf("you have input a wrong string\n"); 25 return 0; 26 break; 27 default: 28 printf("( %-10s%5d )\n",token,syn); 29 break; 30 } 31 }while(syn!=0); 32 } 33 void scaner(void) 34 { 35 sum=0; 36 for(m=0;m<8;m++) 37 token[m++]= NULL; 38 ch=prog[p++]; 39 m=0; 40 while((ch==' ')||(ch=='\n')) 41 ch=prog[p++]; 42 if(((ch<='z')&&(ch>='a'))||((ch<='Z')&&(ch>='A'))) 43 { 44 while(((ch<='z')&&(ch>='a'))||((ch<='Z')&&(ch>='A'))||((ch>='0')&&(ch<='9'))) 45 { 46 token[m++]=ch; 47 ch=prog[p++]; 48 } 49 p--; 50 syn=10; 51 for(n=0;n<6;n++) 52 if(strcmp(token,rwtab[n])==0) 53 { 54 syn=n+1; 55 break; 56 } 57 } 58 else if((ch>='0')&&(ch<='9')) 59 { 60 while((ch>='0')&&(ch<='9')) 61 { 62 sum=sum*10+ch-'0'; 63 ch=prog[p++]; 64 } 65 p--; 66 syn=11; 67 } 68 else 69 { 70 switch(ch) 71 { 72 case '<': 73 token[m++]=ch; 74 ch=prog[p++]; 75 if(ch=='=') 76 { 77 syn=22; 78 token[m++]=ch; 79 } 80 else 81 { 82 syn=20; 83 p--; 84 } 85 break; 86 87 case '>': 88 token[m++]=ch; 89 ch=prog[p++]; 90 if(ch=='=') 91 { 92 syn=24; 93 token[m++]=ch; 94 } 95 else 96 { 97 syn=23; 98 p--; 99 } 100 break; 101 102 case '+': 103 token[m++]=ch; 104 ch=prog[p++]; 105 if(ch=='+') 106 { 107 syn=17; 108 token[m++]=ch; 109 } 110 else 111 { 112 syn=13; 113 p--; 114 } 115 break; 116 117 case '-': 118 token[m++]=ch; 119 ch=prog[p++]; 120 if(ch=='-') 121 { 122 syn=29; 123 token[m++]=ch; 124 } 125 else 126 { 127 syn=14; 128 p--; 129 } 130 break; 131 132 case '!': 133 ch=prog[p++]; 134 if(ch=='=') 135 { 136 syn=21; 137 token[m++]=ch; 138 } 139 else 140 { 141 syn=31; 142 p--; 143 } 144 break; 145 146 case '=': 147 token[m++]=ch; 148 ch=prog[p++]; 149 if(ch=='=') 150 { 151 syn=25; 152 token[m++]=ch; 153 } 154 else 155 { 156 syn=18; 157 p--; 158 } 159 break; 160 case '*': 161 syn=15; 162 token[m++]=ch; 163 break; 164 case '/': 165 syn=16; 166 token[m++]=ch; 167 break; 168 case '(': 169 syn=27; 170 token[m++]=ch; 171 break; 172 case ')': 173 syn=28; 174 token[m++]=ch; 175 break; 176 case '{': 177 syn=5; 178 token[m++]=ch; 179 break; 180 case '}': 181 syn=6; 182 token[m++]=ch; 183 break; 184 case ';': 185 syn=26; 186 token[m++]=ch; 187 break; 188 case '\"': 189 syn=30; 190 token[m++]=ch; 191 break; 192 case '#': 193 syn=0; 194 token[m++]=ch; 195 break; 196 case ':': 197 syn=17; 198 token[m++]=ch; 199 break; 200 default: 201 syn=-1; 202 break; 203 } 204 } 205 token[m++]='\0'; 206 }