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

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

(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網提供的服務，必須采用FTP協議
B) 為了使用Internet網提供的服務，必須采用TELNET協議
C) 為了使用Novell網提供的服務，必須采用TCP/IP協議
D) 為了使用Internet網提供的服務，必須采用TCP/IP協議

(3) 下列說法中不正確的是
A) 調制解調器(Modem)是局域網絡設備
B) 集線器(HuB)是局域網絡設備
C) 網卡(NIC)是局域網絡設備
D) 中繼器（Repeater）是局域網絡設備

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

(5) 下列說法中不正確的是
A) CD-ROM是一種只讀存儲器但不是內存儲器
B) CD-ROM驅動器是多媒體計算機的基本部分
C) 只有存放在CD-ROM盤上的數據才稱為多媒體信息
D) CD-ROM盤上最多能夠存儲大約650兆字節的信息

(6) Windows應用環境中鼠標的拖動操作不能完成的是
A) 當窗口不是最大時，可以移動窗口的位置
B) 當窗口最大時，可以將窗口縮小成圖標
C) 當窗口有滾動條時可以實現窗口內容的滾動
D) 可以將一個文件移動(或復制)到另一個目錄中去

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

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

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

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

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

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

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

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

(15) 若要將當前盤目錄下的文件A.TXT連接在文件B.TXT后面，應使用的命令為
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) 以下各組運算中運算優先級最低的一組是
A) +，-，OR B) *,/ C) >=,<>,IN D) DIV,MOD,AND

(17) 已知有說明
CONST a=1; b=2; c=3; d=4;
VAR w,x,y,:Integer;
執行語句
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) 數學表達式Sin(60o)的正確PASCAL表達式是
A) Sin(60) B) Sin(3.14159*60)
C) Sin(3,14159*60/180.0) D) Sin(60*3.14159/360.0)

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

(20) 設x是一個實型變量，下面能將x四舍五入使小數部分精確到百分之一的PASCAL表達式是
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) 一個文件文件的基類型不可以是
A) 文件 B) 數組 C) 實數 D) 記錄數組

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

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

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

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

(27) 當n為任意正奇數時，值總為Ｔtre的表達式是
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) 表達式Pred(Chr(Ord(‘A')+4))的值是
A) ‘C' B) ‘D' C) 69 D) 101

(30) 下列表達式中值為假的是
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');
輸出字符Ａ的個數是
A) ５ B) 10 C) 15 D) 20

(32) 設數組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
下面數組元素的值等于３的是
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) 下面關于FOR循環不正確的敘述是
A) 在循環體中不能改變循環控制變量的值
B) 在執行過程中初值和終值不會改變
C) 分為遞增型和遞減型兩種
D) 循環控制變量不必在程序的說明部分說明

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

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

(37) 以下結論正確的是
A) 表達式[sun,fri]*[mon,tue]的值為[sun,fri,mon,tre]
B) 表達式x IN [i,j,k,m]等價于(x=i）OR(x=j) OR(x=k) OR(x=m)
C) 表達式[sun,sat]-[mon,tue]的值為［sat,mon,tue］
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;
運行后輸出結果是
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:
假設所有變量均已說明，程序運行后x的值是
A) 25 B) 20 C) 15 D) ５

(41) 設有程序：
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.
運行以上程序，輸入I love You 則輸出是
A) I love you B) Iloveyou C) I love you** D) Iloveyou**

(42) 設有程序：
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
運行后，Writeln語句的輸出結果是
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;
執行后，p,q,r三個變量值的情況是
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 {設S1為PASCAL語句}
ELSE S2 {設S2為PASCAL語句}
ELSE S3 {設S3為PASCAL語句}
當a>b而同時a=c時，應執行的語句是
A) S3 B) S2 C) S1 D) 跳出該條件語句

(45) 設a,x為整型變量。有語句
CASE a OF
1,2,3,7; x:=a
END;
下列語句與該CASE語句不等價的是
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分別為指向結點A，B，C的指針，每個結點中包含一個字符串和一個整數，如下圖所示：

執行下列語句
p^:=q^; q^:=t^; t^:=p^;
后，p,q,t分別指向的結點和各結點內容正確的是

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

通過調用函數fn計算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) 設有變量說明：VAR r,s:RECORD
a:Integer:b:Char
END;
x:Real; ch:Char;
下面賦值語句中錯誤的是
A) r:=s; B) s,b:=ch; C) x:=r,a; D) r,a:=x;

(49) 設有以下說明： 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) 設有類型說明TYPE arr=ARRAY[1..10] OF Char;請閱讀下面過程PROCEDURE proc(VAR a:arr);
VAR n,k:Integer;
BEGIN
n:=Ord(‘a')-Ord(‘A');
FOR k:=1 TO 10 DO
IF a[k] IN [‘a'..'z'] THEN
a[k]:=Chr(Ord(a[k]-n)
END;
此過程的功能是
A) 把a中的所有小寫字母變成大寫字母
B) 把a中的所有小寫字母變成大寫，大寫字母變成小寫
C) 把a中的所有大寫字母變成小寫字母
D) 把a中的每個字符按ASCII碼順序改為它前面的第n個字符

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

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

(6) 下面程序計算 的值。請填空完成。

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整除的數，請填空完成。
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) 下面程序的功能是將當前路徑上基類型為實數的文件real.dat中的所有實數求和。請填空完成。
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復制為file2.txt,請真空完成。
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以內的奇數的平方被8整除，余數均為1。
下面的函數可以驗證上述命題，若命題成立，則返回True,否則返回False.請填空完成。
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) 若兩個素數之間沒有其它素數，則稱這兩個素數為相鄰的。下面過程p1可以根據參數x輸出一對相鄰素數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) 下面函數func的作用是：若數組a中有n個互不相同的數，則返回a中第m大的數
（m<=n=100)。
例如：若n=10,m=4,a[1]-a[10]中的數為5 7 9 3 4 2 10 15 8 6則返回第4大的數8。請填空完成。
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;