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

一、選擇題((1)--(40)每個選項1分，(41)--(50)每個選項2分，共60分)下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應位置上，答在試卷上不得分。
(1)十進制數1385轉換成十六進制數為
A)568 B)569 C)D85 D)D55
(2)下列敘述中正確的是
A)計算機病毒只能傳染給可執行文件
B)計算機軟件是指存儲在軟盤中的程序
C)計算機每次啟動的過程之所以相同，是因為RAM 中的所有信息在關機后不會丟失
D)硬盤雖然裝在主機箱內，但它屬于外存
(3)一個字長的二進制數是
A)8 B)16 C)32 D)隨計算機系統而不同的
(4)CPU主要由運算器與控制器組成，下列說法中正確的是
A)運算器主要負責分析指令，并根據指令要求作相應的運算
B)運算器主要完成對數據的運算，包括算術運算和邏輯運算
C)控制器主要負責分析指令，并根據指令要求作相應的運算
D)控制器直接控制計算機系統的輸入與輸出操作
(5)下列敘述中正確的是
A)將數學信號變換成便于在模擬通信線路中傳輸的信號稱為調制
B)以原封不動的形式將來自終端的信息送入通信線路稱為調制解調
C)在計算機網絡中，一種傳輸介質不能傳送多路信號
D)在計算機局域網中，只能共享軟件資源，而不能共享硬件資源
(6)各種網絡傳輸介質
A)具有相同的傳輸速率和相同的傳輸距離
B)具有不同的傳輸速率和不同的傳輸距離
C)具有相同的傳輸速率和不同的傳輸距離
D)具有不同的傳輸速率和相同的傳輸距離
(7)多媒體計算機系統的兩大組成部分是
A)多媒體功能卡和多媒體主機
B)多媒體通信軟件和多媒體開發工具
C)多媒體輸入設備和多媒體輸出設備
D)多媒體計算機硬件系統和多媒體計算機軟件系統
(8)按通信距離劃分，計算機網絡可以分為局域網和廣域網。下列網絡中屬于局域網的是
A)Internet B)CERNET C)Novell D)CHINANET
(9)在Windows中，啟動應用程序的正確方法是
A)用鼠標雙擊該應用圖標
B)將該應用程序窗口最小分成圖標
C)將該應用程序窗口還原
D)將鼠標指向該應用程序窗口
(10)在Windows中，終止應用程序執行的正確方法是
A)用鼠標雙擊應用程序窗口左上角的控制菜單框
B)將應用程序窗口最小化成圖標
C)用鼠標雙擊應用程序窗口右上角的還原按鈕
D)用鼠標雙擊應用程序窗口中的標題欄
(11)DOS控制鍵CtrlAltDel的功能為
A)刪除一個字符并退格
B)暫停標準輸出設備的輸出
C)熱啟動
D)終止當前操作
(12)設當前盤為C盤，為了將A盤當前目錄中所有擴展名為。PAS的文件改成擴展名為。P，應使用的DOS命令為
A)REN A:*。PAS A:*。P B)REN A:*。PAS *。P
C)REN A:。PAS A:。P D)REN A:。PAS .P
(13)設當前盤為C盤，其根目錄下有兩個子目錄D1和D2，且當前目錄為D1，若要進入子目錄D2，正確的DOS命令為
A)CD D2 B)CD D2、C)CD 、D2 D)CD D1、D2
(14)設當前盤為A盤，要將B盤當前目錄下的兩個文件A.TXT與X.TXT 連接后以文件名Y.TXT存放到A盤的當前目錄中，正確的DOS命令為
A)COPY A.TXTX.TXT A:Y.TXT B)COPY B:A.TXTX.TXT A:Y.TXT
C)COPY B:A.TXTB:X.TXT 》Y.TXT D)COPY B:A.TXTB:X.TXT Y.TXT
(15)下列DOS命令中正確的是
A)REN 、USER、A.TXT 、B.TXT
B)CD 、
C)TYPE *。TXT
D)MD 、
(16)根據函數Trunc(x)和Round(x)的定義，可用Trunc(x)來表示Round(x)，正確的表示方法是
A)Round(x)=Trunc(x0.5)
B)Round(x)=Trunc(x--0.5)
C)Round(x)={Trunc(x0.5)x》=0
Trunc(x--0.5)x《0
D)Round(x)={Trunc(x--0.5)x》=0
Trunc(x0.5)x《0
(17)y既不在--2到--1的范圍內又不在1到2的范圍內，其正確的表達式是
A)(Abs(y)《1)AND (Abs(y)》2)B)(Abs(y)《1)OR (Abs(y)》2)
C)(1《2)AND (--2《--1)D)NOT(1《2)OR NOT (--2《--1)
(18)有下列程序
PROGRAM print(Input，Output)；
VAR ch1，ch2，ch3：Char；
BEGIN
Readln(ch1)；
Readln(ch2，ch2)；
Readln(ch3，ch3，ch3)；
Writeln(ch1，ch2，ch3)
END.
若運行時輸入
red
yellow
blue
則正確的輸出是
A)ryb B)reu C)rdl D)blu
(19)表達式8 MOD (2*(5--3*(46*(5 DIV 2))DIV 10))的值是
A)0 B)1 C)2 D)3
(20)Integer是
A)保留字B)標準標識符C)用戶定義的標識符D)類型定義
(21)假設a1，a2，a3是布爾變量，且值均為True，則下列表達式中值為False的是
A)NOT a1 AND NOT a2 B)a1 OR a2 AND a3
C)(NOT a1 OR a2)AND (a2 OR a3)D)False OR a1 AND a2 OR NOT a3
(22)已知ch是字符變量，下列賦值語句中正確的是
A)ch:='7'B)ch:=7 C)ch:='--7'D)ch:=--'7'
(23)下列中正確的過程說明和調用是
A)PROCEDURE proc1(a:Char；VAR b:Char)；B)PROCEDURE proc2(a，b:Integer)；
BEGIN BEGIN
b:=Chr(Ord(a)1)；……
procl:=b END；
END；BEGIN {主程序}
……
proc2(3.5，1)；
……
END.
C)PROCEDURE proc3(a:Real；VAR b:Real)；D)PROCEDURE proc4(c，d:Integer)；
BEGIN BEGIN
……
END；END；
BEGIN {主程序}BEGIN {主程序}
……a:=1；
x:=1；b:=2；
y:=2；proc4(a，b)
proc3(xy，x--y)；END.
……
END.
(24)下面程序中的過程proc的參數表沒有給出
PROGRAM exam(Output)；
VAR a，b:Integer；
PROCEDURE proc(……)；
BEGIN
c:=ab；
d:=a--b
END；
BEGIN
a:=1；
b:=2；
proc(a，b)；
Writeln(a:2，'，'，b:2)
END.
則過程proc中的參數表取下列哪種形式，程序的輸出是1，2
A)c:Integer；VAR d:Integer B)VAR c:Integer；d:Integer
C)c，d:Integer D)VAR c，d:Integer
(25)一個記錄的域標識符不可以與下列哪項相同？
A)常量標識符B)函數名
C)此域標識符所屬記錄的記錄名D)同層域標識符
(26)下列各程序段中正確的是
A)TYPE tocp=^Char；B)TYPE torp=^Real；
VAR charp:tocp；VAR rp:torp；
BEGIN BEGIN
New(charp)；New(rp)；
IF charp^》10 THEN Writeln('Watch out')；rp^：=NIL；
……
END.END.
C)TYPE tocp=^Char；D)TYPE toip=^Integer；
VAR cp:tocp；VAR ip1，ip2:toip；
BEGIN BEGIN
New(cp)；New(ip1)；
cp:=NIL；New(ip2)；
cp^：='x'；ip1^：=5；
……ip1=ip2；
END.……
END.
(27)下列說法不正確的是
A)幾個指針可以指向同一個動態變量。
B)p和q分別是指向實型變量和整型變量的指針，值NIL賦給了p，那么它還可以賦給q。
C)設p、q是指向整型變量的指針，若已執行了下面的語句：
New(p)；
q:=p；
p^：=5；
Dispose(q)；
那么這時仍可以訪問p^。
D)指針變量可以通過賦值語句改變其值。
(28)下面關于文件變量的敘述中哪個是錯誤的
A)不能用賦值語句給文件變量賦值
B)若以文件變量作為子程序的形式參數，則只能作為變參，不能作為值參
C)文件變量的類型只能是文件類型
D)文件變量可以作為函數的返回值
(29)要編寫并執行一個Pascal程序，一般的步驟是
A)①用編輯軟件編寫源程序
②用Pascal的編譯程序把源程序轉換為目標程序
③用連接程序把目標程序轉換為可執行程序
④運行可執行程序
B)①用編輯軟件編寫源程序
②修改，調試源程序
③用Pascal的編譯程序把源程序轉換為可執行程序
④運行可執行程序
C)①用編輯軟件編寫源程序
②有連接程序把源程序轉換為可執行程序
③試運行可執行程序
④修改后再運行可執行程序
D)①用編輯軟件編寫源程序
②有連接程序把源程序轉換為目標程序
③用Pascal的編譯程序把目標程序轉換為可執行程序
④運行可執行程序
(30)下面是對實型常量的形式定義，其中±表示是正號或負號，a表示整數部分，b 表示小數部分，E表示以10為底數的指數，則下面對實型量描述正確的是
A)±。b B)±E6 C)±IE5 D)±a.bE±0.5
(31)不能作為子界類型的基類型的是
A)實數類型B)枚舉類型C)字符類型D)布爾類型
(32)下列語句對數組num進行說明，其中不正確的是
A)VAR num:ARRAY[Boolean]OF Boolean；
B)VAR num:ARRAY[10，10]OF Boolean；
C)VAR num:ARRAY[0.。8]OF ARRAY[5.。10]OF Integer；
D)VAR num:ARRAY[--1.。5，'a'……'e']OF Real；
(33)下面哪個關于指針類型的敘述是錯誤的
A)指針類型可以作為數組的基類型
B)指針類型可以作為集合的基類型
C)指針類型可以作為函數返回值的類型
D)指針類型可以作為函數的形式參數的類型
(34)設有說明VAR p，q:^Integer；
j，k:^Char；
n:Integer；
則下列語句正確的是
A)n:=p^；B)p:=n；C)p^：=j^；D)p:=2*q1；
(35)已知有說明VAR a，b，c:Integer；鍵盤輸入變量a的值域為[0，5]，則下面正確的CASE語句是
A)Readln(a)；
CASE a OF
0，1，2:Writeln('a*a='，Spr(a))；
3:b:=Spr(a)--a；
Writeln('c='，c)；
4，5:Writeln('aa='，aa)
END；
B)Readln(a)；
CASE a OF
0，1，2:Writeln('a*a='，Spr(a))；
3:Writeln('a*a--a='，Spr(a)--a)；
1，4，5:Writeln('aa='，aa)
END；
C)Readln(a)；
CASE a OF
0，1，2:Writeln('a*a='，Spr(a))；
3:BEGIN
b:=Spr(a)--a；
Writeln('c='，c)；
END；
4，5:Writeln('aa='，aa)
END；
D)Readln(a)；
CASE Sqr(a)/a OF
0，1，2:Writeln('a*a='，Sqr(a))；
3:BEGIN
b:=Sqr(a)--a；
Writeln('c='，c)；
END；
4，5:Writeln('aa='，aa)
END；
(36)設有說明VAR x，y:(d，c，b，a)；
執行下面3條語句后的輸出是
x:=a；
y:=c；
Writeln(Ord(y)--Ord(x))；
A)1 B)--2 C)2 D)3
(37)要使語句IF a IN b THEN 《語句》；無語法錯誤，a，b的類型應該是
A)a是集合類型，b的類型與a的基類型相同
B)b是集合類型，a的類型與b的基類型相同
C)a和b都是集合類型
D)a，b中的任何一個都可以是集合類型，另一個則是此集合的基類型
(38)設a，b是整型變量且已賦值，函數首部為FUNCTION func(VAR a:Integer)：Integer；
下面正確的函數調用是
A)b:=func(func(b))；B)Writeln(func(ab))；
C)Writeln(Ord(func(b)))；D)b:=func(Succ(func(b)))；
(39)設a為集合變量，下面哪一組中的兩個表達式的值是不同的
A)aa--a和a--aa B)aa*a和a
C)(aa)*a和a D)a--a*a和(aa)*a--a
(40)設有說明如下：TYPE rec=RECORD
a，b:Integer
END；
ft=FILE OF rec；
VAR f:ft；
s:rec；
ft類型文件abc.dat中有一條rec型記錄，要取出記錄中的兩個整數并輸出，應使用的程序段是
A)Assign(f，'abc.dat')；B)Assign(f，'abc.dat')；
Reset(f)；Reset(f)；
Read(f，s.a，s.b)；Readln(f，s)；
Close(f)；Close(f)；
Writeln(s.a，s.b)；Writeln(s.a，s.b)；
C)Assign(f，'abc.dat')；D)Assign(f，'abc.dat')；
Reset(f)；Reset(f)；
Readln(f，s.a，s.b)；Read(f，s)；
Close(f)；Close(f)；
Writeln(s.a，s.b)；Writeln(s.a，s.b)；
(41)設集合x=[2，4，6，8]，y=[2，3，4，5，6]，下面能使a=[]的賦值語句是
A)a:=x--y[8]B)a:=(xx)*(x--y)
C)a:=x*y--x D)a:=(y--x)--(x--y)
(42)有程序：
PROGRAM prog(Input，Output)；
VAR a，b:Integer；
PROCEDURE p(VAR x:Integer；y:Integer)；
BEGIN
x:xy
END；
BEGIN
a:=5；b:=10；
p(a，b)；
p(a，a MOD b)；
Writeln(a，'，'，b)
END.
則運行結果為
A)10，10 B)20，20 C)10，20 D)20，10
(43)有下列程序：
51TestPROGRAM exam2(Input，Output)；
VAR i:Integer；
FUNCTION ss(n:Integer)：Boolean；
VAR i:Integer；b:Boolean；
BEGIN
i:=3；b:=True；
WHILE(i《=Trunc(Sqrt(n)))AND b DO
BEGIN
IF n MOD i=0 THEN b:=False；
i:=i2
END；
ss:=b
END；
BEGIN
i:=3；
WHILE i《=100 DO
BEGIN
IF ss(i)AND ss(i4)AND ss(i10)THEN
Writeln(i)；
i:=i2
END
END.
則程序的功能是
A)找出100以內的全部質數(即素數)。
B)找出100以內質數的個數。
C)找出100以內滿足i，i4，i10都是質數的i的個數。
D)找出100以內滿足i，i4，i10都是質數的所有整數i。
(44)設有說明
VAR a，b，c:Integer；
FUNCTION ff(x，y，z，j:Integer；VAR a:integer)：Integer；
VAR i:Integer；
BEGIN
ff:=0；a:=j；
FOR i:=a TO 3 DO
BEGIN
ff:=(z--y)DIV x；
x:=x1
END；
END；
執行語句c:=ff(ff(2，4，16，1，a)，6，8，3，b)后變量c，a，b的值分別是
A)0，1，1 B)0，3，1 C)0，3，3 D)0，1，3
(45)下面哪個類型說明是錯誤的？
A)TYPE rec1=RECORD B)TYPE rec2=RECORD
a:Integer；a:Integer；
CASE flag:'A'……'C'OF CASE flag:'X'……'Z'OF
'A'：(x:Char)；'X'：(x:Char)；
'B'：(y:Char)；'Y'：(y:Char)；
'C'：(z:Char)；'Z'：(z:Char)；
END；END；
C)TYPE rec3=RECORD D)TYPE rec4=RECORD
a:Integer；x:Integer；
CASE flag:'A'……'C'OF CASE flag:'X'……'Z'OF
'A'：(a:Char)；'X'：(a:Char)；
'B'：(b:Char)；'Y'：(b:Char)；
'C'：(c:Char)；'Z'：(c:Char)；
END；END；
(46)設有類型和變量說明如下：
TYPE t1=RECORD
a，b:Integer；
END；
t2=RECORD
a:Char；b:t1
END；
VAR x:t2；
下面哪組語句有錯誤？
A)x.a:='A'；B)WITH x，b DO
x.b.a:=1；BEGIN
x.b.b:=2；a:='A'；b:=5
END；
C)WITH x DO D)x.a:='C'；
BEGIN WITH x，b DO
WITH b DO BEGIN
BEGIN a:=1；b:=2；
a:=1；b:=2 END；
END；
a:='C'
END；
(47)設n是整型變量，閱讀下面的程序段
Readln(n)；
REPEAT
IF n MOD 2=0 THEN
n:=n1
ELSE
n:=n2
UNTIL n=1000；
關于輸入數據的正確描述是
A)只有輸入的n是偶數時才會出現死循環
B)只有輸入的n是奇數時才會出現死循環
C)只有輸入的n大于或等于1000時才會出現死循環
D)輸入任何數時都會出現死循環
(48)下面程序的輸出是
PROGAM bs23(Output)；
VAR a:ARRAY[1.。10]OF Char；
k:Integer；ch:Char；
BEGIN
FOR k:=1 TO 10 DO
a[k]：=Chr(Ord('A')k)；
FOR k:=1 TO 10 DO
BEGIN
ch:=a[k]；
a[k]：a[11--k]；
a[11--k]：=ch；
END；
FOR k:=1 TO 10 DO
Write(a[k])；
Writeln
END.
A)ABCDEFGHIJ B)BCDEFGHIJK C)JIHGFEDCBA D)KJIHGFEDCB
(49)設文件file2.dat中是一行若干個大寫字母(沒有行結束符)，請閱讀下面的程序
PROGRAM bs24(Input，Output)；
VAR f1，f2:Text；
ch:Char；j:Integer；
s:SET OF 'A'……'Z'；
BEGIN
s:=[]；
Assign(f1，'file2.dat')；
Assign(f2，'out2.dat')；
Reset(f1)；
Rewrite(f2)；
WHILE NOT Eof(f1)DO
BEGIN
Read(f1，ch)；
s:=s[ch]
END；
FOR ch:='A'TO 'Z'DO
IF ch IN s THEN
Write(f2，ch)；
Close(f1)；
close(f2)
END.
此程序的功能是
A)把file2.dat中不重復的字母寫入文件out2.dat(即只保留出現一次的字母)。
B)把file2.dat中重復出現的字母寫入文件out2.dat(即只保留出現多次的字母)。
C)把file2.dat中重復出現的字母中多余的字母濾去后，寫入文件out2.dat(即若有多個字母相同，則只51Test保留一個)
D)把file2.dat中的所有字母寫入文件out2.dat。
(50)設有說明CONST n=10；
TYPE arr=ARRAY[1.。n]OF Integer；
要求函數func從數組a中查找一個等于x的數并返回此數的下標，如果a中沒有此數，則返回0，下面哪個函51Test數不能完全正確地實現上述功能。
A)FUNCTION func(a:arr；x:Integer)：Integer；
VAR found:Boolean；k:Integer；
BEGIN
found:=False；k:=1；
WHILE (k《=n)AND NOT found DO
IF x=a[k]THEN
found:=True
ELSE
k:=k1；
IF found THEN
func:=k
ELSE
func:=0
END；
B)FUNCTION func(a:arr；x:integer)：Integer；
VAR found:Boolean；k:Integer
BEGIN
k:=0；
REPEAT
k:=k1；
found:=x=a[k]
UNTIL(k=n)OR found；
IF found THEN
func:=k
ELSE
func:=0
END；
C)FUNCTION func(a:arr；x:Integer)：Integer；
VAR k:Integer；
BEGIN
k:=1；
WHILE (k《=n)AND (x《》a[k])DO
k:=k1；
IF k》n THEN
func:=0
ELSE
func:=k
END；
D)FUNCION func(a:arr；x:Integer)：Integer；
VAR k:Integer；
BEGIN
k:=0；
REPEAT
k:=k1
UNTIL(a[k]=x)OR (k=n)；
IF k》n THEN
func:=0
ELSE
func:=k
END；
二、填空題(每空2分，共40分)
請將每一個空的正確答案寫在答題卡___1___至___20___序號的橫線上，答在試卷上不得分。
(1)DOS命令分為內部命令與外部命令，PATH命令是___1___命令。
(2)設當前盤為A盤，當前目錄為、X、Y，A盤上的一個文件QR.C 在當前目錄下的子目錄W中。現已將A盤的當前目錄改為、D、XY，當前盤改為C盤，如果需指定A盤上的該文件應寫成___2___。
(3)為了得到XCOPY命令的在線幫助，可使用的DOS命令之一為___3___。
(4)在DOS系統下，代表鍵盤與顯示器的設備文件名為___4___。
(5)在DOS系統下，可以直接執行的文件的擴展名除。EXE外，還有兩個是___5___。
(6)設有說明TYPE
list=^node；
node=RECORD
data:Char；
next:list；
END；
下面過程letterlist的功能是：對輸入的一串字母(限定為小寫字母)，按輸入順序建立一個字母鏈表(當輸入的是非小寫字母時停止建表)。
PROGCEURE letterlist(VAR head:list)；
VAR
h，p:list；
ch:Char；
BEGIN
head:=NIL；
Read(ch)；
WHILE ch IN ['a'……'z']DO
BEGIN
___6___；
p^。data:=ch；
___7___:=NIL；
IF head=NIL
THEN head:=p
ELSE___8___:=p；
h:=p；
Read(ch)；
END；
Readln；
h^。next:=NIL
END；
(7)過程pl計算并輸出兩個四位整數m和n的乘積，乘積分別放在兩個整型變量hi和lo中，hi存放乘積的高4位數，lo存放乘積的低4位數。
例如，m=4567，n=5678，則計算結果為4567*5678=25931426，乘積的前4位數2593存入hi，乘積的后4位數1426存入lo。
PROCEDURE pl(m，n:Ineger；VAR hi，lo:Integer)；
VAR i:Integer；
BEGIN
i:=n；hi:=0；___9___；
REPEAT
i:=i--1；lo:=lom；
51TestIF lo 》=10000 THEN
BEGIN
lo:=lo--___10___；
___11___；
END；
UNTIL___12___；
Write(hi:4，'，'，lo:4)；
END；
(8)一個數如果正好等于其因子之和，就稱其為“完數”。例如6的因子是1，2，3，并且6=123，所以6是一個“完數”。下面的程序可以輸出2──n之間的所有完數之和。其中n為2~1000之間的任意整數。請將程序填寫完全。
PROGRAM bs1(Output)；
VAR a，n，s:Integer；
FUNCTION func(n:Integer)：Boolean；
VAR s，k:Integer；
BEGIN
s:=0；
FOR k:=1 TO __13___DO
IF n MOD k=0 THEN
s:=___14___；
IF ___15___ THEN
func:=True
ELSE
func:=False
END；
BEGIN
s:=0；Readln(n)；
FOR a:=2 TO n DO
IF func(___16___)THEN
s:=sa；
Writeln(s)
END.
(9)下列程序是用篩法生成從2到100之間的所有質數。請將程序填寫完全。
PROGRAM p9(Output)；
CONST n=100；
VAR next，j，count:Integer；
sieve，primes:SET OF 2.。n；
BEGIN
j:=2；
sieve:=[j]；
REPEAT
j:=j1；
sieve:=___17___
UNTIL j》=n；
primes:=[]；
next:=___18___；
count:=0；
REPEAT
WHILE NOT (next IN sieve)DO
next:=Succ(next)；
primes:=___19___；
Write(next:1，'')；
count:=count1；
IF count MOD 5=0 THEN Writeln；
j:=next；
WHILE j《=n DO
BEGIN
sieve:=sieve--[j]；
j:=___20___
END
UNTIL sieve=[]
END.

轉帖于：計算機等級考試_考試吧