[說明]

    流程圖1.1實(shí)現(xiàn)了一個將一組無序數(shù)列a1,a2,...,an排成遞增序列的算法.

    該算法在s-1到r(初值為1到n)的區(qū)間內(nèi),先冒泡后進(jìn)行排序,直到該區(qū)間為空.圖中變量K用來指出一次冒泡或下沉后a1--ak或ak--an已排序.

試題3

    閱讀下列程序說明和PASCAL程序,把應(yīng)填入其中_______處的字句,寫在答卷的對應(yīng)欄內(nèi).

   [程序說明]

   本題給出的子程序用來尋找第一個均出現(xiàn)在三個整數(shù)鏈表中的相同整數(shù).假定在調(diào)用該子程序前,這三個整數(shù)鏈表已按從小到大的次序排序.有關(guān)的類型定義如下:

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

    [程序說明]

    本子程序用來建立一個已知文件的索引文件.建立索引的關(guān)鍵字段名為key.

    設(shè)有類型:

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

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

key : simpletype; {存貯關(guān)鍵字值}

no : integer {對應(yīng)的已知文件成分的序號}

end;

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

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

    其中 simpletype 是某簡單順序類型名.

    為建立索引文件,子程序引入一個數(shù)組a與兩個工作文件g,h.

    建立索引文件的方法是:

    首先重復(fù)執(zhí)行以下步驟,直至已知文件讀完:

    1. 從已知文件讀出多至100個記錄,將記錄中關(guān)鍵項(xiàng)的值及該記錄的序號送到數(shù)組a;

    2. 對a按關(guān)鍵字值從小到大排序;

    3. 將a與文件g(或h)合并于文件h(或g).合并時,使文件h(或g)是按關(guān)鍵字值排序的.然后由文件h(或g)生成索引文件.

[1] [2] 下一頁