1989年度程序员水平考试试题下午试题(1)

试题一 

    [说明] 

    流程图1.1实现了一个将一组无序数列a1,a2,...,an排成递增序列的算法. 

    该算法在s-1到r(初值为1到n)的区间内,先冒泡后进行排序,直到该区间为空.图中变量K用来指出一次冒泡或下沉后a1--ak或ak--an已排序. 


试题3 

    阅读下列程序说明和PASCAL程序,把应填入其中_______处的字句,写在答卷的对应栏内. 

   [程序说明] 

   本题给出的子程序用来寻找第一个均出现在三个整数链表中的相同整数.假定在调用该子程序前,这三个整数链表已按从小到大的次序排序.有关的类型定义如下: 

type pt=^elem; 

elem=record 

int:integer; 

link:pt 

end; 

    [程序] 

procedure lookint (f1,f2,f3:pt; var found:boolean; var val:integer); 

var exit:boolean;  

begin found:=false; 


while ____________ and not found do 

begin 


if __________________ 

then f1:=f1^.link 


else if _______________ 

then f2:=f2^.link 

else found:=true; 

if found 

then begin found:=false; exit:=true; 

while (f3<>nil) and not found and exit do 

if f3^.int=f1^.int 

then found:=true 


else if ___________________ 

then f3:=f3^.link 


else begin _______________; 

exit:=false 

end 

end 

end; 

if found then val:=f1^.int 

end; 


试题7 

    [程序说明] 

    本子程序用来建立一个已知文件的索引文件.建立索引的关键字段名为key. 

    设有类型: 

seqelement=record ..., key:simpletype, ... end; 

tmpelement=record {工作文件的成分类型} 

key : simpletype; {存贮关键字值} 

no : integer {对应的已知文件成分的序号} 

end; 

tseqfile = file of seqelement; {已知文件的类型} 

tindxfile = file of integer; {索引文件类型} 

    其中 simpletype 是某简单顺序类型名. 

    为建立索引文件,子程序引入一个数组a与两个工作文件g,h. 

    建立索引文件的方法是: 

    首先重复执行以下步骤,直至已知文件读完: 

    1. 从已知文件读出多至100个记录,将记录中关键项的值及该记录的序号送到数组a; 

    2. 对a按关键字值从小到大排序; 

    3. 将a与文件g(或h)合并于文件h(或g).合并时,使文件h(或g)是按关键字值排序的.然后由文件h(或g)生成索引文件.