基本語句和順序結(jié)構(gòu)

1、一、Pascal 語言1、 結(jié)構(gòu)化程序設計的3種基本結(jié)構(gòu)是_、_、_。2、 表達式PRED(CHR(ORD(E)+1)的值為_。3、 將一萬分之一寫成Pascal數(shù)的形式應為_。4、 Pascal語言的數(shù)據(jù)類型按其特點可分為3大類,即_類型,_類型和_類型。5、 將65526.0034寫成Pascal數(shù)的形式應為_。6、 表達式ORD(6)>=ORD(6)的值是_。二、基本語句和順序結(jié)構(gòu)1、請寫出把256.0賦給整型變量I的賦值語句是_。2、設I為整型變量,L為布爾型變量(l:boolean),odd函數(shù)是判斷一個數(shù)是否為奇數(shù)，如odd(5)=true,語句L:=ODD(I) OR OD

2、D(I+1);執(zhí)行后L的值為_。3、以下程序的運行結(jié)果為_。 PROGRAMEX(OUTPUT); VAR A,B,C,N,SUM:INTEGER; BEGIN N:=126; A:=N DIV 100; B:=(N-A*100) DIV 10; C:=N-A*100-B*10; SUM:=A+B+C; WRITELN(SUM=,SUM:3) END.4、 有以下程序: PROGRAM P1(input,output); VAR ch:char; BEGIN READLN(ch); writeln(pred(pred(ch),pred(ch),ch,succ(ch),succ(succ(ch)

3、 END. 假設輸入字母C,則輸出為_。5、表達式trunc(-sqrt(sqr(17 MOD 5)*2*(15 DIV 2)+sqr(12)的值是_。6、設變量說明如下: VAR ch1,ch2,ch:char; i1,i2:integer; r1,r2:real; 現(xiàn)在要把值A,b,15,128,2.3E-5,-18.96依次賦給變量ch1, ch2,i1,i2,r1,r2,設輸入數(shù)據(jù)格式為: a b l5: 128 2.3E-5 -18.96; 請寫出讀語句_。7、以下程序段的作用是:將讀入的一個三位數(shù)字的正整數(shù)反向輸出。如輸入123,則輸出321,請?zhí)羁? PROGRAM exa(in

4、put,output); VAR m,a,b,c,x:integer; BEGIN readln(m); a:_; b:_ MOD 10; c:m DIV 100; x:a*100+b*10+c; writeln(x) END.三、選擇語句1、閱讀下面程序體,其運行結(jié)果是_。 A:=5;B:=4;C:=3; IF ODD(PRED(4) THEN A:=B+C; A:=A-C; WRITELN(A);2、以下程序段將A,B,C三個數(shù),按由小到大的順序輸出。請在空內(nèi)填上正確的內(nèi)容。 READLN(A,B,C); IF A>B THEN BEGIN TEMP:=A; A:=B; B:=TEM

5、P END; IF_ THEN BEGIN TEMP:=A; A:=C; C:=TEMP END; IF_ THEN BEGIN TEMP:=B; B:=C; C:=TEMP END; WRITELN(A:3,B:3,C:3)3、有下列兩個IF語句: IF A>B THEN X:=1 ELSE X:=2; IF A<=B THEN READ(Y) ELSE READ(Z); 將它們合并成與上面兩個IF語句功能完全相同的一個不嵌套IF語句: IF A>B THEN_; ELSE;_;4、以下程序段執(zhí)行后,DATA的值是_。 L1:=FALSE;L2:=TRUE;L3:=FALS

6、E;DATA:=0; IF L1 THEN DATA:=5 ELSE IF NOT L2 THEN ELSE IF NOT L3 THEN DATA:=10 ELSE DATA:15;5、以下程序從鍵盤讀入一個三位數(shù)的正整數(shù),然后將其反向輸出。如輸入 456,輸出654.請在空白處填入正確內(nèi)容。 PROGRAM TURNOVER(INPUT,OUTPUT); VAR X,Y,A,B,C:INTEGER; BEGIN WRITELN (INPUT A NUMBERX(100<X<=1000):); READLN (X); IF (X<100) OR (X>=1000) T

7、HEN WRITELN(INPUTERROR!) ELSE BEGIN A:=X DIV 100; B:=_; C:=X MOD 10; Y:=_; WRITELN(X,TURNOVERIS:,Y) END END.6、以下程序?qū)崿F(xiàn)了將24小時制表示的時間轉(zhuǎn)換為12小時制表示的時間。如:輸入1325(13點25分),則輸出1:25PM。請在_。處填入正確內(nèi)容。 PROGRAM EXCHTIME(INPUT,OUTPUT); VAR TIME,HOUR,MINUTES:INTEGER; BEGIN READLN(TIME); HOUR:=_ MOD 12; IF HOUR=0 THEN HOUR

8、:=12; WRITE(HOUR:2,:); MINUTES:=_; WRITE(MINUTES:2); IF (TIME<1200) OR (TIME=2400) THEN WRITELN(AM) ELSE WRITELN (PM) END.7、以下程序?qū)崿F(xiàn):輸入一個日期,計算出是星期幾,請在空白處填入正確內(nèi)容。 PROGRAM COUNTWEEK (INPUT,OUTPUT); VAR DAY,MONTH,YEAR,M,Y,SUM,WEEK:INTEGER; LEAP:BOOLEAN; BEGIN READLN(DAY,MONTH,YEAR); Y:=YEAR-1; Y:=Y+Y D

9、IV 4-Y DIV 100+Y DIV 400; CASE MONTH OF 1,10:M:=0; 5:M:=1; 8:M:=2; 2,3,11:M:=3; 6:M:=4; 9,12:M:=5; 4,7:M:=6; END; SUM:=Y+M+DAY;總天數(shù) IF(YEAR MOD 4=0)_ (YEAR MOD 100<>0)_ (YEAR MOD 400=0)AND(MONTH>2)THEN SUM:=SUM+1;閏年加一天 WEEK:=SUM MOD 7; CASE_ OF 0:WRITELN(SUNDAY); 1:WRITELN(MONDAY); 2:WRITELN

10、(TUESDAY); 3:WRITELN(WEDNESDAY); 4:WRITELN(THURSDAY); 5:WRITELN(FRIDAY); 6:WRITELN(SATURDAY) END； END.8、下列程序段計算1100中既不能被3整除,也不能被4整除的所有整數(shù)之積,請?zhí)顚懲耆?VAR P，I：INTEGER； BEGIN p:=1；FOR i:1 TO 100 D0 IF (i MOD 30) AND (i MOD 4<>0) THEN_; END.9、本程序是在3個整數(shù)中找出最大的數(shù),并輸出到屏幕上。分析下面的程序,填上適當?shù)膬?nèi)容。 PROGRAM exa(inpu

11、t,output); VAR a,b,c,largest:integer; BEGIN writeln(input a,b,c=); readln(a,b,c); IF ab THEN largest_ ELSE largest_; IF c_ THEN largest:c; write1n (The1 argest number is,largest) END.四、循環(huán)語句1、設A=TRUE,B=FALSE,I=1,且C為布爾類型變量,則循環(huán)語句FOR C:=B TO A DO I:=I+2;執(zhí)行后,變量I的值為_。2、以下程序段計算150中既不能被3整除也不能被5整除的所有整數(shù)之積。請在空

12、格內(nèi)填入適當內(nèi)容。 R:=1; FOR I:= 1 TO 50 DO IF(I MOD 3<>0) AND (I MOD 5<>0) THEN_;3、以下程序段用以找出滿足 的最大整數(shù)N,其中A,B都是正整數(shù),且B>1。請在空格內(nèi)填上正確的內(nèi)容。 READLN(A,B); N:=0;MULT:=1; WHILE MULT<=A DO BEGIN N:=N+1; MULT:=_ END; _ WRITELN(LARGESTNIS:,N:1)4、以下程序?qū)崿F(xiàn)從鍵盤讀入10個無序數(shù),去掉一個最大數(shù)和一個最小數(shù)然后求平均值,請在_處填入正確內(nèi)容。 PROGRAM C

