剡山小學(xué)信息技術(shù)興趣小組測試題

PAGEPAGE213剡ft小學(xué)信息技術(shù)社團選拔題（一）知識準(zhǔn)備：計算機編程時用+-*/分別表示加減乘除，運算規(guī)則跟數(shù)學(xué)課的規(guī)則相同。另外，可以用div表示兩數(shù)相除時的商，用mod表示兩數(shù)相除時的余數(shù)。例如：15÷7=2……1，則15div7的值為2，而15mod7的值為1。合表示數(shù)。例如：a:=10,a10；a3:=5+2,a37。根據(jù)以上知識，完成下面內(nèi)容：1、A:=20;B:=10;C:=7;D:=13-24/8;E:=3*5+4/2;F:=(7DIV3)*5;G:=11+26MOD4;H:=342*33443344DIV342+(33443344MOD342);(注意計算方法)經(jīng)過上面的運算之后A的值 B的值 C的值 D的值 ，E的值，F(xiàn)的值為 ，G的值，H的值2、A1:=30;A2:=15;A3:=A1+A2;A4:=A3MODA1+10;A1的值，A2的值，A3的值，A4的值。3、A:=400;B:=100;C:=(A+B)DIV2;C的值 4、A:=200;B:=50;C:=(A+B)-(A-B);C的值 5、A:=100;B:=ADIV2;C:=(A+B)*BDIV2;C的值 6、A:=100;B:=80;C:=50;D:=(ADIVC)+(BMODC)*(AB);D的值為 7、A:=165;B:=156;D:=A;E:=B;C:=516;F:=D;G:=C;H:=EF的值為 ，G的值，H的值為 。8、N:=126;A:=NDIV100;B:=(N-A)DIV10;C:=N-100+B*10;SUM=A+B+C;A的值，B的值，C的值，SUM的值。9、S1:=4;S2:=9;S1:=S1+1;S2:=S2*3;最后S1的值，S2的值為 。10、A:=5;B:=6;A:=A+1;B:=B+1;最后A的值，B的值。11、A:=5;B:=6;A:=A+1;B:=A+1;最后A的值為 ，B的值。12、A:=5;B:=6;B:=A+1;A:=A+1;最后A的值，B的值.13、A:=10;B:=20;A:=A+B;B:=A+B;最后A的值，B的值.14、A:=10;B:=20;B:=B+A;B:=B+A;最后A的值，B的值.15、A:=10;B:=20;B:=A*3;A:=A+B;最后A的值，B的值.16、A:=10;B:=20;A:=BDIVA:=BDIV最后A的值，B的值.17、A:=10;B:=20;A:=A+B;B:=A*3;最后A的值，B的值.18、A:=2;B:=3;A:=A*B;B:=ADIVB;A:=ADIV最后B的值，A的值。19、X:=20;X:=X+X;Y:=X+X;X:=X+Y;Y:=X+Y;最后X的值，Y的值。20、A:=10;B:=20;C:=A;A:=B;B:=C;最后A的值，B的值。21、A:=10;B:=20;A:=A+B;B:=A-B;A:=A-B;最后A的值，B的值.22、A:=10;B:=12;H:=8;A:=A+B;B:=A-B;A:=A-B;C:=(A+B)*2；S:=(A+B)*HDIV2;最后A的值，B的值，C的值，S的值為 。23、A:=100;B:=ADIV4;C:=ADIVD:=BDIVE:=C;C:=C*D;A:=E+1;E:=A+1;D:=(C+1)+(E+1);E:=100;最后A的值，B的值，C的值，D的值,E的值。剡ft小學(xué)信息技術(shù)社團選拔題（二）if語句是由一個布爾表達式和兩個供選擇的操作序列組成。有兩種形式的IF語句if <布爾表達式> then語句>；if <布爾表達式> then語句1>else<語句2>；thenelse4個例題，體會不同之處。X:=1;Y:=0;IFX>0THENY:=1;X1X>0THEN1。X:=1;Y:=0;IFX>2THENY:=1;X1X>2THEN0。X:=1;Y:=0;IFX>0THENY:=1ELSEY:=2;分析：因為X的值為1，所以布爾表達式X>0的值為真，所以執(zhí)行THEN后面的Y:=1,不執(zhí)行ELSE后面的Y:=2,Y的值最終為1；X:=1;IFX>2THENY:=1ELSEY:=2;Y:=Y*3;分析：因為X的值為1，所以布爾表達式X>2的值為假，所以不執(zhí)行THEN后面ELSEY:=Y*3,Y完成下面各題：1A:=10;IF10<20THENA:=1;A的值最后 2D:=25DIV3;IF10>DTHEND:=10;D的值最后 3A:=100DIV6;B:=AMOD4;IF(AMOD5)<(B*10)THENA:=AMOD4;A的值最后 4、A:=33MOD4;B:=25MOD7;IFA>BTHENC:=B+AELSEC:=B-A;C的值為 。5A:=40;B:=3*8;IF(A/2)>(B-16)THENC:=12ELSEC:=8;IFB>CTHENB:=B-16ELSEA:=A/2;A的值B的值C的值為 6X:=9;Y:=1;IFX>10THENY:=2*X;Y:=3*Y;Y的值。7、X:=11;Y:=1;IFX>10THENY:=2*X;Y:=3*Y;Y的值。8、X:=85;IFX>60THENTOT:=3ELSEIFX>80THENTOT:=2;IFX>90THENTOT:=1;TOT的值最后(要判斷3次)9、X:=85;IFX>90THENTOT:=1;IFX>80THENTOT:=2;IFX>60THENTOT:=3ELSETOT:=4;TOT的值最后（要判斷3次）10、M:=7;N:=12;A:=NMODM;IF(NDIVM)>2THENA:=M-AELSEA:=A+N;A的值。11、A1:=10; A2:=15; A3:=12; IFA1>A3THENA1:=A1+A2;A2:=A1+A2;IFA3<A2THENA3:=A4+(A3DIV3);IFA4>(A3+A2)THENA4:=A3+(A4DIV3)ELSEA4:=A1+A2;A1的，A2的，A3的，A4的值為 。12A1:=1; A2:=2;A3:=A1+A2;A1:=A2; A3:=A1+A2;A1:=A2; A3：=A1+A2;A1的，A2的，A3的 13A:=10;IF 5 THENB:=1ELSEB:=2;要使B的值最后為2，里面應(yīng) 14X:=11;Y:=6;IF10THENY:=3*Y;要使Y的值最后為36， 里應(yīng)該 15;IFX>5THENY:=3ELSEY:=4;IFX>9THENY:=1;如果Y的值最后為里可以填哪 16AA最后的值，B最后的值為 17Y的值 18如果Y最后的值為2，X開始可以是哪 如果Y最后的值為4，X開始又可以是哪 19、IFX>5THENIFX<8THENY:=3ELSEELSEIFX<3THENY:=1ELSEY:=2;X1時，Y。X4時，Y。X的7時，Y。X的值10時，Y20、A:=10;B:=25;C:=10;IF(A+B)>CTHENIF(A+C)>BTHENIF(B+C)>AELSEX:=B+C-AELSEX:=A-B-CELSEX:=B-A-CELSEX:=C-A-B;X的值。剡ft小學(xué)信息技術(shù)社團選拔題（三）知識準(zhǔn)備：for語句用來描述已知重復(fù)次數(shù)的循環(huán)結(jié)構(gòu)。for語句形式for控制變量:＝初值to 終值 do循環(huán)語句；{循環(huán)體}for若是，則執(zhí)行循環(huán)體，在執(zhí)行了循環(huán)體之后，自動將控制變量的值改為它的后繼值，并forfor語句之后的語句。例1：a:=0;fori:=1to5doa:=a+1;分析：for循環(huán)里，控制變量為i，i初始值為1，終值為5，循環(huán)一次，i的值就加112345，循環(huán)體a:=a+1次。a01，所以循環(huán)結(jié)束時，a5。例2：a:=0;b:=0;循環(huán)體由2句或2beginend括起來。for循環(huán)體由2句或2beginend括起來。a:=a+1;b:=b+2;end;bi65beginend2個語句組成，先執(zhí)行a:=a+1,b:=b+2,51，b2，a5，b10。完成下面各題：1、a:=0;fori:=1to10a:=a+1;結(jié)束時a的值。2、a:=10;fori:=6to14a:=a+1;結(jié)束時a的值。3、a:=10;fori:=1to10a:=a+3;結(jié)束時a的值。4、a:=10;b:=11;fori:=6toba:=a+3;結(jié)束時a的值。5、a:=0;b:=1;c:=7;fori:=atoc-4dob:=b*2;結(jié)束時b的值。6、a:=0;b:=1;c:=2;fori:=ctoc*2dobegina:=a+1;b:=b*2;end;結(jié)束時a的值，b的值。7、a:=0;b:=1;c:=2;fori:=ctoc*2dobegina:=a+1;b:=b+a;end;結(jié)束時a的值，b的值。8、a:=0;b:=0;fori:=1to10begina:=a+1;if(amod2)>0thenb:=b+1;end;結(jié)束時a的值，b的值。9、a:=1;fori:=1to5doa:=a+1;b:=1;forj:=1to3dob:=b+1;結(jié)束時a的值，b的值。10、a:=1;fori:=1to5a:=a+1;forj:=1to3b:=a*3;結(jié)束時a的值，b的值。11、a:=1;fori:=1to5a:=a+1;forj:=1to3dob:=b*2+a;結(jié)束時a的值，b的值。12、a:=1;fori:=1to5a:=a+1;forj:=1to3dob:=a*2+b;結(jié)束時a的值，b的值。13、a:=1;b:=1;c:=5;fori:=1to5doa:=a+1;forj:=a-2tocdob:=b+2;結(jié)束時a的值，b的值。14、a:=1;fori:=1to5a:=a+1;forj:=a-2toab:=b*2+a;結(jié)束時a的值，b的值。15、a:=1;fori:=1to5a:=a+1;forj:=a-2toab:=a*2+b;結(jié)束時a的值，b的值。16、a:=0;b:=0;fori:=1to3dobeginforj:=1to2doa:=a+1;end;結(jié)束時a的值，17、a:=3;b:=6;c:=1;fori:=atobdobeginforj:=bto6+cdoc:=c+1;end;結(jié)束時c的值 18、a:=0;b:=0;fori:=1to3dobegina:=a+1;forj:=1to2dob:=b+1;end;結(jié)束時a的值，b的值19、a:=0;b:=0;fori:=1to3dobeginforj:=1to2doa:=a+1;fork:=1to3b:=b+1;end;結(jié)束時a的值，b的值。20、a:=0;b:=0;fori:=1to3dobegina:=a+1;forj:=1toadob:=b+1;end;結(jié)束時b的值。21、a:=0;b:=0;fori:=1to3dobegina:=a+1;forj:=1to2dob:=b+a;end;結(jié)束時b的值。22、a:=0;b:=0;fori:=1to3dobegina:=a+1;forj:=1toadob:=b+a;end;結(jié)束時b的值。23、x1:=3;x2:=5;fori:=1to5dobeginx:=x1+x2;x1:=x2;x2:=x;end;結(jié)束時x的值。ASCII表為保證人類和設(shè)備，設(shè)備和計算機之間能進行正確的信息交換，人們編制的統(tǒng)一的信息交換代碼，這就是ASCII碼表，它的全稱是“美國信息交換標(biāo)準(zhǔn)代碼”。ASCII值控制字符ASCII值控制字符ASCII值控制字符ASCII值控制字符0NUT32(space)64@96、1SOH33！65A97a2STX34”66B98b3ETX35#67C99c4EOT36$68D100d5ENQ37%69E101e6ACK38&70F102f7BEL39,71G103g8BS40(72H104h9HT41)73I105i10LF42*74J106j11VT43+75K107k12FF44,76L108l13CR45-77M109m14SO46.78N110n15SI47/79O111o16DLE48080P112p17DCI49181Q113q18DC250282R114r19DC351383X115s20DC452484T116t21NAK53585U117u22SYN54686V118v23TB55787W119w24CAN56888X120x25EM57989Y121y26SUB58:90Z122z27ESC59;91[123{28FS60<92\124|29GS61=93]125}30RS62>94^126~31US63?95—127DEL信息技術(shù)社團培訓(xùn)資料一、Pascal簡介PascalNiklausWirth教授于六十PascalDOS查錯能力強。對于程序設(shè)計的初學(xué)者，Pascal語言有益于培養(yǎng)良好的程序設(shè)計風(fēng)格和習(xí)慣。IOI(國際奧林匹克信息學(xué)競賽)PascalNOI(全國奧林匹克信息學(xué)競賽)PascalPascal語言也常常被用作學(xué)習(xí)數(shù)據(jù)結(jié)構(gòu)與算法的教學(xué)語言。在Pascal問世以來的三十余年間，先后產(chǎn)生了適合于不同機型的各種各樣版本。其中影響最大的莫過于TurboPascal系列軟件和FreePascal系列軟件。TurboPascal16FreePascal32/64FreePascal2.0.4版本。二、Pascal程序的組成1.1SprogramArea;{程序首部，可不寫，寫僅起文檔作用}{下面是說明部分}vara,b,s:integer;{變量說明}程序體{下面是執(zhí)行部分}程序體begin {執(zhí)行部分開始readln(a,b);s:=a*b;writeln('s=',s);end. {執(zhí)行部分開始}上面只是一個例子，完整的一段程序包括：的是program的是programvarfunctionprocedureprogramvar{變量說明；}begin{語句1；語句2；……語句n}end.uses{已知單元說明；}label{標(biāo)號說明；}const{常量說明；}type{類型說明；}var{變量說明；}function{函數(shù)說明；}procedure{過程說明；}begin{1；……end.劃線的單詞具有特定的含義，不能改，甚至不能改變它們在程序中的位置和順序，這點很重要，請注意。三、看懂一個程序的必備知識基礎(chǔ)：之后，可以任意使用（注意是在遵循一定的規(guī)則后。保留字(關(guān)鍵字)PascalPascal語言的保留字:，WHILE，WITH，EXPORTS，SHR，STRING，ASM，OBJECT，UNIT，INTERFACE，LIBRARY，XOR，SHL標(biāo)識符標(biāo)識符也具有特定含義，一類叫標(biāo)準(zhǔn)標(biāo)識符，另一類叫用戶自定義標(biāo)識符標(biāo)準(zhǔn)標(biāo)識符：指Pascal語言預(yù)先定義的標(biāo)識符，具有特殊含義，用戶絕對不能改變單詞字母甚至出現(xiàn)的位置。以下列舉了TurboPascal語言部分常用的 標(biāo)準(zhǔn)表識符標(biāo)準(zhǔn)常量FalseMaxintTrue標(biāo)準(zhǔn)類型BooleanCharRealInteger標(biāo)準(zhǔn)函數(shù)AbsArctanChrCosEofEolnExpLnOddOrdPredRoundSinSqrSqrtSuccTrunc標(biāo)準(zhǔn)過程DisposeGetNewPackPagePutRead ReadlnResetRewriteUnpackWriteWriteln標(biāo)準(zhǔn)文件InputOutput構(gòu)造類型用戶自定義標(biāo)識符：遵循下面規(guī)則的前提下由你來根據(jù)需要定義（取名。構(gòu)造類型（<……63個字符，并且大小寫等效，但選用的標(biāo)識符不能和上面的保留字和標(biāo)準(zhǔn)標(biāo)識符相同。1programvarintegerbeginreadlnwritelnendsab就可以給一個人取任意的名字。四、Pascal數(shù)據(jù)類型指針類型數(shù)據(jù)類型指針類型數(shù)據(jù)類型簡單類型自定義類型（枚舉類型和子界類型）數(shù)組類記錄類集合類型文件類型整型實型布爾型簡單類型自定義類型（枚舉類型和子界類型）數(shù)組類記錄類集合類型文件類型整型實型布爾型字符型有序類型，除實型和int64外具體解釋：TurboPascalshortint（短整型、integer（整型longint（長整型、byte（字節(jié)型）和word（字類型取值范圍以及所占用的內(nèi)存字節(jié)數(shù)。Int64-Int64-9223372036854775808…92233720368547758078類型數(shù)值范圍占字節(jié)數(shù)有效位數(shù)shortint-128~1271帶符號8位integer-32768~327672帶符號16位longint-2147483648~21474836474帶符號32位byte0~2551帶符號8位word0~655352帶符號16位此外，還有l(wèi)ongword,Qword類型，不常用。實型TurboPascal基本實型單精度實型雙精度實型擴展實型裝配實型。每一種類型規(guī)定了相應(yīng)的實數(shù)取值范圍、所占用的內(nèi)存字節(jié)數(shù)以及它們所能達到的精度。類型數(shù)值范圍占字節(jié)數(shù)格式real2.9e-39~1.7e38611..12single1.5e-45~3.4e3847..8double5.0e-324~1.7e308815..16extended3.4e-4951~1.1e49321019..20comp-2**63+1~2**63-1819..20科學(xué)計數(shù)法：1.0寫作:1.0000000000E+000.0000987654321006寫作:9.8765432101E-05123456789876.54321寫作:1.2345678988E+11布爾型一個布爾型數(shù)據(jù)用來存放邏輯值（布爾值truefalse0，true1。falsetrue邏輯假和邏輯真。字符型字符型用char作為標(biāo)識符。字符型必須用單引號括起來，字母作為字符型時，大小寫是不等價的，并且字符型只允許單引號中有一個字符，否則就是字符串。五、Pascal的常量與變量1、常量常量：在某個程序的整個過程中其值不變的量。const<1>=<常量>;<2>=<常量>;…<常量標(biāo)識符n>=<常量>;常量標(biāo)識符的類型由定義它的常量的類型決定。例如：consta=12aconstr=3.21r是實型……const個常量均以分號結(jié)束。(不能賦值，哪怕一樣的值，例子)2.變量(2)var<1>:<類型>;…<n>:<類型>;其中，保留字var表示開始一個變量說明部分。變量標(biāo)識符列表是一個用逗號隔開的標(biāo)識符序列，冒號后面的類型是類型標(biāo)識符。每個變量說明均以分號結(jié)束。例如：vara,b,c:integer;m,n:real;六、Pascal標(biāo)準(zhǔn)函數(shù)1.算術(shù)函數(shù)例：函數(shù)標(biāo)識符自變量類型意義結(jié)果類型abs整型、實型絕對值同自變量arctan整型、實型反正切實型cos整型、實型余弦實型exp整型、實型指數(shù)實型frac整型、實型小數(shù)部分實型int整型、實型整數(shù)部分實型ln整型、實型自然對數(shù)實型pi無自變量圓周率實型sin整型、實型正弦實型sqr整型、實型平方同自變量sqrt整型、實型平方根實型abs(-4)的值為4 abs(4)的值為4abs(-7.49)7.49arctan(0)0.0sin(pi)的值為0.0cos(pi)的值為-1.0frac(-3.71)的值為int(-3.71)的值為sqr(4)16sqrt(4)2.02.標(biāo)量函數(shù)例：oddpredsucc

