一、選擇題（(1)--(40)每小題1分, (41)--(50)每小題2分, 共60分）
下列各題 A) 、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)在答題卡相應(yīng)位置上涂黑，答在試卷上不得分。

(1) 下列電子郵件地址中正確的是（其中□表示空格）
A) Malin&ns.cnc.ac.cn B) malin@ns.cac.ac.cn
C) Lin□Ma&ns.cnc.ac.cn D) Lin□Ma@ns.cnc.ac.cn

(2) 下列說法中正確的是
A) 為了使用Novell網(wǎng)提供的服務(wù)，必須采用FTP協(xié)議
B) 為了使用Internet網(wǎng)提供的服務(wù)，必須采用TELNET協(xié)議
C) 為了使用Novell網(wǎng)提供的服務(wù)，必須采用TCP/IP協(xié)議
D) 為了使用Internet網(wǎng)提供的服務(wù)，必須采用TCP/IP協(xié)議

(3) 下列說法中不正確的是
A) 調(diào)制解調(diào)器(Modem)是局域網(wǎng)絡(luò)設(shè)備
B) 集線器(HuB)是局域網(wǎng)絡(luò)設(shè)備
C) 網(wǎng)卡(NIC)是局域網(wǎng)絡(luò)設(shè)備
D) 中繼器（Repeater）是局域網(wǎng)絡(luò)設(shè)備

(4) 十進(jìn)制數(shù)397的十六進(jìn)制值為
A) 18D B) 18E C) 277 D) 361

(5) 下列說法中不正確的是
A) CD-ROM是一種只讀存儲(chǔ)器但不是內(nèi)存儲(chǔ)器
B) CD-ROM驅(qū)動(dòng)器是多媒體計(jì)算機(jī)的基本部分
C) 只有存放在CD-ROM盤上的數(shù)據(jù)才稱為多媒體信息
D) CD-ROM盤上最多能夠存儲(chǔ)大約650兆字節(jié)的信息

(6) Windows應(yīng)用環(huán)境中鼠標(biāo)的拖動(dòng)操作不能完成的是
A) 當(dāng)窗口不是最大時(shí)，可以移動(dòng)窗口的位置
B) 當(dāng)窗口最大時(shí)，可以將窗口縮小成圖標(biāo)
C) 當(dāng)窗口有滾動(dòng)條時(shí)可以實(shí)現(xiàn)窗口內(nèi)容的滾動(dòng)
D) 可以將一個(gè)文件移動(dòng)(或復(fù)制)到另一個(gè)目錄中去

(7) 從windows中啟動(dòng)MS-DOS方式進(jìn)入了DOS狀態(tài)，如果想回到Windos狀態(tài)，在DOS提示符下，應(yīng)鍵入的命令為
A) EXIT B) QUIT C) WIN D) DOS -U

(8) 要在WINDOWS標(biāo)準(zhǔn)窗口的下拉菜單中選擇命令，下列操作錯(cuò)誤的是
A) 用鼠標(biāo)單擊該命令選項(xiàng)
B) 用鍵盤上的上下方向鍵將高亮度條移至該命令選項(xiàng)后再按回車鍵
C) 同時(shí)按下ALT鍵與該命令選項(xiàng)后括號(hào)中帶有下劃線的字母鍵
D) 直接按該命令選項(xiàng)后面括號(hào)中帶有下劃線的字母鍵

(9) ASCLL碼(含擴(kuò)展)可以用一個(gè)字節(jié)表示，則可以表示的ASCLL碼值個(gè)數(shù)為
A) 1024 B) 256 C) 128 D) 8O

(10) 字長為32位的計(jì)算機(jī)是指
A) 該計(jì)算機(jī)能夠處理的最大數(shù)不超過232
B) 該計(jì)算機(jī)中的CPU可以同時(shí)處理32位的二進(jìn)制信息
C) 該計(jì)算機(jī)的內(nèi)存量為32MB
D) 該計(jì)算機(jī)每秒鐘所能執(zhí)行的指令條數(shù)為32MIPS

(11) 在DOS系統(tǒng)中，下列文件名中非法的是
A) ABCDEFG1 B) ABCDEFG1.234 C)ABCD_EFG D)ABCD\EFG

(12) DOS系統(tǒng)啟動(dòng)后，下列文件中駐留內(nèi)存的是
A) CONFIG.SYS B) COMMAND.COM C) AUTOEXEC.BAT D) MEM.EXE

(13) DOS下的“DIR *2”命令將列出當(dāng)前目錄下的
A) 所有名字末尾為字符2的非隱含文件和目錄
B) 所有名字末尾為字符2的非隱含文件
C) 所有非隱含文件
D) 所有非隱含文件和目錄