13、OUNTAVE(INPUT,OUTPUT); VAR I,MAX,MIN,X,SUM:INTEGER; AVE:REAL; BEGIN READLN(X); MAX:=X;MIN:=X;SUM:=X; FOR I:=1 TO 9 DO BEGIN READLN(X); SUM:=SUM+X; IF X<MIN THEN _ ELSE IF X>MAX THEN _ END; SUM:SUM-MAX-MIN; AVE:=SUM/8.0; WRITELN(THE AVERAGEIS:,AVE:5:1)END.5、 下面語句執(zhí)行的循環(huán)次數(shù)是_。 T:=7; REPEAT T:=2*T-3

14、; UNTIL T<>0;6、設CH為字符型變量,NUM為整型變量,若輸入數(shù)據(jù)為:121 123<回車>執(zhí)行以下程序段的結(jié)果為_。 NUM:=0; READ(CH); WHILE (CH>=0) AND (CH<=9) DO BEGIN NUM:=10*NUM+(ORD(CH)-ORD(0); READ(CH) END; WRITELN(NUM);7、以下程序用以找出被2,3,5除余數(shù)為1的前10個自然數(shù),請在_處填入正確內(nèi)容。 PROGRAM TENNUMBER (OUTPUT); VAR NUM,COUNT:INTEGER; BEGIN COUNT:=0

15、;NUM:=_ REPEAT NUM:=_ IF(NUM MOD 2=1) AND (NUM MOD 3=1) AND (NUM MOD 5=1) THEN BEGIN WRITE(NUM:4); COUNT:=COUNT+1 END; UNTIL_ WRITELN END.8、以下循環(huán)語句所執(zhí)行的循環(huán)次數(shù)為_。 L1:=TRUE;L2:=FALSE; FOR I:=L1 TO L2 DO WRITELN(I);9、設有說明: VAR SUM,N,M,I:INTEGER; SUM:=0; READ(N); FOR I:=1 TO N DO BEGIN READ(M); IF ODD(M) TH

16、EN SUM:=SUM+1 ELSE SUM:=SUM+M DIV 2; END; WRITELN(SUM);10、以下程序的運行結(jié)果為_。 PROGRAM EX(OUTPUT);VAR X,Y:INTEGER; BEGIN X:=0;Y:=1; REPEAT X:=X+Y; Y:=Y+1; UNTIL X>=10; WRITELN (X:3,Y:3) END.11、以下程序段的執(zhí)行結(jié)果為_。 FOR I:=7 DOWNTO 3 DO CASE I DIV 2 OF 1,3:WRITE(A); 2:WRITE(B) END;12、以下程序的運行結(jié)果為_。 PROGRAM EX(INPUT

17、,OUTPUT); VAR X,Y:INTEGER; BEGIN X:=1; WHILE X>0 DO BEGIN READ(X);READ(Y); X:=X-Y; WRITE(X:2); END; WRITELN END. 運行時輸入:210 155<回車>13、下面程序的運行結(jié)果是_。 PROGRAM lcd(output); VAR M,n:Integer; BEGIN M:=14; N:=63; WHILE m<>n DO BEGIN WHILE m>n DO M:=m-n; WHILE n>m DO N:=n-m; END; Writeln(

18、m); END.14、以下程序段實現(xiàn)計算公式: 請在空白處填上正確的內(nèi)容。 I:=1; REPEAT I:=I+1; SUM:=SUM+_ UNTIL_ WRITELN (SUM=,SUM:6:4)15、以下程序的運行結(jié)果為_。 PROGRAM EX (OUTPUT); VAR X,K:INTEGER; BEGIN X:=5; FOR K:=1 TO 10 DO X:=X+K; WRITELN(K:4,X:4) END.16、下面Pascal循環(huán)語句所執(zhí)行的循環(huán)次數(shù)是_。 N:=1 REPEAT WRITELN(TESTING.); N:=N+2; UNTILN=10;17、以下程序段用以找出

19、乘積為399的兩個相鄰奇數(shù),請在空白填上正確的內(nèi)容。 N:=1; WHILE_<399 DO N:=N+2; IF_=399 THEN WRITELN(N:3,N+2:3) ELSE WRITELN(NOFOUND)18、下面Pascal循環(huán)語句所執(zhí)行的循環(huán)次數(shù)是_。 X:=32; Y:=2; WHILE Y<=32 DO Y=Y+Y;19、若運行時輸入以下指定數(shù)據(jù),則程序的運行結(jié)果為_。 PROGRAM EX(INPUT,OUTPUT); VAR NUM:INTEGER; CH:CHAR; BEGIN REPEAT READ(CH) UNTIL(CH<>); NUM:

20、=0; REPEAT IF(CH>=0) AND (CH<=9)THEN NUM:=16*NUM+ORD(CH)-ORD(0) ELSE IF(CH>=A) AND (CH<=F)THEN NUM:=16*NUM+ORD(CH)-ORD(A)+10 ELSE WRITELN(INPUT ERROR!); READ(CH) UNTIL NOT(CH>=0)AND(CH<=9)OR(CH>=A)AND(CH<= F); WRITELN(NUM:5) END. 輸入數(shù)據(jù)(第一列開始):1C<回車>20、本程序是用來輸入一組學生的成績(當成績

21、為負表示輸入結(jié)束),并按成績059、6079、80100分為三檔,統(tǒng)計并輸出三檔次人數(shù)及總?cè)藬?shù)。閱讀下面的程序,在空白處填上適當?shù)膬?nèi)容。 PROGRAM examl(input,output); VAR p,n1,n2,n3,sum,score:integer; BEGIN n1:=0;n2:=0;n3:0; sum:=0; REPEAT writeln(please input score:); readln(score); IF score>=0 THEN BEGIN IF_80 THEN P:1 ELSE IF(2)_60 THEN p:2 ELSE p:3; sum:sum1;