自變量類型整型離散類型離散類型

意義判斷奇數(shù)求前趨求后繼

結(jié)果類型布爾型同自變量同自變量odd(1000)false(odd(3)true(pred(2000)1999（求2000前面一個數(shù)是幾succ(2000)的值為 pred('x')的值為'w'（x前面一個是什么）函數(shù)標(biāo)識符chrordroundtrunc自變量類型byte型離實型意義函數(shù)標(biāo)識符chrordroundtrunc自變量類型byte型離實型意義自變量對應(yīng)的字符自變量對應(yīng)的序號四舍五入取整截斷取整結(jié)果類型字符型longintlongintlongintChr(65)的值為'A' chr(66)的值為'chr(97)的值為'a' chr(98)的值為'Ord('c')的值為 ord('D')的值 chr(ord('c'))的值為 chr(ord('A'))的值 ord(chr(100))的值ord(chr(71))的值 幾個函數(shù)可以套用在一起round(-3.71)的值為-4round(3.49)trunc(-3.71)的值為-3trunc(-3.49)int(trunc(3.98))trunc(int(3.98))注意一下幾個函數(shù)的區(qū)別，把結(jié)果寫在等號的右邊：Frac(3.5415)= int(3.5415)=round(3.5415)= 4.雜類函數(shù)說明：RandomRandom（n）{n1～32767}0≤random<1小數(shù);后者是產(chǎn)生隨機整數(shù),0≤random[n]≤n-1。randomrandom(n)randomizeupcase自變量類型無自變量word無自變量字符型意義[0,1)之間的隨機實數(shù)[0,n)之間的隨機整數(shù)用一隨機值初始化內(nèi)部隨機數(shù)產(chǎn)生器使小寫英文字母變?yōu)榇髮懡Y(jié)果類型realwordlongint字符型例子：要產(chǎn)生0~10的整數(shù)：random( )要產(chǎn)生90~100的整數(shù) 要產(chǎn)生12.1~25.5的小數(shù)： 要產(chǎn)生12.1~25.55的小數(shù) 七、Pascal的運算符和表達式(1)運算符運算符運算運算對象結(jié)果類型+-*/加減乘除整型、實型div整除整型整型mod取余整型整型算術(shù)運算符說明：在+-*/里，只要有一個運算對象是實型，結(jié)果就是實型，如果全部的運算對象都是整型并且運算不是除法，則結(jié)果為整型，若運算是除法，則結(jié)果是實型，如：3+2= 3+2.0= 2.0+3= 2.0+3.0=3-2=3.0-2=3-2.0=3.0-2.0=3*2=3*2.0=3.0*2=3.0*2.0=6/3=6.0/3=6/3.0=6.0/3.0=邏輯運算符運算符運算運算對象結(jié)果類型not邏輯非布爾型布爾型and邏輯與布爾型布爾型or邏輯或布爾型布爾型xor邏輯異或布爾型布爾型例子：加not、and、or、xor的例子：關(guān)系運算符運算符運算運算對象結(jié)果類型=等于簡單類型布爾型<>不等于簡單類型布爾型<小于簡單類型布爾型>大于簡單類型布爾型<=小于等于簡單類型布爾型>=大于等于簡單類型布爾型==有本質(zhì)的不同，pascal==pascal:=表示結(jié)合邏輯運算符加例子：優(yōu)先級運算符運算符not*,/,div,mod,andxor,+,-,orin,=,<>,>=,<=,<>優(yōu)先級1（最高）234同一級從左往右計算，如8*4div3= 8div4*3=(14-4*2)div2= 13div2=3/3+3/3=3*3-3-3=3+3+3/3=3*3-3/3=3*3/(3/3)=3/3-(3-3)=(3*3-3)/3=3+(3-3)*3=3+(3/3)+3=3*3/3*3=2.表達式3-(3-3/3)=3+3*3-3=算術(shù)表達式：算術(shù)表達式是由算術(shù)運算符連接常量、變量、函數(shù)的式子。算術(shù)運算符（）函數(shù)運算符（）函數(shù)*,/,div,mod+,-優(yōu)先級1234如就算下面表達式的值：trun（Frac(3.5415)+sqr(4）mod3*（21） 布爾表達式：TurboPascal算。例子：1m35mmod(3*5)=02m5m>5或者m<=53m90(m>=90)and(m<100)4、判斷一個數(shù)m是不是大于100或者小于90：(m>100)or(m<90)說明：用同時滿足2個或者幾個條件用and把這幾個條件連接起來，只要滿足2個或者幾個條件里的其中一個或多個時，用or連接這個幾個條件。判斷一個數(shù)m是否大于80小于90或者大于100小于110：把數(shù)學(xué)算式改寫成pascal表達式：（144-8×2）÷2 改寫 24×[24÷(2+6)]改 表達式練習(xí)一、對下面的符號進行分類，哪些是保留字，哪些是標(biāo)準(zhǔn)標(biāo)識符？Const Real And Case Text AbsDo In Char New Input End True Cos Get Ord TO保留字 標(biāo)準(zhǔn)標(biāo)識符 二、下列哪些是非法的用戶自定義標(biāo)識符？DDF student 3ND array _liu a&b K*2 3e非法用戶自定義標(biāo)識符:說明：PASCAL中標(biāo)識符是以字母(大小寫等效)或下劃線(‘_’)開頭的字母、數(shù)字、下劃線序列。不許用空格、運算符、關(guān)系符以及除字母、數(shù)字、下劃線的其他符號。三、寫出下面各標(biāo)準(zhǔn)函數(shù)的值：sqr(9)= sqrt(9)=sqrt(4)= abs(500-sqr(30))=trunc(-4.5)= round(-4.5)=round(4.5)= chr(65)=pred(‘b')= odd(8)=chr(66)= Sqr(25)= sqrt(25)=abs(5-10)= pred(20)=succ(‘b')= trunc(3/4)=四、寫出下列條件表達式1、判斷一個整數(shù)X是偶數(shù)并且能被5整除的正確的表達式: 2、整數(shù)z在50-100之間或120-200之間 3、整數(shù)x在20~40或60~100之間 4y（難度大，請仔細思考，提示：不是整百數(shù)時只要是4400的倍數(shù)才是閏年）:五、判斷一個整數(shù)是兩位數(shù)并且能被5整除的正確的表達式是 A:(X>10)AND(xMOD5)B:(10<=x)AND(x<100)OR(xMOD5=0)C:(10<=x<100)AND(xDIV5)D:(x>=10)AND(x<100)AND(xMOD5=0)六、求下列表達式的值：（A）3*4div2*3=（B）3-4div2-3=（C）2*trunc(12.987)–37mod19=（D）4*5/3-frac(4*5/3)=（E）300-ord((（(ord(pred(‘a(chǎn)'))+300)/2)<=10)and(odd(ord(succ(‘b'))))）=（F）(4>5)AND(7>8)=（G）(8>9)OR(9<10)=（H）odd(2)AND((3=3)OR(3<7))=已知b1b2b3TRUETRUE(注意運算順序notb1andnotb3=b1orb2andb3=(notb1orb2)and(b2orb3)=PASCAL1、(25+36)÷[(20-16)×2-42]2、b2-4ac3、4+(5×8﹣6)÷2八、不是合法的常量定義是（）A．constbook=45 B. constch='a'C．constn=m+12 D. constpascal編程基礎(chǔ)練習(xí)題一、不定項選擇和填空題1、下列關(guān)于程序語言的敘述，不正確的是（）A、編寫機器代碼不比編寫匯編代碼容易B、高級語言需要編譯成目標(biāo)代碼或通過解釋器解釋后才能被CPU執(zhí)行C、同樣一段高級語言程序通過不同的編譯器可能產(chǎn)生不同的可執(zhí)行程序D、匯編代碼可被CPU直接運行E、不同的高級語言語法略有不同2、下列哪一種程序設(shè)計語言是解釋執(zhí)行的（）A、Pascal 、GWBASIC C、C++ D、FORTRAN3、解釋程序的功能是（）A、將高級語言程序轉(zhuǎn)換為目標(biāo)程序 、將匯編語言程序轉(zhuǎn)換為目標(biāo)程C、解釋執(zhí)行高級語言程序 D、解釋執(zhí)行匯編語言程序4、下列中沒有語法錯誤的PASCAL程序首都是（）A、PROGRAMA1;、PROGRAMA1(0utPut)C、PROGRAM(Input,OutPut);D、PROGRAMA1(InputOutPut);5、結(jié)構(gòu)化程序的結(jié)構(gòu)由三種基本結(jié)構(gòu)組成，下面哪個不屬于這三種基本結(jié)構(gòu)（）A、順序結(jié)構(gòu) 、輸入輸出結(jié)構(gòu)構(gòu) C、分支結(jié)構(gòu) D、循環(huán)結(jié)6、Pascal程序必須包括（）A、程序首部、說明部分、語句部分 、程序首部、說明部C、說明部分、語句部分 D、程序首部、語句部7、標(biāo)準(zhǔn)Pascal程序說明部分的正確順序是（）A、、C、D、8、下面對Pascal程序組成結(jié)構(gòu)的描述錯誤的是（）A、程序體可以為空B、程序的注釋部分只能寫在程序中一條語句的最后C、程序首都的參數(shù)部分可有可無D、一個完整的PASCAL程序的主程序只能有一個9、要編寫并執(zhí)行—PASCAL程序，—般的步驟是（）A、①用編輯軟件編寫源程序②用PASCAL的編譯程序把源程序轉(zhuǎn)換成目標(biāo)程序③用連接程序把目標(biāo)程序轉(zhuǎn)換為可執(zhí)行程序④運行可執(zhí)行程序B、①用編輯軟件編寫源程序②修改和調(diào)試源程序③用PASCAL的編譯程序把源程序轉(zhuǎn)換成可執(zhí)行程序④運行可執(zhí)行程序C、①用編輯軟件編寫源程序②用連接程序把源程序轉(zhuǎn)換成可執(zhí)行程序③試運行可執(zhí)行程序④修改后再運行可執(zhí)行程序D、①用編輯軟件編寫源程序②用連接程序把源程序轉(zhuǎn)換為目標(biāo)程序PASCAL的編譯程序把目標(biāo)程序轉(zhuǎn)換為可執(zhí)行程序④運行可執(zhí)行程序10、PASCAL源程序中不止確的注釋語句是（）A、用一對“{”和“}”括起來的字符串、用一對“/*”和“*/”括起來的字符串C、用—對“(*”和“*)”D、A)或B)、以下正確的PASCAL實數(shù)是（ ）A、0.56E2.5B、2.56E2C、.318E1D、34.E5E、E5F、3E-5G、.15H、15.12、每個Pascal程序的分程序中都必須包括（）A、變量說明、語句 、語句C、類型定義、變量說明、語句 D、常量說明、變量說明、語13、下列中合法的Pascal標(biāo)識符是（）A、Charset 、RECORD C、Abs D、π E、、FOR G、2ab H、a[1]14a、b、cRead(a);Readln(b,c);Readln(c,b);Readln(a,b);writeln(a,b,c)若運行時輸入：1 2 3＜ENTER＞4 5 6＜ENTER＞7 8 9＜ENTER＞其中＜ENTER＞表示回車符，則輸出是（）A、123 B、147 C、78415、下列表達式中，其值為TRUE的是（）A150>=150 100>150 CAbs(-200)<>200 DSucc('A')<Succ('a')E'ab'<'abc' Succ(False)=True G0dd(35+1)=FaLse H16、有變量說明：VARi1,i2:Integer;r1,r2:Real;b1,b2:Boolean;設(shè)各變量均已賦值，下列中錯誤的賦值語句是（）A、b2:=Ord(r1>r2) 、i2:=i1+r1 C、b1:=i1=i2 D、b1:=b1+b2E、i2:=i1+i2DIVi1 、i1:=i1/i2 G、r2:=3/5*Sqr(r1+r2) 17、下面一段程序是用（）)語言書寫的intfuncl(intn){inti,sum=0;for(i=1;i＜=n;i++)sum+=i*i;return}A、FORTRAN 、PASCAL C、C D、PROLOG E、BASIC18、設(shè)全集，集合A={1,4}，B={l，2,5}，C={2，4)，則集合(A∩B)∪～C為（ ）A、空集 、{1} C、{3，5} D、{1，5} E、19、運算17MOD4的結(jié)果是（ ）A、7 B、3 C、1 D、420、已知a、b、c、d、e、f、g均為整數(shù)變量，其值分別為2、4、6、8、10、12、14，若輸出結(jié)果為2468 101214則輸出語句應(yīng)是（）A、Write(a:3,b:3);write(c:3,d:3,e:3);Write(f:3,g:3)B、Writeln(a:3,b:3);Write(c:3,d:3,e:3);Writeln(f:3,g:3)C、Writeln(a:3,b:3);Writeln(c:3,d:3,e:3);Writeln;Writeln(f:3,g:3);D、Write(a:3,b:3);Writeln;Write(c:3);Writeln(f:3,g:3);Write(f:3,g:3)21、把整數(shù)7轉(zhuǎn)換為字符‘7’的表達式是哪一個（）A、Chr(7)-0rd('0') 、Chr(7-0rd(0)) C、Chr(7+0rd('0')) D、Chr(7+0rd(0))22、下列類型定義中，合法的是（）A、TYPEa=10..10;、TYPEC、TYPEc=1.0..10.0;D、TYPEd=10..5;23、以下運算符中運算優(yōu)先級最高的是（）A、＋ B、OR C、>= D、24、已知有如下說明：VARa,b:Integer;c,d:Real;下面賦值語句合法的是（）A、c:=a+b 、a:=Trunc(c) C、a:=a+b/c D、b:=adivd25、設(shè)有變量說明則函數(shù)Succ(A)的取值是（A、G 、3 C、J D、B26、表達式TrueANDNOTOdd(-202)<(7-3<=4)的值是（ ）A、True 、False C、0 D、27、下列常量說明中合法的是（）A、CONSTcolor=red..blue; 、CONSTCONST=10*5;C、CONSTx1:=3.9; D、CONSTabc='abc';28、已知a、b、c、d是同類型簡單變量，且都已有互不相同的值，執(zhí)行下列語b:=a; a:=c; d:=a; d:=b; 后，其值相等的變量是（）A、a,d 、a,c C、c,b D、29、下面合法的常量是（）A、.25 、"RED" C、'%' D、3E-2.530、設(shè)a、b、c、、e均為整型變量，且s=13、b=2、c=10、d=3、e=2，則表達a-b*cDIVdMODe的值是（ ）A、13 、-7 C、11 D、0八、Pascal賦值語句賦值語句是最簡單的語句，其一般形式為：<變量>:=<表達式>然后才能引用，否則，未賦初值的變量將以一個隨機值參與運算。另外，賦值號兩邊的例：關(guān)于賦值的例子programexample;vara,b:integer;begina:=3;b:=2;writeln(a);writeln(b);a:=a+b;writeln(a);writeln(b);b:=a-b;writeln(a);writeln(b);a:=a-b;writeln(a);writeln(b);readlnend.九、Pascal輸入語句通過計算機的外設(shè)把數(shù)據(jù)送到計算機內(nèi)存的過程稱為輸入。read(<變量名表>)；readln(<變量名表>)；<輸入項表>說明，他們可以是整型、實型或字符型，布爾型不可以直接讀入。a，b，c為整型變量，read(a,b,c)鍵盤輸入：203040<cr>結(jié)果： a=20，b=30，c=40readln語句和read語句不同之處在于:一個read語句執(zhí)行完后，數(shù)據(jù)行中多余的未readlnreadln語句中可以不包含變量名表,情況：read(a,b);readln;等價于readln(a,b);（練習(xí)）十、Pascal輸出語句輸出是將內(nèi)存中的數(shù)據(jù)送到外設(shè)的過程。TurboPascal的輸出語句有兩種形式：write(<輸出項表>)writeln(<輸出項表>)一次可以輸出多個變量、常量、表達式的值。write和writeln的區(qū)別在于：write語句是輸出后，不換行，writeln語句輸出后，自動換行，光標(biāo)停留在下一行的開始位置。writeln語句允許不含有輸出項，即僅writeln;表示換行。Pascal語言把輸出項的數(shù)據(jù)顯示占用的寬度稱為域?qū)?。定義寬度時分為單域?qū)捄碗p域?qū)挕?、單域?qū)捿敵龈袷剑簑riteln(i：n)2、雙域?qū)捿敵龈袷剑簑riteln(a：m：n)想一想，下面程序輸出什么：例：輸出語句的例子programshuchu;consts='pascal';vari:integer;r:real;c:char;b:boolean;begini:=12345;r:=123.45c:='a';b:=true;write('i=');writeln(i:6);writeln('r=',r,r:6:1);writeln('c=',c,c:10);writeln('b=',b,b:10)end.十一、Pascal復(fù)合語句beginend括起來，作為一條語句。復(fù)合語句的一般形式：begin……end;Beginend（12不執(zhí)行，這樣的情況是不可能發(fā)生的。例如，下面這個程序會輸出什么？programjiaohuan;vara,b,t:integer;begina:=10;b:=20;ifa<bthen begint:=a;a:=b;b:=t;end;writeln('a=',a,'b=',b)end.輸出 順序結(jié)構(gòu)練習(xí)一、找出下列程序段中的錯誤：在你認為有錯誤的那行旁邊說明錯誤constpi:＝3.14 a:=4; b=6; c='a'; varc,d.e,f:real;begina+1:=3; b=6; e,f:=7; g:=true; c:=d; 二、讀程序?qū)懡Y(jié)果：1、vara:longint;b:real;begina:=2;b:=2;writeln(b/a);writeln(a/a);writeln(adiva);end.輸出 2、vara:longint;b:real;c:char;d:boolean;begina:=1357;b:=1234.5678;c:='%';d:=true;writeln(a,a:5)；writeln(b,b:12:5);writeln(c,c:5);writeln(d,d:5);writeln(‘end':5);end.

輸出 3、vara,b,h,s:real;beginreadln(a,b,h);s:=(a+b)*h/2;writeln(‘s=',s:12:6);end.輸入：354輸出 4、vara,b,c,n,sum:longint；beginn:=126;a:=ndiv100;b:=(n-a*100)div10;c:=n-100-b*10;sum:=a+b+c;writeln('sum=',sum:3)end.輸出： 5、constblank='#';star='****';var beginwide:=45;writeln(blank:1,wide,star);wide:=wide-1；writeln(blank:2,wide,star);wide:=wide-1;writeln(blank:3,wide,star);wide:=wide-1;writeln(blank:4,wide,star);end.輸出 6、vara,b:char;x,y:longint;begina:='8';b:='9';x:=ord(a)-ord('0');{數(shù)字0}y:=ord(b)-ord('0');{數(shù)字0}writeln(x-y);writeln(x-y);writeln(ord(a)-ord(b));end.輸出 7、varr,r1,r2,r3,r4,i1,i2,i3,i4,u:real;beginreadln(r1,r2,r3,r4,u);r:=(r1*r2*r3*r4)/u;i1:=u/r1;i2:=u/r2;i3:=u/r3;i4:=u/r4;writeln('r=:',r:4:2);writeln('i1=:',i1:4:2；writeln('i2=:',i2:4:2；writeln('i3=:',i3:4:2);writeln('i4=:',i4:4:2；end.輸入：124520輸出 表達式，賦值語句，輸入輸出語句練習(xí)1、若要交換變量A和B的值，下列正確的語句組是 A．A:=B;B:=C;C:=A; B．C:=A;A:=B;B:=C;C．A:=B;B:=A; D．C:=A;B:=A;B:=C;還有一種只用a和b就能交換 2A=5，B=2，C=3，D=6Read（A）;Readln(B,C);Readln(D);下面4種輸入方式哪種是正確的： A5236<cr>B5<cr>232<cr>6<cr>A5236<cr>B5<cr>232<cr>6<cr>C523<cr>3<cr>6<cr>D52<cr>36<cr>6<cr>3、已知R1，R2是實型變量，A，B是整型變量，下面正確的語句。A、R1+1:=R2+AMOD、R2:=R2+1；C、R1:=R2A/BDI（A-；、A:=B+1.0;4a,b,c,d,e3行數(shù)據(jù)（<CR>表示回車符：2 4<CR>6 8<CR>1012<CR>下列語句中能使a=2,b=4,c=8,e=12的A、Read(a,b);Readln(c,d);Readln(e);Read(a,b);Readln;Readln(c,d,eCRead(a,b,c,d,e);D、Read(a,b);Readln(c,c);Readln(d,e);5、要使a,b,x,y,z的值分別為1，9，2，4，6現(xiàn)提供輸入的數(shù)據(jù)格式為：192<cr>246<cr>46<cr>應(yīng)采用哪組輸入語 A、Read(a,b,x,y,z);B、Read(a,b);Readln(x,y);Read(z);C、Readln(a,b);read(x,y);read(z);D、Readln(a,b);Readln(x,y);Readln(z);6、假設(shè)有如下的說明：CONSTPi=3.14159;C=’good’;VARRe,er:Integer;x,y:Char;q1,q2:boolean;則下列語句中正確的是。A、Pi:=3．142; 、x:=C;C、q1:=x<>y; D、q2:=q1+1;7、若有如下變量說明：VARI1，I2，I3：Integer;R1,R2:Real;C:Char;B:Boolean;則下列賦值語句中語法正確的。A、I1:=R1+R2 、R1:=I2DIVC、B:=B+1 D、C:=’TEST’8、已知如下說明：VARa,b:Integer;c,d:Real;下面賦值語句合法的應(yīng)是： 。A、c:=a+b; 、a:=d;C、a:=a*b-c; D、b:=aDIVc;9、有如下說明語句：CONSTt=50;VARa:Integer;b:Real;c:Char;下面錯誤的是： 。A、a:=Round(B);、c:=Chr(t); C、t:=50; D、b:=a;10、設(shè)a,b,c,d均為整型變量，有下面的程序段：a:=10;b:=0;Read(a,b);Readln(c);Readln(d);若從鍵盤輸入：7<CR>654<CR>321<CR>(注：<CR>表示回車)則a,b,c,d中的數(shù)。A、7063 、7654 C、7632 D、765311、關(guān)于賦值的例子,根據(jù)格式寫出輸出結(jié)果。programexample;vara,b:integer;begina:=3;b:=2;writeln(a);writeln(b);a:=a+b;writeln(a);writeln(b);b:=a-b;writeln(a);writeln(b);a:=a-b;writeln(a);writeln(b);readlnend.輸出： 12x,y,zPROGRAMe_224VARx,y:integer;z:real;BEGINx:=20;x:=x+x;y:=x+x;x:=x+y;y:=x+y;z:=round(sqrt(y));END.x的值y的值為 z的值 13、編程實現(xiàn)：x,y的值,xy的值，yx的值。、輸入一個三位數(shù)，輸出它的相反數(shù)234432。(3)、從鍵盤輸入兩個數(shù)a，h，計算s的值，s等于a×a×3.14×h÷3，并在屏幕輸出s結(jié)果。、從鍵盤上讀入一個實數(shù)，輸出該實數(shù)本身、整數(shù)部分、小數(shù)部分、四舍五、輸入一個秒數(shù)，把它轉(zhuǎn)換成時、分、秒并輸出:8407輸出：h:2 m:20 s:7順序結(jié)構(gòu)語句練習(xí)1.11、ConstS='letusbegin';R=3;Pi=3.14;BeginWriteln(s);Writeln('radiumis:',r);Writeln('Areaofcircleis:',pi*r*r);Writeln('Areaofcircleis:',pi*r*r:10);Writeln('Areaofcircleis:',pi*r*r:10:3);End.輸出 2、VarCh,pch,sch:char;och:longint;BeginRead(ch);Och:=ord(ch);Pch:=pred(ch);Sch:=succ(ch);Writeln('och=',och,'pch=',pch,'sch=',sch);End.輸入：c輸出 3、Vara,b,c:longint;beginread(a,b);c:=a;a:=b;b:=c;writeln(a:3,b:3,c:3);end.輸入：1020 輸出： 4、vara,b,c,m,n:longint;beginreadln(m);a:=mdiv100;b:=(mdiv10)mod10;c:=mmod10;n:=c*100+b*10+a;writeln(n);end.輸入：456輸出 5、varchina,math,English:real;sum,aver:real;beginread(china,math,English);sum:=china+math+English;aver:=sum/3;writeln(‘sum=’,sum:4:0)writeln(‘a(chǎn)ver=’,aver:4:1)end.輸入：789085輸出 6、vara,b,c,s,t:longint;begina:=7;b:=8;c:=3;s:=a+b*c;t:=(a+b)*c;s:=s+t;writeln(s,' end.輸出 7、varx:real;beginread(x);writeln(trunc(x));writeln(x-trunc(x):5:3);writeln(round(x));end.輸入：4.87輸出 8、vara,b:longint;begina:=2;b:=3;a:=a*b;b:=adiva:=adivb;writeln('a=',a,'b=',b);end. 輸出 9、vara,b,c,d,x:longint;beginreadln(x);a:=xmod10;a:=a*a*a;b:=xdiv10mod10;b:=b*b*b;c:=xdiv100;c:=c*c*c;d:=a+b+c;writeln(x:5,d:5);end.若輸入：153輸出 若輸入：135輸出 若輸入：370輸出 順序結(jié)構(gòu)語句1.21、var begina:=6;b:=7;writeln(a,b);writeln(a+b);writeln('a+b=',a+b);end.輸出 2、vara,b:longint; beginreadln(a,b);c:=(a+b)/abs(a-b)+1;writeln(round(c):4,trunc(c):4);c:=(adivb)*b+(amodb);writeln(c:8:2);end.輸入：3512輸出 3、constvari:longint;r:real;c:char;b:Boolean;begini:=1234;r:=1234.5678;c:='#';b:=true;writeln(i,i:6,i:3);writeln(r:12:5,r:8:5);writeln(c,c:5);writeln(s,s:10,s:5);writeln(b,b:5,b:3);end.輸出 4、varyes:Boolean;x,y:real;beginread(x,y);writeln('x=',x:4:1,'y=',y:4:1);yes:=(x*x+y*y>=4)and(x*x+y*y<=9)writeln(yes);end.輸入：2.53.0輸出 輸入：1.12.0輸出 5、vara,b:real;less,equals,greater：boolean;beginread(a,b);less:=(a+b)<ord(a<b);equals:=(a+b)=(a-b);greater:=(a+b)>(a-b);writeln('(a+b)<(a-b):',less);writeln('(a+b)=(a-b):',equals);writeln('(a+b)>(a-b):',greater);end.6、var

輸入：12.2334輸出 a1,a2,a3,a4,a5:longint;beginreadln(a1,a2,a3,a4,a5);a1:=a1div3;a2:=a2+a1;a5:=a5+a1;a2:=a2diva1:=a1+a2;a3:=a3+a2;a3:=a3diva2:=a2+a3;a4:=a4+a3;a4:=a4diva3:=a3+a4;a5:=a5+a4;a5:=a5diva4:=a4+a5;a1:=a1+a5;writeln(a1:4,a2:4,a3:4,a4:4,a5:4);end.輸入：1223341516輸出 7、varx:real;int,rou:longint;rel:real;beginread(x);int:=trunc(x);rou:=round(x);rel:=x-int;writeln(x,int,rou,rel);end.輸入：12.234 輸出 想一想，這個程序有什么作用。8、vara,b,c,s:longint;beginreadln(a,b);c:=2*(a+b);s:=a*b;writeln(c,s);end.輸入：34輸出 想一想，這個程序有什么作用9、vart,h,m,s:longint;beginreadln(t);h:=trunc(t/3600);m:=t-h*3600;m:=trunc(m/60);s:=t-h*3600-m*60;writeln(h,m,s);end.輸入:6100 輸出 想一想，這個程序有什么作用10、varch1,ch2,ch3:char;bol:Boolean;beginread(ch1,ch2,ch3);bol:=（ch1=pred(ch2)）or(ch1=succ(ch2));bol:=bolor（ch3=pred(ch2)）or(ch3=succ(ch2));bol:=bolor（ch3=pred(ch1)）or(ch3=succ(ch1));write(bol);end.輸入：gpF輸出 11、varn:longint;yes:Boolean;beginreadln(n);yes:=(nmod4=0)and(nmod100<>0);yes:=yesor(nmod400=0);writeln(yes);end.輸入：2009輸出 輸入：2000輸出 想一想，這個程序有什么作用12、vart,a,b,c:longint;begina:=2;b:=4;c:=6;A:=b;b:=c;c:=a;B:=c;c:=a;a:=b;C:=a;a:=b;b:=c;t:=a;a:=b;b:=c;c:=t;writeln(a,b,c,t);end.輸出 選擇題1、一般地，pascal程序的組成結(jié)構(gòu)是下列的哪一個（ ）A、程序標(biāo)題、說明部分、語句部分 B、程序標(biāo)題、語句部分、運行結(jié)果C存盤文件名、說明部分、語句部分 D、存盤文件名、語句部分、運行結(jié)果2、pascal程序中，說明變量用的保留字是（ ）A、LABEL 、C、TYPE D、CONST3、pascal程序中，定義整數(shù)型變量類型時用（ ）A、INTEGER 、REAL C、CHAR D、STRING4、在pascal程序中，下列可用于程序標(biāo)題名稱和變量名的是（ ）A、then 、liming C、li_ming D、3D5、pascal程序中，用于注解的符號可以用"（* *）"，也可以用下列的（ ）A（） 、{} C、[] D、**6、pascal程序中，a是整型變量，下列賦值語句正確的是（ ）、a:=1000; 、a:=1000.00 C、a:='1000' D、a:='1000.00'7、pascal程序中，下列賦值語句錯誤的是（ ）A、a:=a+1; 、a:=a*5; C、a+b:=c+d D、x:='1234'8pascal程序中WRIT（1WRIT（2WRITEL（3的輸出結(jié)果（ ）A、123 、1 2 3 C3

D、1239pascal程序中X為實型變量X=2WRITEL（'X=',X:10:的輸出（ ）、X=2.4000E+02 、X=24 C、X=24.00 D、X= 24.0010pascal程序中X為整型變量X=WRITEL（'X=X:的輸出（ ）、X=4 B、X=44 C、X= 4 D、X= X、pascal程序中，下列輸入語句語法正確的是（ ）、REA（'X=，；、（CC、READ(A=5); D、READLN(A,B,C,);判斷題：17pascalXWIRTEL（'X';如果要輸出X的值，則用WRITELN（X（ ）20、pascal程序中，保留字不能用于程序標(biāo)題名和變量名（ ）21、pascal程序中，程序標(biāo)題名可以與變量名同名（ ）22、pascal程序中，大、小寫字符是等價的（ ）23、pascal程序中的注解不會被計算機執(zhí)行，只起說明作用。（）24、pascal程序中，'234'與234意義相同（ ）25、pascal程序中，輸出語句WRITE（34.85:2:0）的顯示為35（ ）26pascal程序中，用READLN（x）讀數(shù)，如果輸入了一行5個數(shù)，則只有第個有效，其余的都作廢（ ）27、pascal程序中，X:='ABC'，要顯示"ABC"時，用WRITELN（'X'）;（ ）28、pascal程序中，每一句的后面都要用符號"；"（ ）29pascal程序中，復(fù)合語句BEGIN/END的后面，一定要加上符"."或以示復(fù)合語句的結(jié)束（ ）順序結(jié)構(gòu)階段測試1、vart,a,b,h,c,s:longint;begina:=10; b:=12; h:=8;a:=a+b;b:=a-b;a:=a-b;c:=adivb; s:=amodwriteln(a,'÷',b,'=',c,'……',s);c:=(a+b)*2；s:=(a+b)*hdiv2;writeln(c:3,s:3);end.輸出 2、varv0,a,t,vt,s,v:real;beginreadln(v0,a,t);vt:=v0+a*t;s:=v0*t+0.5*a*t*t;v:=s/t;writeln(vt:6:1,s:6:1,v:6:1);end.輸入：10220輸出 3、var beginreadln(a1,a2,a3,a4);a1:=a1+a2;a2:=a1+a2;a3:=a4+a3div3;a4:=a3+a4div3;writeln(a1:3,a2:3,a3:3,a3:=a1+a2;a4:=a2+a3;a1:=a2;a3:=a1+a2;a4:=a2+a3;writeln(a1:4,a2:4,a3:4,a4:4);end.輸入：10152025輸出 4、var a,b,x,y:char;i,j,k:longint;begina:='a';b:='b';x:='x';y:='Y';i:=ord(a);j:=ord(b);writeln(i:3,j:3);i:=ord(b)-ord(a);j:=ord(x)-ord(y);writeln(i:3,j:3i:=ord(a)+2;j:=ord(x)+2;writeln(chr(i):2,chr(j):2);end.輸出 5、vara1,a2,a3,a4:char;i1,i2,i3:longint;begina1:='A';a2:='H';i1:=ord(a2)-ord(a1);a3:=chr(ord(a1)+i1);a4:=chr(ord(a2)-i1);writeln(a3:2,a4:2);i2:=ord(a2)-ord(a1)-i1;i3:=ord(a1)+i1-ord(a2);writeln(i2:2,i3:2);end.輸出 6、var c,d,e,f:longint;i,j,x,y:char;b1,b2,b3:Boolean;beginreadln(c,d,e,f);readln(i,j,x,y);b1:=(c*d)>(c+d);b2:=(e*f)=(e-f);writeln(b1:6,b2:6);b1:=(dmodc)>(emodf);b2:=(ord(i)-ord(j))=(ord(x)modord(y));;b3:=b1andb2;writeln(b1:6,b2:6,b3:6);end.輸入：3855aAY9輸出 7、consta=3;b=8;c=2;beginwriteln((a+c<b)and(a*c<b));writeln((b>a)and(a*a<c));writeln((c>b+a)and(b>4));writeln((c>1)or(a>1));writeln((a>1)or(a<1));writeln((b>4*c+a)or（c>0)writeln((c=b/c)or(c>b/c));writeln( not(a*b>c) );end.輸出 8、vars,a,b,c,x,y:real;begins:=432.19;a:=trunc(s/100);b:=trunc((s-a*100)/10);c:=trunc(s-a*100-b*10);writeln(s:5:1,a:4:1,b:4:1,c:4:1);x:=a+b*10+c*100;y:=a*100+b*10+c;writeln(x:5:1,'>',y:5:1,':',x>y);end.輸出 十二、IF語句（會思考的語句）IF語句是由一個布爾表達式和兩個供選擇的操作序列組成有兩種形式的IF語句if <布爾表達式> then語句>；if <布爾表達式> then語句1>else<語句2>；then后面的語句，值為假時有兩種情況：要么什elseelseelseif語句到此結(jié)束，而把else當(dāng)作另一句的開頭，輸出出錯信息。分析下面2什么結(jié)果。1、varx,y:longint;beginwrite('x=?');readln(x);ifx>0theny:=1;ifx=0theny:=0;ifx<0theny:=-1;writeln('y=',y);end.輸入：10輸出: 輸入：0輸出 輸入：-10輸出 2、varx,y:longint;total:char;beginwrite('x=?');raadln(x);ifx>=60thentotal:='C'elsetotal:='D';ifx>=80thentotal:='B';ifx>=90thentotal:='A';writeln('total=',total);end.輸入：50輸出：輸入：60輸出 輸入：70輸出 輸入：80輸出 輸入：90輸出 3、raadln(x);ifx>=90thentotal:='A';ifx>=80thentotal:='B';ifx>=60thentotal:='C'elsetotal:='D';writeln('total=',total);這樣寫能解決上面的問題嗎？得到什么啟發(fā)？編程時語句的順序很重要。4、raadln(x);if(x<=100)and(x>=90)thentotal:='A';if(x<90)and(x>=80)thentotal:='B';if(x<80)and(x>=60)thentotal:='C'elsetotal:='D';writeln('total=',total);想一想，這段程序?qū)?？修改后的程序?yīng)該怎樣寫呢，寫在下面：X不是>=90這種情況<905個例子：5、raadln(x);ifx>=90thentotal:='A'elseifx>=80thentotal:='B'elseifx>=60thentotal:='C'elseifx<60thentotal:='D';writeln('total=',total);想一想上面這個程序哪部分顯得多余，可以省略。精簡后的程序為：6、raadln(x);ifx>=90thentotal:='A'elseifx>=80thentotal:='B'elseifx>=60thentotal:='C'e