我要投稿
  • 您当前的位置:57365.com -> 试题中心 -> 计算机试题 -> 软件考试试题 -> 试题内容
  • [ 收藏本页试题 ]
  • 1989年度程序员水平考试试题下午试题(1)

    试题作者:佚名    试题来源:不详    试题栏目:软件考试试题    收藏本页

    试题一 

        [说明] 

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

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


    试题

        阅读下列程序说明和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; 


    试题

        [程序说明] 

        本子程序用来建立一个已知文件的索引文件.建立索引的关键字段名为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)生成索引文件. 

    我要投稿   -   广告合作   -   关于本站   -   友情连接   -   网站地图   -   联系我们   -   版权声明   -   设为首页   -   加入收藏   -   网站留言
    Copyright © 2009 - 20012 www.www.hxswjs.com All Rights Reserved.57365.com 版权所有