第三章選擇結(jié)構(gòu)程序設(shè)計選擇結(jié)構(gòu)例1：輸入一個整數(shù)a,判斷是否為偶數(shù)。（是輸出〃yes〃否則輸出〃no〃）。輸入a;判斷a值； amod2=0yes否則顯示no根據(jù)判斷結(jié)果顯示不同的值。IF語句1、格式1、 IFV布爾表達(dá)式〉THEN語句；II、IFV布爾表達(dá)式〉THEN語句1ELSE語句2；（注意II型IF語句中語句1后無〃；〃號）2、 功能I、 執(zhí)行IF語句時，先計算V布爾表達(dá)式〉的值，若為TRUE則執(zhí)行語句，否則不執(zhí)行任何操作。II、 執(zhí)行IF語句時，先計算V布爾表達(dá)式〉的值，若為TRUE則執(zhí)行語句1,否則執(zhí)行語句2；Pascal程序:Programex4_2;Vara:integer;BeginWrite('a=');readln(a);If(amod2=0)thenwriteln('yes')Elsewriteln('no');Readln;End.例2：超市里賣電池，每個電池8角錢，若數(shù)量超過10個，則可打75折。輸入X;判斷X值；根據(jù)判斷結(jié)果選擇符合條件的那種方法計算Y值；輸出計算結(jié)果。Programex2_2;VarNum:integer;Price，Total:real;BeginWrite('Num=');readln(Num);Price=0.8;

IfNum>10thenPrice:=Price*0.75;Total:=Num*Price;Writeln（'Total=',Total:0:2）;Readln;End.例3：讀入三個不同的數(shù)，求出最大值。例4：讀入三個不同的數(shù)，編程按由小到大的順序排列打印出來。ProgranmExam2_4；Vara，b，c，t:Real；BeginWrite（'Inputa，Vara，b，c，t:Real；BeginWrite（'Inputa，b，c='）；Readln（a，b，c）；ifa>bthenbegint:=a；a:=b；b:=tend；ifa>cthenbegint:=a；a:=c；c:=tend；ifb>cthenbegint:=b；b:=c；c:=tend；Writeln（'a，b，c:'，a:6，｛復(fù)合語句｝｛交換a，b｝復(fù)合語句｝｛交換a，c｝｛復(fù)合語句｝｛交換b，c｝b:6，c:6）；ReadlnEnd.復(fù)合語句if語句規(guī)定它的真項或假項位置上只能是一個基本語句，如果需要寫一組語句，就應(yīng)當(dāng)使用復(fù)合語句。本程序中有三處用到復(fù)合語句。每個復(fù)合語句的范圍是從Begin開始到與它相對應(yīng)的End為止。復(fù)合語句的地位和一個基本語句相同；其一般格式為:Begin<語句1>;<語句2>;???<語句n>End;復(fù)合IF語句Else二義性問題IF<條件1>THENIF<條件2>THEN<語句1>ELSE<語句2>例5：輸入某學(xué)生成績，根據(jù)成績的好壞輸出等級。如果成績在90分以上，輸出A，如果成績在60到90之間，輸出B如果不足60分，輸出C。ProgranmExam2_5；Varscore:Real；BeginReadln(score)；ifscore>=90thenwriteln(‘A‘)elseifscore>=60thenwriteln(‘B')elsewriteln(‘C');end.注：請仔細(xì)閱讀pascal教程第38--51頁，調(diào)試書本上的例題3.1,3.2,3.3,3.4再完成以下任務(wù):1、 對一批貨物征收稅金(長整型)。價格在1萬元及以上的貨物征稅5%，在5000元及以上，1萬元以下的貨物征稅3%，在1000元及以上，5000元以下的貨物征稅2%，1000元以下的貨物免稅。編寫一程序，讀入貨物價格，計算并輸出稅金。2、 輸入3個整數(shù)，將其中最小的數(shù)輸出。3、 某超市為了促銷，規(guī)定：購物不足50元的按原價付款，超過50不足100的按九折付款，超過100元的，超過部分按八折付款。編一程序完成超市的自動計費的工作。4、 輸入一個三位數(shù)的整數(shù)，將數(shù)字位置重新排列，組成一個盡可能大的三位數(shù)。例如：輸入213，重新排列可得到盡可能大的三位數(shù)是321。例6：對某產(chǎn)品征收稅金，在產(chǎn)值1萬元以上征收稅5%；在1萬元以下但在5000元以上的征收稅3%；在5000元以下但在1000元以上征收稅2%；1000元以下的免收稅。編程計算該產(chǎn)品的收稅金額。Case語句一般格式為:Case表達(dá)式of情況常量表1:語句1；情況常量表2:語句2；情況常量表n:語句nend；執(zhí)行情況語句時，先計算Case后面表達(dá)式的值，然后根據(jù)該值在情況常量表中的“對應(yīng)安排”，選擇其對應(yīng)的語句執(zhí)行，執(zhí)行完所選擇語句后就結(jié)束Case語句；如果常量表中沒有一個與表達(dá)式值對應(yīng)的語句，則什么也不做就結(jié)束本Case語句。Case語句的另一種應(yīng)用格式為：Case表達(dá)式of情況常量表1:語句1；情況常量表2:語句2；情況常量表n:語句nelse語句n+1end；這種格式的前面部分是相同的，所不同的是：如果常量表中沒有一個與表達(dá)式值對應(yīng)的語句，則執(zhí)行與else對應(yīng)的語句，然后結(jié)束Case語句。P=0:tax=0(x<1000)P=1，2，3，4:tax=x*0.02(1000<=x<5000)P=5，6，7，8，9:tax=x*0.03(5000<X<=10000)P=10:tax=x*0.05(x>10000)用P表示情況常量各值，以題意中每1000元為情況tax用P表示情況常量各值，以題意中每1000元為情況tax為稅金，這里的P是“情況”值，用產(chǎn)值X除以1000的整數(shù)值作為P,如果P>10也歸入P=10的情況。Pascal語言用P二trunc(x/1000)取整計算，Pascal程序:ProgramExam22；Varx，p:integer；Tax:real；BeginWrite('Number=')；readln(x)；P:=trunc(x/1000)；ifP>9thenP:=10；CasePof0 :tax:=0；1,2,3,4 :tax:=x*0.25,6,7,8,9 :tax:=x*0.310 :tax:=x*0.5end；Writeln（'tt='，tt:5:2）；ReadlnEnd.上機實踐：1.調(diào)試書本上的例題3.5再完成以下任務(wù):2?某全自動加油站a,b,c三種汽油的單價（元/kg）分別是1.50、1.35和1.18，也提供了“自己加”或“協(xié)助加”兩個服務(wù)等級，這樣用戶可以得到5%或10%的優(yōu)惠。編一個程序，用戶輸入加油量、汽油品種和服務(wù)類型f-自動，m-自己，e-協(xié)助），然后計算應(yīng)付款。打印某年某月有多少天。（提示：A、閏年的計算方法：年數(shù)能被4整除，并且不能被100整除;或者能被400整除的整數(shù)年份。B、利用MOD運算可以判斷一個數(shù)能否被另一個數(shù)整