四選擇結(jié)構(gòu)程序設(shè)計(jì)

1、四 選擇結(jié)構(gòu)程序設(shè)計(jì),廈大附中信息技術(shù),內(nèi)容提要,IF語(yǔ)句,IF語(yǔ)句的一般形式如下： 格式一：if 條件 then 語(yǔ)句； 格式二：if 條件 then 語(yǔ)句1 else 語(yǔ)句2；,,IF語(yǔ)句,例：輸入一個(gè)年份，判斷它是否為閏年。 program p4_1(input,output); var year:integer; leap:boolean; begin

2、 write(‘input year:’); readln(year); leap:=false; if year mod 4=0 then leap:=true; if (year mod 100=0) and (year mod 4000) then leap:=false; if leap th

3、en writeln(year,’is leap’) else writeln(year,’is not leap’); end.,IF語(yǔ)句的嵌套,嵌套的一般格式如下： if 條件1 then if 條件2 then 語(yǔ)句21 else 語(yǔ)句22 els

4、e if 條件3 then 語(yǔ)句31 else 語(yǔ)句32；,,,內(nèi)嵌if語(yǔ)句,內(nèi)嵌if語(yǔ)句,IF語(yǔ)句的嵌套,例：有一個(gè)函數(shù) -1 x0試編寫一個(gè)程序，輸入x的值，輸出y的值。,,參考程序,Program p4_2 (input,output); var x:real;

5、 y:integer; begin write(‘please input x=’); readln(x); if x0 then y:=1 else y:=0; writeln(‘y=’,y); end.,CASE語(yǔ)句,case語(yǔ)句的一般形式如下： case

6、 表達(dá)式 of 常數(shù)表1：語(yǔ)句1； 常數(shù)表2：語(yǔ)句2； 常數(shù)表3：語(yǔ)句3； …… ：…… 常數(shù)表n：語(yǔ)句n; else 語(yǔ)句n+1; end;,CASE語(yǔ)句,說(shuō)明：（1）當(dāng)表達(dá)式中的值

7、與常數(shù)表中某一值相匹配，則執(zhí)行其后面的相應(yīng)語(yǔ)句；如果常數(shù)表中沒有與表達(dá)式相匹配的常數(shù)，則執(zhí)行else后面的語(yǔ)句。（2）else可以省略，此時(shí)若無(wú)表達(dá)式的值與之相匹配的常數(shù)表時(shí)程序?qū)⑾蛳逻\(yùn)行并跳出case語(yǔ)句。（3）保留字end與保留字case成對(duì)出現(xiàn)，這個(gè)end表示case語(yǔ)句的結(jié)束。（4）表達(dá)式的類型通常是整型與字符型，也可以是枚舉型和子界型。（5）常數(shù)表是一個(gè)或一組常量，其類型與表達(dá)式類型一致，常數(shù)表行的次序是任意的，不一定

8、要按從小到大或者從大到小的次序排列。,設(shè)計(jì)一個(gè)簡(jiǎn)單的計(jì)算器,例：設(shè)計(jì)一個(gè)簡(jiǎn)單的計(jì)算器，具有加、減、乘、除功能。 program p4_3(input,output); var x,y,s:real; ch:char; begin writeln(‘input x,y,ch:’); readln(x,y);

9、readln(ch); case ch of ‘+’ : s:=x+y; ‘-’ : s:=x-y; ‘*’ : s:=x*y; ‘/’ : s:=x/y; end; writeln(x:8:2,ch,y:8:2,’=’,s:8:3); end.

10、,建議：不同類型的數(shù)據(jù)輸入、輸出最好能分開,program p4_4(input,output); var x,y,s:real; ch:char; begin writeln(‘input x:’); readln(x); writeln(‘input ch:’); readln(ch);

11、 writeln(‘input y:’); readln(y); case ch of ‘+’ : s:=x+y; ‘-’ : s:=x-y; ‘*’ : s:=x*y; ‘/’ : s:=x/y; end; write