22、CASE(3)_OF 1:n1:n1+1; 2:n2:n2+1; 3:n3:n3+1 _END; _ writeln(the score059:,n3); writeln(the score6079:,n2); writeln(the score80100:,nl); writeln(the sumis,sum) END.21、 下面程序執(zhí)行后顯示abab,請?zhí)羁铡?PROGRAM p(output); VAR a:(r1,r2,r3,r4); BEGIN a:=r1; WHILE ar4 DO BEGIN CASE a OF _:write(a); _:wr1te(b); END; a:=_

23、 END; writeln END.22、 下列程序段計算1100中既不能被3整除,也不能被4整除的所有整數(shù)之 積。請?zhí)顚懲耆?p:=1; FOR i:=1 TO 100 DO IF(i MOD 30)AND(i MOD 40)THEN_; Writeln (p)23、 從鍵盤輸入兩個數(shù)x1,x2,判斷它們是否互質(zhì)。判斷兩數(shù)是否互質(zhì)的方法是設大數(shù)為x1,小數(shù)為x2,如果x1x2為整數(shù),則非互質(zhì);如果x2和x1能同時被2x22間任一整數(shù)整除,則x1和x2也非互質(zhì),其他情況均為互質(zhì)。 PROGRAM sj(input,output); VAR x1,x2,t,n,i:integer; yes:b