(14) 軟驅(qū)的盤符為A，A盤上只有一個(gè)目錄\XYZ,而\XYZ下有若干子目錄和文件，若想把A盤的所有內(nèi)容復(fù)制到C盤根目錄下，應(yīng)使用的命令為
A) COPY A:\*.* C: B) COPY A:\*.* C:\*.*
C) XCOPY A:\*.* C:\ /S D) DISKCOPY A: C:

(15) 若要將當(dāng)前盤目錄下的文件A.TXT連接在文件B.TXT后面，應(yīng)使用的命令為
A) COPY A.TXT>>B.TXT B) MOVE A.TXT>>B.TXT
C) PATH A.TXT>>B.TXT D) TYPE A.TXT>>B.TXT

(16) 以下各組運(yùn)算中運(yùn)算優(yōu)先級(jí)最低的一組是
A) +，-，OR B) *,/ C) >=,<>,IN D) DIV,MOD,AND

(17) 已知有說明
CONST a=1; b=2; c=3; d=4;
VAR w,x,y,:Integer;
執(zhí)行語句
x:=a; x:=c; y:=a+2; Z:=b; w:=d-a+b;
后，其值相等的變量是
A) x,y B) x,z C) x,w D) y,z

(18) 數(shù)學(xué)表達(dá)式Sin(60o)的正確PASCAL表達(dá)式是
A) Sin(60) B) Sin(3.14159*60)
C) Sin(3,14159*60/180.0) D) Sin(60*3.14159/360.0)

(19) 下列屬PASCAL合法常數(shù)的是
A) 102 B) 1O.0 C) 35,000,000 D) 1/2

(20) 設(shè)x是一個(gè)實(shí)型變量，下面能將x四舍五入使小數(shù)部分精確到百分之一的PASCAL表達(dá)式是
A) Round(x*100.0)/100.0 B) Round(x/100,0)*100.0
C) Trunc(x*100.0)/100.0 D) Trunc(x/100.0)*100.0

(21) 若有說明
RAR a:ARRTAY[1..10]OF ARRAY[1..10]OF Integer;
下列語句中正確的是
A) a[a[2,4]]:=100； B) a[8][12]:=100；
C) a[0,2,4]:=100； D) a[2][4]L=100；

(22) 一個(gè)文件文件的基類型不可以是
A) 文件 B) 數(shù)組 C) 實(shí)數(shù) D) 記錄數(shù)組

(23) 下列表達(dá)式中正確的是
A) 8/2 MOD 2 B) NOT(1=0) AND(3<>2) C) 'a'+2 D) 2+False

(24) 不能作為FOR語句循環(huán)控制變量的是下列哪種類型變量
A) 整型 B) 布爾型 C) 實(shí)型 D) 字符型

(25) 對(duì)函數(shù)的定義和遞歸調(diào)用正確的描述是
A) 函數(shù)可以嵌套定義，也可以遞歸調(diào)用。 B) 函數(shù)可以嵌套定義，但不能遞歸調(diào)用。
C) 函數(shù)不能嵌套定義，但可以遞歸調(diào)用。 D) 函數(shù)不能嵌套定義，也不能遞歸調(diào)用。

(26) 下列過程中，其功能是創(chuàng)建并打開一個(gè)文件的是
A) Assign B) Reset C) Rewrite D) Write

(27) 當(dāng)n為任意正奇數(shù)時(shí)，值總為Ｔtre的表達(dá)式是
A) n MOD 2=０ B) NIV 2=１
C) N-(n DIV 2)=１ D) n-Trunc(n/2)*2=1

(28) 下面變量說明中正確的是
A) VAR s:SET OR Real; B) VAR s:SET OF TEXT;
C) VAR s:SET OF 1..100; D) VAR s:SET OR ARRAY[1..5]OR Char;

(29) 表達(dá)式Pred(Chr(Ord(‘A')+4))的值是
A) ‘C' B) ‘D' C) 69 D) 101

(30) 下列表達(dá)式中值為假的是
A) ‘xy'<‘xyz' B) Odd(25+3)=False
C) 1024<>1024 D) Succ(False)=True

(31) 程序段： FOR i:1 TO 5 DO
FOR j:=2 TO i DO
Writeln(‘A');
輸出字符Ａ的個(gè)數(shù)是
A) ５ B) 10 C) 15 D) 20

