广义表的计算试题解析.docxVIP

【题3】广义表的计算

有一个表l={a，…，a}，其中l为第一个广义表的表名，a为表元素(１≤i≤n)。当a为数值时，

1 n i i

表示为元素；当a为大写字母时，表示另一个表，但不能循环定义。例如下列定义是合法的（约定l是第

i

一个表的表名）：

l=(3，4，3，4，k，8，0，8，p)k=(5，5，8，9，9，4)p=(4，7，8，9)

输入：

输入全部广义表，每行一个广义表。输出：

输出两行。第一行为最大元素值，第二行为全部广义表的数和

分析：

广义线性表（简称广义表）是线性表的一种推广。如果允许构成线性表的元素本身又可以是线性表的话，则该线性表即为广义表。由此可见，广义表是一个递归定义的表，允许其元素可以是本身的一个子表。如果需要将广义表的所有元素排成一个线性序列，则必须指明第一个广义表的表名。我们可以对广义表进行计算。例如求出所有元素的最大元素，或者表中全部元素的和。设

constlmax=100； {广义表串长的上限}

type

tabtype=record {广义表的数据类型}

length:0..lmax； {表长}

element:array[1..lmax]ofchar； {表的数据序列}end；

qtype=record {队列的数据类型}

base:array[0..lmax]ofchar； {队列}

front，rear:0..lmax； {首尾指针}

end；

var

t:array[’a’..’Z’]oftabtype； {t[ch]—表名为ch的广义表}q:qtype； {队列}

1、构造广义表t

每一个广义表用一个字符串s读入，s中的所有数字和字母看作是表的元素，将其中的小写字母统一为大写。q队列依次存储广义表L中的字母元素（即表名）。先读入广义表L，将其元素存入t[L]中，表L中出现的字母依次进入队列q；若队列q不空，队首元素ch出队，读入广义表ch，将其元素存入t[ch]中，表ch中出现的字母再依次入队，……，直至队列空为止。例如

初始时,广义表名‘l’进入队列q

随后，‘l’出q队列，‘l’=‘(3，4，3，4，k，8，0，8，p)’（下划线部分为输入），‘k’和‘p’相继入队，广义表t[‘l’]=‘3，4，3，4，k，8，0，8，p’

‘k’出q队列，‘k’=‘(5，5，8，9，9，4)’（下划线部分为输入），广义表t[‘k’]=‘5，5，

8，9，9，4’

‘p’出q队列，‘p’=‘4，7，8，9’（下划线部分为输入），广义表t[‘k’]=‘4，7，8，9’

广义表表名的入队运算inqueue(q，s[i])和出队运算outqueue(q)如下：

procedureinqueue(varq:qtype；c:char)； {表名c从队尾进入}begin

q.rear←q.rear+1； {队尾指针+1}

q.base[q.rear]←c； {入队}

end；{inqueue}

functionoutqueue(varq:qtype):char； {队列首部的表名出队}begin

q.front←q.front+1； {队首指针+1}

outqueue←q.base[q.front]； {出队}

end；{outqueue}

由此得出广义表的构造过程

forch←’a’to’Z’dot[ch].length←0； {置所有广义表空}q.front←0；q.rear←0； {队列的首尾指针初始化}inqueue(q，’L’)； {表名L进入队列}

whileq.frontq.reardo {若队列非空，则循环}begin

ch←outqueue(q)； {取出队列首部的表名}

write(ch，’=’)； {输入表名为ch的广义表串}

readln(s)；

i←1； {从广义表串的第1个字符开始取元素}

whiles[i]’(’doi←i+1；whiles[i]’)’do

begin

s[i]←upcase(s[i])； {将第i个字符统一为大写}ifs[i]in[’a’..’Z’，’0’..’9’] {若第i个字符为广义表元素，则该字符进入广义表}thenbegin

inc(t[ch].length)；t[ch].element[t[ch].length]←s[i]；

ifs[i]in[’a’..’Z’]theninqueue(q，s[i])； {若第i个字符为表名，则入队}end；{then}

inc(i)； {分析输入串的下一个字符}

end；{while}