24、oolean; BEGIN write(please input x1,x2:); readln(x1,x2); IF_THEN BEGIN t:=x1;x1:=x2;x2:=t END; yes:=true; IF(xl MOD x2)=0 THEN yes:=false ELSE BEGIN n:=x2 DIV 2; FOR i:=2 TO _DO IF_THEN yes:=false END; IF_THEN writeln(they are mutual prime numbers)x1,x2互質(zhì) ELSE writeln(they are not mutua1 prime numbe

25、rs)x11,x2非互質(zhì) END.25、有一個數(shù)列,其第1和第2個數(shù)都是大于0的一位整數(shù),將這兩個數(shù)相乘得乘積x,若x10,則x為數(shù)列的第3個數(shù);若x>=10,則把x的十位數(shù)作為數(shù)列的第3個數(shù),x的個位數(shù)作為數(shù)列的第4個數(shù),再把已形成的數(shù)列的最后兩個數(shù)相乘,按上述規(guī)則構(gòu)成后面的數(shù),依此類推。例如若前兩個數(shù)是6,3,則數(shù)列為: 6,3,1,8,8,6,4,2,4,8,3,2,6,1,2,2,4,8,3,2,6. 下面的程序以6,3為前兩個數(shù),產(chǎn)生并輸出此數(shù)列的前n個數(shù)(n由鍵盤輸入)。請?zhí)羁胀瓿伞?PROGRAM p(input,output); BEGIN readln(n); a:=6

