第05讲分支结构习题.pptVIP

澄中程序设计兴趣小组 第05讲 简单的分支结构程序设计(一)习题解析 分支结构的重点 分支结构的特点是：根据给定的条件判断在两条甚至更多的可能路径中选择一条，两条路径分别做不同的处理，即如果条件成立那么执行A语句，不成立则执行B语句。 分支结构的重点是: 用适当的布尔表达式对当前的情况进行判断,进行分支处理 习题一 铁路托运行李规定：行李重不超过50公斤的，托运费按每公斤0.15元计费；如超50公斤，超过部分每公斤加收0.10元。编一程序完成自动计费工作。 分析:我们根据行李的重量把托运费用分成两种情况超过50公斤的和不超过50公斤的情况; If m50 then x:=50*0.15+(m-50)*0.25//重量超过50公斤 else x:=m*0.15//重量不超过50公斤的情况 注意:同学们一定要注意X为实数 real,m为整数类型 integer; 参考程序一 Program p3_1(input,output); Var m:integer;//行李重量 x:real;//运费 Begin 　　Writeln(‘please input m’); 　　Readln(m); 　　If m50 then 　　x:=50*0.15+(m-50)*0.25//重量超过50公斤　　else 　　x:=m*0.15//重量不超过50公斤的情况 　　Writeln(‘the total money is’,x:8:2);//输出花费 End; 注x:8:2表示实数x输出的时候总共占八位,小数点后面保留两位,这样的结果比较整齐 习题二 例2:判断一年是否是闰年 提示:闰年为年数是4的倍数但不是100的倍数或者是400的倍数 分析 我们对闰年的判断可以用布尔表达式 (Year mod 4=0)and(year mod 1000)or (year mod 400=0) 来实现 参考程序二 Program p3_2(input,output); Var year:integer; Begin 　　Writeln(‘please input year’); 　　Readln(year); 　　If (Year mod 4=0)and(year mod 1000)or (year mod 400=0) 　　then writeln( ‘this year is a leap year’)　//是闰年 　　else writeln(‘this year is not a leap year’);　//不是闰年 End; 习题三 输入一个小于10000的数字，判断它的位数 例如： 输入 899 输出3 输入 7777 输出4 分析: 首先我们对输入的数字进行判断是否小于10000(num10000)如果不满足条件则输出提示,中断程序,如满足条件进行下面的判断,是不是一位数,是不是两位数,是不是三位数,是不是四位数… 参考程序三 Program p3_3(input,output); Var num:integer; Begin 　　Writeln(‘please input a num’); 　　Readln(num); 　　If (num=10000)or(num=0) 　then 　　writeln(‘you input a wrong num’) else 　　　Begin 　　　　if num10 then write(‘1’); 　　　　if (num=10) and (num100) then writeln(‘2’); 　　　　If (num=100) and (num1000) then writeln(‘3’); 　　　　If (num=1000)and (num10000) then writeln(‘4’); 　　　End; End. 请大家想想为什么这样写,我们需要注意那些地方 4)编写一与电脑猜红或黑的游戏。 　分析：用１代表红，０代表黑。先由计算机先出答案，然后再由人猜，猜对输出YOU WIN否则输出YOU LOST。为了模拟猜红或黑的随意性，程序中需要用到随机函数random(n)。 　　函数是什么呢，例如大家都知道|-2|=2，|58|=58，那么|x|=?。　　如果我们用y表示|x|，那么 .这里y=|x|就是一个函数，也就是说函数是一个关于一个或多个自变量（未知量，如上例中的x）的运算结果。　　在pascal语言中，系统提供了许多内部函数，其中包括|x|函数，当然它用abs(x)表示。我们如果要求x2-y的绝对值，可以调用内部函数abs(x*x-y)即可求得。Random(n)也是一个内部函数，调用它