文件名称：综合例析-机器视觉算法与应用01
文件大小：1.48MB
文件格式：PDF
更新时间：2024-06-28 04:31:11
PASCAL
三、综合例析 例 10 读入一串以"＃"为结束标志的字符，统计每个字符出现的次数。 分析：设置一个链表存放，每读入一个字符，就从链表的头结点向后扫描链表，如果在链表中此字符已存在，则其 频率加 1， 否则将该字符的结点作为链表的新头结点，相应频率为 1。 源程序如下： program ex11_10; type ref=^letters; letters=record key:char; count:integer; next:ref; end; var k:char; sentinel,head:ref; procedure search(x:char); var w:ref; begin w:=head; sentinel^.key:=x; while w^.key<>x do w:=w^.next;