26、;b:=3;k:=2; write(a:3,b:3); REPEAT x:=a*b; IF x>=10 THEN BEGIN a:=_; b:=_; k:=k+2; write(a:3); IF_THEN write(b:3); ELSE BEGIN a:=b;b:=x;k:=k+1; write(x:3); END UNTIL_ writeln END.26、求具有下列兩個性質(zhì)的最小自然數(shù)n:(1)n的個位數(shù)是6;(2)如果將n的個位數(shù)字6移到其余各位數(shù)字之前,所得新數(shù)是n的4倍。 PROGRAM ex (output); VAR n,m6,temp:integer;BEGINn:=6

27、;temp:=0; WHILE(temp<>4*n) AND (n<maxint-10) DO BEGIN n:=n+10;m6:=6;temp:=n; WHILE_DO BEGIN temp:=_; m6:=m6*10 END; temp:=m6+n DIV 10 END; IF_ THEN writeln(Thenumberis,n:1) ELSE writeln(The number is too larger or noneexistent) END.27、本程序用來找出3100之間的全部素數(shù),每行輸出5個素數(shù)。請分析下面的程序并填空。 PROGRAM exa(inp

28、ut,output); VAR i,j,m,count:integer, BEGIN count:0; FOR i:3 TO 100 D0 IF(i MOD 2)_0 THEN BEGIN m:=1; FOR j:2 TO trunc(sqrt(i) DO IF(i MOD j)0 THEN m:=0; IF m1 THEN BEGIN count:count1; IF(count MOD 5)=0 THEN _(i:5) ELSE _(i:5) END; ENDEND.五、枚舉和子界1、設有如下的類型定義和變量說明: TYPE COLOR=(RED,YELLOW,BLUE,GREEN,BLA

29、CK,WHITE,ORANGE); VAR FLAG:COLOR; 再執(zhí)行語句:FLAG:=BLACK; 表達式CHR(ORD(PRED(FLAG)+ORD(A)的值是_。2. 以下程序的運行結(jié)果為_。 PROGRAM EX(OUTPUT); TYPE COLOR=(RED,WHITE,BLUE,GREEN,PURPLE,BLACK); VAR FLOWER,SKY:COLOR; BEGIN IF ORD(SUCC(RED)<>2 THEN BEGIN FLOWER:=RED; IF SUCC(BLUE)=GREEN THEN SKY:=BLUE ELSE FLOWER:=WHIT

30、E END ELSE BEGIN SKY:=WHITE; FLOWER:=PRED(BLZCK) END; CASE SKY OF BLUE:WRITELN(BLUE); WHITE:WRITELN(WHITE) END CASE FLOWER OF RED:WRITELN(RED); WHITE:WRITELN(WHITE); PURPLE:WRITELN(PURPLE) END END.3. 請將下面程序補充完整。 PROGRAM WEEKDAYS(OUTPUT); VAR WD:(SUN,MON,TUE,WED,THU,FRI,SAT); BEGIN_ CASE_OF SUN:WRITE

31、LN(SUNDAY); MON:WRITELN(MONDAY); TUE:WRITELN(TUESDAY); WED:WRITELN(WEDNESDAY); THU:WRITELN(THURSDAY); FRI:WRITELN(FRIDAY); SAT:WRITELN(SATURDAY) _ END.4. 設有如下的類型定義和變量說明: TYPE COLOR=(RED,YELLOW,BLUE,GREEN,BLACK,WHITE,ORANGE); VAR I:INTEGER; FLAG:COLOR; 并且 FLAG:=BLUE; 則語句FOR I:=ORD(FLAG)TO 5 DO WRITEL

32、N(HELLO);將執(zhí)行循環(huán)體_次。5. 由5個字符組成的標識符,規(guī)定其第14個字符為小寫元音字母(a,e,i,o,u),第五個字符為09之間的數(shù)字字符。本程序是用來計算這樣的標識符有多少種不同排法。請?zhí)羁胀瓿稍摮绦颉?PROGRAM exam4(input,output); TYPE ch:(a,e,i,o,u); num:0.9; VAR c1,c2,c3,c4,c5:_ n0,n9:num; count:integer; BEGIN c5:=u n9:=9 count_ FOR c1:=a TO c5 DO FOR c2:a TO c5 DO FOR c3:a TO c5 DO FOR

33、c4:a TO c5 DO FOR n0:0 TO_ count_; writeln(count) END.六、數(shù)組1. 有如下程序 PROGRAM LANG(INPUT,OUTPUT); CONST C=Pascal; VAR A:PACKED ARRAY1.6 OF CHAR; I:INTEGER; BEGIN A:=C; FOR I:=3 TO 6 DO READ(AI); WRITELN(A) END. 執(zhí)行時輸入FORTRAN<回車>,輸出結(jié)果為_。2. 設有TYPE MAT=ARRAY1.5,1.5 OF REAL; VAR M:MAT; 用以下過程求M矩陣的轉(zhuǎn)置矩陣M

34、T,請在空白內(nèi)填入適當內(nèi)容。 PROCEDURE TRANSFOR(M:MAT;VAR MT :MAT); VAR I,J:INTEGER; BEGIN FOR I:=1 TO 10 DO FOR J:=1 TO 10 DO MTI,J:=_ END;3. 若運行時輸入以下指定數(shù)據(jù), 則程序的運行結(jié)果為_。 PROGRAM EX (INPUT,OUTPUT); CONST N=6; TYPE COLARR=ARRAY 1.N OF INTEGER; VAR A:COLARR;I,J,P,T:INTEGER; BEGIN FOR I:=1 TO N DO READ(AI); READLN; FO

35、R J:=1 TO N-1 DO BEGIN P:=J; FOR I:=J TO N DO IF AI<AP THEN P:=I; T:=AP;AP:=AJ;AJ:=T; END; FOR I:=1 TO N DO BEGIN WRITE(AI:2); IF (I MOD 3 )=0 THEN WRITELN END; END. 輸入數(shù)據(jù):7 2 5 1 9 4<回車>4. 設有二維數(shù)組AR: 1 2 3 10 2 4 6 20 10 20 30 100 對該二維數(shù)組元素求和的程序段如下: Sum:=0; FOR I:=1 TO_DO FOR j:=_TO 10 DO Sum

36、:=sum+_; Writeln(The result is:,_ )5. 以下程序?qū)崿F(xiàn)從終端按行讀入一個4*4的二維數(shù)組,分別求出其主,次對角線上元素之和,其中變量SUMZ用從累加主對角線元素的和,SUMC用以累加次對角線元素之和。請在空白處填入正確內(nèi)容。 PROGRAM EX(INPUT,OUTPUT); VAR A:ARRAY 1.4,1.4 OF INTEGER; N,M,SUMZ,SUMC:INTEGER; BEGIN FOR N:=1 TO 4 DO FOR M:=1 TO 4 DO READLN(1)_); SUMZ:=0;SUMC:=0; FOR N:=1 TO 4 DO BE

37、GIN SUMZ:=SUMZ+(2)_; M:=(3)_; SUMC:=SUMC+AN,M END; WRITELN(SUMZ:3,SUMC:3) END. 6. 若運行時輸入以下指定數(shù)據(jù), 則程序的運行結(jié)果為_。 PROGRAM EX(INPUT,OUTPUT); VAR I,J,N,TEMP:INTEGER; A:ARRAY1.100 OF INTEGER; FLAG:BOOLEAN; BEGIN READ(N); FOR I:=1 TO N DO READ(AI); READLN; FLAG:=TRUE;I:=1 WHILE(I<=N-1) AND FLAG DO BEGIN FL

38、AG:=FALSE; FOR J:=1 TO N-1 DO IF AJ>AJ+1 THEN BEGIN TEMP:=AJ; AJ:=AJ+1; AJ+1:=TEMP; FLAG:=TRUE END; I:=I+1 END; FOR I:=1 TO N DO WRITE(AI:2); WRITELN END. 輸入數(shù)據(jù):6 1 7 2 3 6 7<回車> 7. 程序COUNT用以統(tǒng)計一個句子中的詞數(shù),句子放在字符數(shù)組C中,長度不超過80,以.表示結(jié)束。要求打印出詞數(shù)及每個詞的長度(字符個數(shù)),允許空語句。 例:語句為: THIS IS A PROGRAM. 輸出為:WORD N

39、O.1 LENGTH=4 WORD NO.2 LENGTH=2 WORD NO.3 LENGTH=1 WORD NO.4 LENGTH=7 NUMBER OF WORDS IS 4 請在空白處填入正確內(nèi)容。 PROGRAM COUNT (INPUT,OUTPUT); VAR C:PACKED ARRAY 1.80 OF CHAR; I,K,L:INTEGER; BEGIN WRITE(INPUT A STRING:); I:=0; WHILE NOT EOLN DO BEGIN I:=I+1; READ(CI); END; READLN; K:=0;I:=1; WHILE CI<>

40、. DO BEGIN WHILE CI= DO I:=I+1; L:=0; WHILE (CI<> ) AND (CI<>.) DO BEGIN I:=I+1; (1)_ END; IF L>0 THEN BEGIN (2)_; WRITELN(WORD NO.,K:2,LENGTH=,L:2) END END; IF K>0 THEN WRITELN(NUMBER OF WORDS IS ,K:2) ELSE WRITELN(NO WORD IN THE STATEMENT) END.8. 下面程序用冒泡排序法對有10個數(shù)據(jù)元素的數(shù)組進行排序,數(shù)據(jù)由鍵盤輸

41、入,并將排序后的結(jié)果輸出。請將程序補充完整。 PROGRAM EX(INPUT,OUTPUT); CONST N=10; TYPE COLARR=ARRAY1.N OF INTEGER; VAR A:COLARR ; T,I,J:INTEGER; BEGIN WRITELN(INPUT 10 INTEGER NUM:); FOR I:=1 TO N DO READ(AI); READLN; FOR J:=1 TO (1)_ DO FOR I:=1 TO (2)_ DO IF AI>AI+1 THEN BEGIN _; END; WRITELN(OUTPUT :); FOR I:=1 TO

42、 N DO WRITE(AI:40); WRITELN END.9. 若運行時輸入以下指定數(shù)據(jù), 則程序的運行結(jié)果為_。 PROGRAM EX (INPUT,OUTPUT); TYPE ARR=ARRAY 1.8 OF INTEGER; VAR A:ARR; I,N:INTEGER; PROCEDURE SELECT (VAR B:ARR;VAR N:INTEGER); VAR I,J:INTEGER; BEGIN I:=0; FOR J:=1 TO N DO IF BJ MOD 2 =0 THEN BEGIN I:=I+1; BI:=BJ END; N:=1 END; BEGIN N:=8;

43、 FOR I:=1 TO N DO READ(AI); READLN; SELECT(A,N); FOR I:=1 TO N DO WRITE(AI:3); WRITELN END. 輸入數(shù)據(jù):1 2 3 4 5 6 7 8<回車>10. 下面是輸入一字符行然后按相反順序輸出的程序,請將程序填寫完整。 PROGRAM ReveseLine(Input,Output); CONST MaxLineLength=80; VAR line:ARRAY1.MaxLineLength OF Char; Count:0.MaxLineLength; Pos:1.MaxLineLength; BEGIN Count:=_; WHILE NOT Eoln DO BEGIN Count:=count+1; Read(_ ) END; FOR pos:= _ DOWNTO _ DO Write _; Writeln END. 11. 下面的程序可以輸出下面圖示結(jié)果,請?zhí)羁胀瓿伞?0 0 0 1 0 0 0 0 0 1 0 1 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 1 PROGRAM EX(OUTPUT); TYPE ARR=ARRAY1.4,1.7 OF INTEGER; VAR A:ARR; X,Y:INTEGER;