计算机软考程序员部分笔试真题.docVIP

试 题 一(15分) 阅读下列对线性表操作的3个子列程的流程图 ,选答案填入A-E [ 说明 ]在主存储器中有一个右图所示的表格结构,表格的每个元素由值(V)和 指针(P)两部分组成,在表格中以链接方式存放着一个线性表(LINEAR LIST) L, 它的第一个元素的位置放在LP中.表格中全部空闲元素也链接成一个线性表E,它 的第一个元素位置存放在cp中两个线性表最後壹个元素指针全是0 (1)子例程ENTER(U,M) (2)子例程 FINDu,m) (3)= 子例程= delete(m)= p= 在线性表L 中位于M 从线性表L中找出第一 从至少有两个元素的线 (M0)处的元素之后插 个其值为U的元素,把位置 性表L中删除紧接在位置M 入一个以U为值的结点. 放入M. 没有以U为值的元 之后的一个元素. 把删除 素时,把M置为O. 的元素放进线性表E中. 供选答案 A,B,C,D,E: (1)M-P(M) (2)P(M)-M (3)P(M)-P(I) (4)P(I)-P(M) (5)CP-P(I) (6)P(I)-CP (7)I-CP (8)CP-I (9)I-P(M) (10)P(M)-I 试题二 (15分) [程序的说明]本程序输入字符序列,直到26个大写字母均出现为止.程序输出已 输入的字符的总个数和各大写字母首次输入时的序号,对于最现出现的五个不同 大写字母还要输出它们在已输入序列中出现的次数. PROGRAM ALPHABET (INPUT,OUTPUT); VAR C:CHAR; N,M:INTEGER; S,SL:____________ ; p,g:array [A..Z] of integer; begin s:=______________ ; sl:=[]; n:=0 ; _____________; for c:= A to Z do begin g[c]:=0; p[c]:=0 end; reprat read (c);____________; if ________ then begin s:=s-[c]; p[c]:=n; IF m=5 then begin sl:=_____________; m:=m+1; end end if ______________ then g[c]:=g[c]+1 until_____________; writeln; writeln (n,CHARACTER COUNTED); FOR C:=A TO Z do begin write (c,p[c]:8); if g[c]0 then write(g[c]:8); end end. 试题三 (20 分) [程序说明] 本程序按照学生学号的顺序输入学生的成绩,按照分数从高到低的顺 序输出学生的名次,该名次的分数,同一名次的人数和学号(每行最多输出10个学号). 程序中用MARK和NO分别表示学生分数和学号. PROGRAM exam(input,output); const m=1000; type st=record mark:0..100; no:integer end; sttype=array [1..m] of st; var a:sttype; q,i,j,k,p,w,n:integer; b:boolean; procedure sorter (var a:sttype; n:integer); var i,j:integer; w:st; b:boolean; begin b:=true; i:=1 ; while (in) and= b= do= p= begin b:=false; for j:=n downto ___ do if __________ then begin w:=a[j-1] ; a[j-1]:=a[j]; a[j]:=w; ________ end; i:=i+1; end end; begin read(n); if n=m then begin for i:=1 to n do begin read (a[i],mark); a[i].no:=i end; _______________; i:=1; j:=0; writeln (ORDER,MARK, COUNT , NUMBRE); while i=n do begin J:=J+1 ;w:=a[i].mark; p:=i+1; b:=true; while b and (p=n) do if __________________then p:=p+1 else b:=false; write ( j:6, ,w:4, ,(p-i):5, :3); k:=0; for q:=i to p-1 do be