(32) 設(shè)數(shù)組a和變量I,j,k,m,均已說明，且各自的值如
a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5,
a[6]=6, a[7]=7, a[8]=8, a[9]=9,
i=1, j=2, k=3, m=4
下面數(shù)組元素的值等于３的是
A) a[i*j] B) a[a[j=k-2]] C) a[m DIV j] D) a[a[k-i]+3]

(33) 以下變量說明中完全正確的一組是
A) VAR B) VAR
x1,x2,x3,x4:integer; y1:'x';
x5:Char; y2:Real;
x2,x4:Real; y3:Integer;
C) VAR D) VAR
x:Real; z1,z2:integer;
y:Real; z3:Char;
xy:Boolean; x-y:Real;

(34) 下面關(guān)于FOR循環(huán)不正確的敘述是
A) 在循環(huán)體中不能改變循環(huán)控制變量的值
B) 在執(zhí)行過程中初值和終值不會(huì)改變
C) 分為遞增型和遞減型兩種
D) 循環(huán)控制變量不必在程序的說明部分說明

(35) 下面的敘述正確的是
A) Pascal程序中的注釋不可以出現(xiàn)在任意兩個(gè)字符之間
B) Pascal程序中的注釋不可以出現(xiàn)在任意兩個(gè)標(biāo)識(shí)符之間
C) Pascal程序中的注釋不可以出現(xiàn)在任意兩個(gè)語句之間
D) Pascal程序中的注釋不可以出現(xiàn)在任意兩個(gè)程序段之間

(36) 設(shè)有說明： TYPE arr=ARRAY[1..10] OF Integer;
ptr=^arr;
VAR p:ptr;
若已執(zhí)行了new(p),下面合法的賦值語句是
A) p^[2]:=10; B) p[2]^:=10; C) p^:=10; D) p[2]:=10;

(37) 以下結(jié)論正確的是
A) 表達(dá)式[sun,fri]*[mon,tue]的值為[sun,fri,mon,tre]
B) 表達(dá)式x IN [i,j,k,m]等價(jià)于(x=i）OR(x=j) OR(x=k) OR(x=m)
C) 表達(dá)式[sun,sat]-[mon,tue]的值為［sat,mon,tue］
D) 表達(dá)式［mon］-[mon,tue]的值為［tue］

(38) 有下列程序段
FOR i:=1 TO 10 DO
BEGIN
CASE i MOD 4 OF
0: ch[i]:='a';
1: ch[i]:='b';
2: ch[i]:='c';
3: ch[i]:='d'
END;
FOR i:=10 DOWNTO 1 DO Write(ch[i]:1);
Writeln;
運(yùn)行后輸出結(jié)果是
A) bcdabcddcb B) abcdabcdab C) cbadcbadcb D) dcbadcbadc

(39) 有變量定義如下：
TYPE
WeekDay=(Mon,Tue,Wed,Thu,Fri,Sat,Sun);
WorkDay=Mon..Fri;
VAR
day1:WeekDay;
day2:WorkDay;
下列不正確的語句是
A) day1:=Wed B) day2:=Wed C) day1:=day2 D) day2:=Sun

(40) 有下面程序段：
a:=False; b:=False; c:=False;
x:=15;
IF a THEN x:=x-10
ELSE IF b THEN x:= x-5
ELSE IF c THEN x:=20
ELSE x:=25:
假設(shè)所有變量均已說明，程序運(yùn)行后x的值是
A) 25 B) 20 C) 15 D) ５

(41) 設(shè)有程序：
PROGRAM p41(Input,Output);
TYPE arr=ARRAY[1..10] OF Char;
VAR a:arr;
i:Integer;
BEGIN
FOR i:=1 TO 10 DO
IF NOT Eoln THEN
REPEAT
Read(a[i])
UNTIL a[i]<>' '
ELSE a[i]:='*';
Readln;
FOR i:=1 TO 10 DO
Write(a[i]);
Writeln
END.
運(yùn)行以上程序，輸入I love You 則輸出是
A) I love you B) Iloveyou C) I love you** D) Iloveyou**

(42) 設(shè)有程序：
PROGRAM p42(Input,Output);
VAR
x,s:Integer;
FUNCTION ms(a,b:Integer;VAR x:Integer):Integer;
BEGIN
x:=3*a-4*b+x;
ms:=x MOD 10
END;
BEGIN
x:=3;
s:=ms(ms(1,2,x),2*ms(1,2,x)x);
Writeln(‘x=',x)
END
運(yùn)行后，Writeln語句的輸出結(jié)果是
A) x=-12 B) x=8 C) x=34 D) x=43

