黄色在线观看视频-黄色在线免费看-黄色在线视频免费-黄色在线视频免费看-免费啪啪网-免费啪啪网站

    [說明]

    流程圖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)生成索引文件.

[1] [2] 下一頁