在线现看午夜福利片|女人16久久免费视频|鲁丝片一区鲁丝片二区鲁丝|一区二区三区欧美在线

一、選擇題((1)--(40)每個選項1分，(41)--(50)每個選項2分，共60分)下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。
(1)十進制數(shù)1385轉(zhuǎn)換成十六進制數(shù)為
A)568 B)569 C)D85 D)D55
(2)下列敘述中正確的是
A)計算機病毒只能傳染給可執(zhí)行文件
B)計算機軟件是指存儲在軟盤中的程序
C)計算機每次啟動的過程之所以相同，是因為RAM 中的所有信息在關(guān)機后不會丟失
D)硬盤雖然裝在主機箱內(nèi)，但它屬于外存
(3)一個字長的二進制數(shù)是
A)8 B)16 C)32 D)隨計算機系統(tǒng)而不同的
(4)CPU主要由運算器與控制器組成，下列說法中正確的是
A)運算器主要負責分析指令，并根據(jù)指令要求作相應(yīng)的運算
B)運算器主要完成對數(shù)據(jù)的運算，包括算術(shù)運算和邏輯運算
C)控制器主要負責分析指令，并根據(jù)指令要求作相應(yīng)的運算
D)控制器直接控制計算機系統(tǒng)的輸入與輸出操作
(5)下列敘述中正確的是
A)將數(shù)學信號變換成便于在模擬通信線路中傳輸?shù)男盘柗Q為調(diào)制
B)以原封不動的形式將來自終端的信息送入通信線路稱為調(diào)制解調(diào)
C)在計算機網(wǎng)絡(luò)中，一種傳輸介質(zhì)不能傳送多路信號
D)在計算機局域網(wǎng)中，只能共享軟件資源，而不能共享硬件資源
(6)各種網(wǎng)絡(luò)傳輸介質(zhì)
A)具有相同的傳輸速率和相同的傳輸距離
B)具有不同的傳輸速率和不同的傳輸距離
C)具有相同的傳輸速率和不同的傳輸距離
D)具有不同的傳輸速率和相同的傳輸距離
(7)多媒體計算機系統(tǒng)的兩大組成部分是
A)多媒體功能卡和多媒體主機
B)多媒體通信軟件和多媒體開發(fā)工具
C)多媒體輸入設(shè)備和多媒體輸出設(shè)備
D)多媒體計算機硬件系統(tǒng)和多媒體計算機軟件系統(tǒng)
(8)按通信距離劃分，計算機網(wǎng)絡(luò)可以分為局域網(wǎng)和廣域網(wǎng)。下列網(wǎng)絡(luò)中屬于局域網(wǎng)的是
A)Internet B)CERNET C)Novell D)CHINANET
(9)在Windows中，啟動應(yīng)用程序的正確方法是
A)用鼠標雙擊該應(yīng)用圖標
B)將該應(yīng)用程序窗口最小分成圖標
C)將該應(yīng)用程序窗口還原
D)將鼠標指向該應(yīng)用程序窗口
(10)在Windows中，終止應(yīng)用程序執(zhí)行的正確方法是
A)用鼠標雙擊應(yīng)用程序窗口左上角的控制菜單框
B)將應(yīng)用程序窗口最小化成圖標
C)用鼠標雙擊應(yīng)用程序窗口右上角的還原按鈕
D)用鼠標雙擊應(yīng)用程序窗口中的標題欄
(11)DOS控制鍵CtrlAltDel的功能為
A)刪除一個字符并退格
B)暫停標準輸出設(shè)備的輸出
C)熱啟動
D)終止當前操作
(12)設(shè)當前盤為C盤，為了將A盤當前目錄中所有擴展名為。PAS的文件改成擴展名為。P，應(yīng)使用的DOS命令為
A)REN A:*。PAS A:*。P B)REN A:*。PAS *。P
C)REN A:。PAS A:。P D)REN A:。PAS .P
(13)設(shè)當前盤為C盤，其根目錄下有兩個子目錄D1和D2，且當前目錄為D1，若要進入子目錄D2，正確的DOS命令為
A)CD D2 B)CD D2、C)CD 、D2 D)CD D1、D2
(14)設(shè)當前盤為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)根據(jù)函數(shù)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的范圍內(nèi)又不在1到2的范圍內(nèi)，其正確的表達式是
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)假設(shè)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)下列中正確的過程說明和調(diào)用是
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的參數(shù)表沒有給出
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中的參數(shù)表取下列哪種形式，程序的輸出是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)函數(shù)名
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)幾個指針可以指向同一個動態(tài)變量。
B)p和q分別是指向?qū)嵭妥兞亢驼�型變量的指針，值NIL賦給了p，那么它還可以賦給q。
C)設(shè)p、q是指向整型變量的指針，若已執(zhí)行了下面的語句：
New(p)；
q:=p；
p^：=5；
Dispose(q)；
那么這時仍可以訪問p^。
D)指針變量可以通過賦值語句改變其值。
(28)下面關(guān)于文件變量的敘述中哪個是錯誤的
A)不能用賦值語句給文件變量賦值
B)若以文件變量作為子程序的形式參數(shù)，則只能作為變參，不能作為值參
C)文件變量的類型只能是文件類型
D)文件變量可以作為函數(shù)的返回值
(29)要編寫并執(zhí)行一個Pascal程序，一般的步驟是
A)①用編輯軟件編寫源程序
②用Pascal的編譯程序把源程序轉(zhuǎn)換為目標程序
③用連接程序把目標程序轉(zhuǎn)換為可執(zhí)行程序
④運行可執(zhí)行程序
B)①用編輯軟件編寫源程序
②修改，調(diào)試源程序
③用Pascal的編譯程序把源程序轉(zhuǎn)換為可執(zhí)行程序
④運行可執(zhí)行程序
C)①用編輯軟件編寫源程序
②有連接程序把源程序轉(zhuǎn)換為可執(zhí)行程序
③試運行可執(zhí)行程序
④修改后再運行可執(zhí)行程序
D)①用編輯軟件編寫源程序
②有連接程序把源程序轉(zhuǎn)換為目標程序
③用Pascal的編譯程序把目標程序轉(zhuǎn)換為可執(zhí)行程序
④運行可執(zhí)行程序
(30)下面是對實型常量的形式定義，其中±表示是正號或負號，a表示整數(shù)部分，b 表示小數(shù)部分，E表示以10為底數(shù)的指數(shù)，則下面對實型量描述正確的是
A)±。b B)±E6 C)±IE5 D)±a.bE±0.5
(31)不能作為子界類型的基類型的是
A)實數(shù)類型B)枚舉類型C)字符類型D)布爾類型
(32)下列語句對數(shù)組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)下面哪個關(guān)于指針類型的敘述是錯誤的
A)指針類型可以作為數(shù)組的基類型
B)指針類型可以作為集合的基類型
C)指針類型可以作為函數(shù)返回值的類型
D)指針類型可以作為函數(shù)的形式參數(shù)的類型
(34)設(shè)有說明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)設(shè)有說明VAR x，y:(d，c，b，a)；
執(zhí)行下面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的類型應(yīng)該是
A)a是集合類型，b的類型與a的基類型相同
B)b是集合類型，a的類型與b的基類型相同
C)a和b都是集合類型
D)a，b中的任何一個都可以是集合類型，另一個則是此集合的基類型
(38)設(shè)a，b是整型變量且已賦值，函數(shù)首部為FUNCTION func(VAR a:Integer)：Integer；
下面正確的函數(shù)調(diào)用是
A)b:=func(func(b))；B)Writeln(func(ab))；
C)Writeln(Ord(func(b)))；D)b:=func(Succ(func(b)))；
(39)設(shè)a為集合變量，下面哪一組中的兩個表達式的值是不同的
A)aa--a和a--aa B)aa*a和a
C)(aa)*a和a D)a--a*a和(aa)*a--a
(40)設(shè)有說明如下：TYPE rec=RECORD
a，b:Integer
END；
ft=FILE OF rec；
VAR f:ft；
s:rec；
ft類型文件abc.dat中有一條rec型記錄，要取出記錄中的兩個整數(shù)并輸出，應(yīng)使用的程序段是
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)設(shè)集合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.
則運行結(jié)果為
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以內(nèi)的全部質(zhì)數(shù)(即素數(shù))。
B)找出100以內(nèi)質(zhì)數(shù)的個數(shù)。
C)找出100以內(nèi)滿足i，i4，i10都是質(zhì)數(shù)的i的個數(shù)。
D)找出100以內(nèi)滿足i，i4，i10都是質(zhì)數(shù)的所有整數(shù)i。
(44)設(shè)有說明
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；
執(zhí)行語句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)設(shè)有類型和變量說明如下：
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)設(shè)n是整型變量，閱讀下面的程序段
Readln(n)；
REPEAT
IF n MOD 2=0 THEN
n:=n1
ELSE
n:=n2
UNTIL n=1000；
關(guān)于輸入數(shù)據(jù)的正確描述是
A)只有輸入的n是偶數(shù)時才會出現(xiàn)死循環(huán)
B)只有輸入的n是奇數(shù)時才會出現(xiàn)死循環(huán)
C)只有輸入的n大于或等于1000時才會出現(xiàn)死循環(huán)
D)輸入任何數(shù)時都會出現(xiàn)死循環(huán)
(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)設(shè)文件file2.dat中是一行若干個大寫字母(沒有行結(jié)束符)，請閱讀下面的程序
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中不重復(fù)的字母寫入文件out2.dat(即只保留出現(xiàn)一次的字母)。
B)把file2.dat中重復(fù)出現(xiàn)的字母寫入文件out2.dat(即只保留出現(xiàn)多次的字母)。
C)把file2.dat中重復(fù)出現(xiàn)的字母中多余的字母濾去后，寫入文件out2.dat(即若有多個字母相同，則只51Test保留一個)
D)把file2.dat中的所有字母寫入文件out2.dat。
(50)設(shè)有說明CONST n=10；
TYPE arr=ARRAY[1.。n]OF Integer；
要求函數(shù)func從數(shù)組a中查找一個等于x的數(shù)并返回此數(shù)的下標，如果a中沒有此數(shù)，則返回0，下面哪個函51Test數(shù)不能完全正確地實現(xiàn)上述功能。
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命令分為內(nèi)部命令與外部命令，PATH命令是___1___命令。
(2)設(shè)當前盤為A盤，當前目錄為、X、Y，A盤上的一個文件QR.C 在當前目錄下的子目錄W中。現(xiàn)已將A盤的當前目錄改為、D、XY，當前盤改為C盤，如果需指定A盤上的該文件應(yīng)寫成___2___。
(3)為了得到XCOPY命令的在線幫助，可使用的DOS命令之一為___3___。
(4)在DOS系統(tǒng)下，代表鍵盤與顯示器的設(shè)備文件名為___4___。
(5)在DOS系統(tǒng)下，可以直接執(zhí)行的文件的擴展名除。EXE外，還有兩個是___5___。
(6)設(shè)有說明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計算并輸出兩個四位整數(shù)m和n的乘積，乘積分別放在兩個整型變量hi和lo中，hi存放乘積的高4位數(shù)，lo存放乘積的低4位數(shù)。
例如，m=4567，n=5678，則計算結(jié)果為4567*5678=25931426，乘積的前4位數(shù)2593存入hi，乘積的后4位數(shù)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)一個數(shù)如果正好等于其因子之和，就稱其為“完數(shù)”。例如6的因子是1，2，3，并且6=123，所以6是一個“完數(shù)”。下面的程序可以輸出2──n之間的所有完數(shù)之和。其中n為2~1000之間的任意整數(shù)。請將程序填寫完全。
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之間的所有質(zhì)數(shù)。請將程序填寫完全。
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.

轉(zhuǎn)帖于：計算機等級考試_考試吧