(43) 有下列程序段
VAR p,q,r:^Intetger；
BEGIN
New(p):p^:=1;
q:=p;q^:=2;
r:=p;r^:=3;
Dispose(r);
END;
執(zhí)行后，p,q,r三個(gè)變量值的情況是
A) p^的值為1，q^的值為2，r的值無意義
B) p,q,r的值均無意義
C) p^的值為1，q^的值為2，r的值為3
D) p^的值為2，q^的值為2，r的值無意義

(44) 有條件語句
IF a<>b THEN IF a>b
THEN IF a<>c
THEN IF a
THEN S1 {設(shè)S1為PASCAL語句}
ELSE S2 {設(shè)S2為PASCAL語句}
ELSE S3 {設(shè)S3為PASCAL語句}
當(dāng)a>b而同時(shí)a=c時(shí)，應(yīng)執(zhí)行的語句是
A) S3 B) S2 C) S1 D) 跳出該條件語句

(45) 設(shè)a,x為整型變量。有語句
CASE a OF
1,2,3,7; x:=a
END;
下列語句與該CASE語句不等價(jià)的是
A) IF a IN [1,2,3,7,] THEN x:=a;
B) IF a IN [7,1..3] THEN x:=a;
C) IF (a=1)AND(a=2)AND(a=3)AND(a=7) THEN x:=a;
D) IF (a=1)OR(a=2)OR(a=3)OR(a=7) THEN x:=a;

(46) 假定p,q,t分別為指向結(jié)點(diǎn)A，B，C的指針，每個(gè)結(jié)點(diǎn)中包含一個(gè)字符串和一個(gè)整數(shù)，如下圖所示：

執(zhí)行下列語句
p^:=q^; q^:=t^; t^:=p^;
后，p,q,t分別指向的結(jié)點(diǎn)和各結(jié)點(diǎn)內(nèi)容正確的是

(47) 已知有函數(shù)定義
FUNCTION fn(a,b,c:Real);Real;
BEGIN
fn:=sin(a)/(sin(a-b)*sin(a-c))
END;
要計(jì)算下列m的值：

通過調(diào)用函數(shù)fn計(jì)算m的正確語句是
A) m:=fn(x,y,z)+fn(x,y,z)+fn(x,y,z)
B) m:=fn(x-y)+fn(y-z)+fn(z-x)
C) m:=fn(x,y,z)+fn(y,z,x)+fn(z,x,y)
D) m:=fn(x)+fn(y)+fn(z)

(48) 設(shè)有變量說明：VAR r,s:RECORD
a:Integer:b:Char
END;
x:Real; ch:Char;
下面賦值語句中錯(cuò)誤的是
A) r:=s; B) s,b:=ch; C) x:=r,a; D) r,a:=x;

(49) 設(shè)有以下說明： TYPE t1=FILE OF Integer;
VAR f1:t1: n:Integer;
且abc.dat是t1型文件，下面正確的程序段是
A) Assign(f1,'abc.dat'); B) Assign(f1,'abc.dat');
Write(f1,n); Reset(f1);
Rewrite(f1); Readln(f1,n);
Close(f1); Close(f1);
C) Assign(f1,'abc.dat'); D) Assign(f1,'abc,dat');
Rewrite(f1); Rewet(f1);
Writeln(f1,n); Read(f1,n);
Close(f1); Close(f1);

(50) 設(shè)有類型說明TYPE arr=ARRAY[1..10] OF Char;請(qǐng)閱讀下面過程PROCEDURE proc(VAR a:arr);
VAR n,k:Integer;
BEGIN
n:=Ord(‘a(chǎn)')-Ord(‘A');
FOR k:=1 TO 10 DO
IF a[k] IN [‘a(chǎn)'..'z'] THEN
a[k]:=Chr(Ord(a[k]-n)
END;
此過程的功能是
A) 把a(bǔ)中的所有小寫字母變成大寫字母
B) 把a(bǔ)中的所有小寫字母變成大寫，大寫字母變成小寫
C) 把a(bǔ)中的所有大寫字母變成小寫字母
D) 把a(bǔ)中的每個(gè)字符按ASCII碼順序改為它前面的第n個(gè)字符

二、填空題(每空2分，共40分)
請(qǐng)將每空的正確答案寫在答題卡上[1]至[20]序號(hào)的橫線上，答在試卷上不得分。

