上海大学2000考研题.docVIP

上海大学2000考研题 一 请完善下列程序,每小题在Pascal语言(a),c语言(b)中任选一题（共40分） 注意：每个空格填一个表示式或一个语句。 1 下列算法为奇偶交换排序，思路如下：第一趟对所有奇数的i,将a[i]和a[j]进行 比较,第二趟对所有偶数的i,将a[i]和a[j]进行比较每次比较时若a[i]a[i+1],.将二 者交换,以后重复上述二趟过程,直至整个数组有序 程序.(a) Procedure oeseort(var a:array[1..n] of integer); Var flag:boolean; i,t:integer; Begin Repeat Flag:=false; For i:=1 to n step 2 do If(a[i]a[i+1]) then [flag:= (1); t:=a[i+1]; a[i+1]:=a[j]; (2) ] for i:= (3) do if (a[i]a[i+1]) then [flag:= (4) ; t:=a[i+1];a[i+1]:=a[i]; a[i]:=t; ] until (5) end; 程序（b） Void oesort (int a