●试题五

阅读下列程序说明和C代码，将应填入(n)处的字句写在答卷的对应栏内。

【程序5说明】

下列文法可用来描述化学分子式的书写规则(例如，Al2(CO3)3、Cu(OH)2)：

λ→β\βλβ→δ\δn

δ→ξ\ξθ＼(λ)

其中：λ是一个分子式；δ或是一个元素，或是一个带括号的(子)分子式，元素或是一个大写字母(记为ξ)，或是一个大写字母和一个小写字母(记为ξθ)；β或是一个δ，或是在δ之后接上一个整数n，δn表示β有n个δ的元素或(子)分子式。一个完整的分子式由若干个β组成。

当然一个正确的分子式除符合上述文法规则外，还应满足分子式本身的语义要求。

下面的程序输入分子式，按上述文法分析分子式，并计算出该分子式的分子量。例如：元素H的原子量是1，元素O的原子量是16。输入分子式H2O，程序计算出它的分子量为18(1×2+16)。程序中各元素的名及它的原子量从文件atom.dat中读入。

【程序5】

#include

#include

#define MAXN 300

#define GMLEN 30

struct elem{char name［］;/*元素名*/

doublev；/*原子量*/

}nTbl［MAXN］；

char cmStr［GMLEN］，*pos;

int c;FILE*fp;

double factor();

double atom()/*处理文法符号δ*/

{char w［3］;int i;double num;

while((c=*pos++)==′||c==′＼t′);/*略过空白字符*/

if(c==′＼n′)return 0.0;

if(c>=′A′ && C<=′Z′){/*将元素名存入W*/

w［i=0］=c;c=*pos++;

if(c>=′a ′&& c<=′z′)w［++i］=c;else pos--;

w［++i］=′＼0′;

for(i=0；nTbl［i］.v>0.0;i++)

if(strcmp(w，nTb［i］.name)==0)returnnTbl［i］.v；

printf("＼n元素表中没有所输入的元素：＼t%s＼n",w);retur n-1.0;

}elseif(c==′(′){

if((num= (1) )<0.0)return-1.0;/*包括可能为空的情况*/

if(*pos++!=′)′){printf("分子式中括号不匹配！/n")；return-1.0；}

returnnum;

}

printf("分子式中存在非法字符：＼t%c＼n",c)；

return-1.0;

}

double mAtom()/*处理文法符号β*/

{double num;int n=1;

if((num= (2) )<0.0)return-1.0;

c=*pos++；

if(c>=′0′&&c<=′9′){

n=0;while(c>=0&&c<=′9′)

{n= (3) ；

c=*poss++;

}

}

pos--;

return num*n;

}

double factor()/*处理文法符号λ*/

{double num=0.0,d;

if((num=mAtom())<0.0)return-1.0;

while(*pos>=′A′&&*pos<=′Z′||*pos==′(′){

if((d= (4) )<0.0)return-1.0；

(5) ；

}return num；

}

void main()

{char fname［］="atom.dat";/*元素名及其原子量文件*/

int i;double num；

if((fp=fopen(fname,"r"))==NULL){/*以读方式打开正文文件*/

printf("Can not open%s file.＼n",fname);return/*程序非正常结束*/

}

i=0；

while(i

i++;

fclose(fp);nTbl［i］.v=-1.0;

while (1) {/*输入分子式和计算分子量循环，直至输入空行结束*/

printf("＼n输入分子式！(空行结束)＼n");gets(cmStr);

pos=cmStr;

if(cmStr［0］==′＼0′)break；

if((num=fator())>0.0)

if(*pos!=′＼0′)printf("分子式不完整！＼n")；

else printf("分子式的分子量为%f＼n",num)；

}

}