(1) 在DOS狀態(tài)下,當(dāng)執(zhí)行當(dāng)前盤目錄中的程序A.EXE時(shí),為了將本該在屏幕上顯示的運(yùn)行結(jié)果輸出到文件A.DAT中,應(yīng)使用的DOS命令為 [1] 。
(2) 在XCOPY、PATH、TREE三個(gè)DOS命令中，屬于內(nèi)部命令的是令是 [2] 。
(3) 設(shè)當(dāng)前盤為C盤，為了將當(dāng)前盤當(dāng)前目錄中第三個(gè)字符為X的所有文件同名復(fù)制到A盤的當(dāng)前目錄中，應(yīng)使用的DOS命令為 [3] 。
(4) 要將當(dāng)前盤的目錄A\B\C設(shè)置為當(dāng)前目錄,應(yīng)使用的DOS命令為 [4] 。
(5) 計(jì)算機(jī)網(wǎng)絡(luò)按通信距離劃分為局域網(wǎng)與廣域網(wǎng),Novell網(wǎng)屬于 [5] 。

(6) 下面程序計(jì)算 的值。請(qǐng)?zhí)羁胀瓿伞?

PROGRAM pp6(Output);
VAR i,j:Integer;
fact,sum:Real;
BEGIN
sum:=0.0; i:=1;
WHILE [6] DO
BEGIN
fact:=1.0;
FOR j:=1 TO 2*i+1 DO
fact:=fact*j;
sum:= [7]
i:=i+1
END
Writeln(‘sum=',sum:10:1);
END.

(7) 下面程序段打印101—200之間所有既不能被3整除也不能被8整除的數(shù)，請(qǐng)?zhí)羁胀瓿伞?
x:=101;
WHILE x<=200 DO
BEGIN
IF (x MOD 3=0) [8] (x MOD 8=0) THEN
ELSE Write(x:3);
x:=x+1
END;
(8) 下面程序的功能是將當(dāng)前路徑上基類型為實(shí)數(shù)的文件real.dat中的所有實(shí)數(shù)求和。請(qǐng)?zhí)羁胀瓿伞?
PROGRAM pp8(Input,Output);
VAR
f: [9] ;
r,s:Real;
BEGIN
s:=0;
Assign(f,rdal.dat');
Reset(f)
WHILE NOT EOF(f) DO
BEGIN
[10]
s:=s+r
END;
[11]
Writeln(‘The result is',s:8:3)
END.

(9) 下面的程序可以把文本文件filel.txt復(fù)制為file2.txt,請(qǐng)真空完成。
PROGRAM pp9(Output);
VAR f1,f2:Text;
PROCEDURE copy( [12] )
VAR c:Char;
BEGIN
WHELE[13]DO
BEGIN
Read(t1,C);
Write(t2.C)
END
END;
BEGIN
Assign(f1,'filel.txt');
Assign(f2,'file2.txt');
Reset(f1);
Rewrite(f2);
Copy(f1,f2);
Close(f1,);
Close(f2,)
END.

(10) 命題：100以內(nèi)的奇數(shù)的平方被8整除，余數(shù)均為1。
下面的函數(shù)可以驗(yàn)證上述命題，若命題成立，則返回True,否則返回False.請(qǐng)?zhí)羁胀瓿伞?
FUNCTION func:Boolean;
VAR a:integer; flag:Boolean;
BEGIN
flag:= [14]
FOR a:=1 TO 100 DO
IF Odd(a) THEN
flag: [15] ADD(a*a MOD 8=1);
func:=flag
END;

(11) 若兩個(gè)素?cái)?shù)之間沒有其它素?cái)?shù)，則稱這兩個(gè)素?cái)?shù)為相鄰的。下面過程p1可以根據(jù)參數(shù)x輸出一對(duì)相鄰素?cái)?shù)a,b，使得a<=x
PROCEDURE pl(x:Integer);
VAR a,b:Integer;
BEGIN
a:=x;
b:= [16]
WHILE NOT isprime(a) DO
a:=pred (a);
WHILE NOT isprime(b) DO
b:= [17]
Writeln(a:5,b:5)
END;

(12) 下面函數(shù)func的作用是：若數(shù)組a中有n個(gè)互不相同的數(shù)，則返回a中第m大的數(shù)
（m<=n=100)。
例如：若n=10,m=4,a[1]-a[10]中的數(shù)為5 7 9 3 4 2 10 15 8 6則返回第4大的數(shù)8。請(qǐng)?zhí)羁胀瓿伞?
TYPE arr=ARRAY[1..100] OF Integer;
FUNCTION func(a:arr;n,m;Integer);Integer;
VAR k,j,I:Integer;
BEGIN
FOR i:=1 TO m DO
BEGIN
k:= [18]
FOR j:=i+a TO n DO
IF a[j]>a[k] THEN
[19] ;
IF i
BEGIN
j:=a[i]; a[i]:=a[k]; a[k]:=j
END
END;
Func:= [20]
END;