最新练习册 分支结构例题解析

3.3、输入一个数，如果是正数，就输出它的平方根；如果是负数，就输出它的绝对值。

[思路点拔]注意本题没有涉及0的情况，所以容易犯的是直接用一个if…then…else…语句做，其实只要用两个简单的if语句分别判断正负即可。

[参考程序]

program ex3_3;

var x:real;

begin

readln(x);

if x>0 then writeln(sqrt(x):8:1);

if x<0 then writeln(abs(x;8;1));

readln;

end.

3.4、输入两个大写字母，按字典顺序输出。

[思路点拔]定义两个字符型变量，直接比较大小进行输出。字符的大小就是以ASCAL 码大小为准，也就是字典顺序。

[参考程序]

Programex3_4;

var a,b:char;

begin

rreadln(a,b);

if a

else writeln(b,a);

readln;

end.

3.5、某商店举行“购物打折”活动。规定购物总价不超过100元按9折付款，如果超过100元，则超过部分按7折付款。请编写一个程序帮助超市完成打折结账。

[思路点拔]本题容易错的就是超过100元时，超过了部分打7折，而忽略了基准的100元也要打9折（即90元）。

[参考程序]

program ex3_5;

var s:,i:real;

begin

readln(i); //读入总价

if i<100 then s:=i*0.9

else s:= 100*0.9 +(i-100)*0.7 //计算打折后的总价

writeln(s:8:2);

readln;

end.

3.6、见书p14

3.7、输入三角形的3个边长，判断它是直角三角形，等边三角形还是普通三角形。

[思路点拔]本题已经假设是一个三角形了，所以只要判断它的3条边的关系，是否满足直角三角形（勾股定理：a2+b2=c2）或等边三角形（a=b=c），都不满足就当作是普通三角形。主要考查分支结构的嵌套。

[参考程序]

program ex3_7;

var a,b,c:integer;

begin

readln(a,b,c);

if (a+b>c) or (a+c>b) or (b+c>a) then writeln(‘data input error’) //判断输入数据是否错误

不能构成三角形

else if (sqr(a)+sqr(b)=sqr(c)or sqr(a)+sqr(c)=sqr(b)orsqr(b)+sqr(c)=sqr(a))

then writeln(‘zhijiao’)//不能确定斜边是哪个，可

能有三种所以用or运算

else if (a=b) and (b=c) and (a=c) then writeln(‘dengbian’)

//不能写成连等的形式a=b=c

else writeln(‘putong’);

readln;

end.

3.8、从键盘输入3个整数，按从小到大的顺序输出。

[思路点拔]本题的方法也比较多，既可以直接比较三个数的大小关系，按要求输出；也可以能能过交换三个数，使得a<=b<=c；然后依次输出a,b,c。

[参考程序]

program ex3_8;

var a,b,c,,t:integer;

begin

if a>b then begin //保证a

t:=a;a:=b:b:=t;

end;

if c

t:=a;a:=c:c:=t; // 把c插在a前面

end;

else if c

t:=b;b:=c:c:=t; //把c插在a和b之间

end;

writeln(a,’’,b,’’c);

readln

end.

program ex3_8;

var a,b,c,,t:integer;

begin

if a

else if c

else writeln(a,c,b)

else if c

else if a

else writeln(b c,a);

readln;

end.

3.9、从键盘输入一个字符，如果是‘Y ’,则再换一行输入一个正数，表示一个圆的半径，计算并输出此圆的周长和面积；如果是‘S ’则再换一行输入3个用空格隔开的正数，表示一个三角形的3个边长，计算并输出此三角形的周长和面积；若输入是‘J ’则再换一行输入2个空格隔开的正数，表示一个矩形的长和宽，计算并输出此矩形的周长和面积。

[思路点拔]本题带有简单的交互性，只要利用3条if 语句分别判断处理即可。其中还考查了圆、三角形、矩形的周长和面积计算公式，尤其是三角形面积计算公式（海伦公式）为：S=

))()((c p b p a p p ---，其中p 称为半周长，即p=(a+b+c)/2。

[参考程序]

program ex3_9;

const pi:=3.1415926; var ch:char; r,a,bc,p:real; begin

writeln(‘please input one character:’); //增加屏幕上的提示信息，以增强交互性 rreadln(ch);

if ch=’y ’ then begin

readln(r);

writeln(‘zhouchang:’,2*pi*r:8:1); writeln(‘mianji:’,pi*r*r:8:1); end; if ch=’s ’ then begin

readln(a,b,c);

writeln(‘zhouchang:’,a+b+c); p:=(a+b+c)/2 ;

writeln(‘mianji:’,s:sqrt(p*(p-a)*(p-b)*(p-c)):8:1); end; if ch=’j ’ then begin

readln(a,b);

writeln(‘zhouchang:’,a+b); writeln(‘mianji:’a*b) ; end; readln; end.

3.10、输入两具正整数A 、B,A 不大于31，B 不超过三位数。使A 在左，B 在右，拼接成一个新数C ，再输出C 值。例如A=2,B=16,则C 为216.若A=18,B=467,则C 为18467.

[思路点拔]本题就是要对B 值范围进行分类处理，如果B 是一位数，则结果就是

A*10+B ，如果B 是两位数，则结果就是A*100+B;否则（B 是三位数）结果就是A*1000+B.之所以A 不大于31，是为了最后的结果不超过integer 类型的范围。

[参考程序]

program ex3_10; var a,b,c:integer; begin

writeln(‘please input A δB （a<=31）:’);

readln(a,b);

if b<10 then c:=a*10+b

else if b<100 then c:=a*100+b

else c:=a*1000+b;

writeln(c);

end.

3.11、小林有69元钱，准备全部购买笔。店里有8元、6元、5元、4元一支的四种笔。请编程，在8元一支的笔必须购买一支的前提下，使购买的笔数量最多，而钱又恰恰好用完，输出此时购买的各种笔的数量。

[思路点拔]8元的笔必须买一支，所以只要考虑剩下的61元钱买哪些笔。显然要尽量买便宜的（4元一支的），则应该少买一支4元的而去买一支5元的；如果最后剩2元钱，则应该少买一支4元的而去买一支6元的；如果最后剩3元钱，则应该少买两支4元的而去各买一支5元的和6元的。

[参考程序]

program ex3_11;

var money,total:integer;

begin

money:=69-8;

writeln(‘8 yuan:1’); //先买一支8元的

if money mod 4 =0 //全部买4元的

then writeln(‘4 yuan :’,money div 4)

else if money mod 4=1 then begin //买一支5元的

writeln(‘4 yuan:’,money div 4-1);

writeln(‘5 yuan:1’)

end;

else if money mod 4=2

then //买一支6元的

begin

writeln(‘4 yuan:’,money div 4-1);

writeln(‘6 yuan:1’);

end;

else begin //各买一支5元和6元的

writeln(‘4 yuan:, money div 4-2’);

writeln(‘5 yuan:1’);

writeln(‘6 yuan:1’);

end;

writeln(‘max=’,money div 4 +1); //输出笔的数

readln;

end.

3.12从键盘输入任意一个字符，判断并输出是大写字母、小写字母、数字还是其他特殊字符。

[思路点拔]由于字符型是有序类型，所以定义一个字符型变量ch，如果‘A’<=CH<=‘Z’，则ch是大写字母；如果‘0’<=CH<=‘9’，则ch是数字；否则是其他特殊字符。当然也可以通过比较字符的ASCALL码值（ord(ch)）来判断，ord(ch)在65~90之间的为大

写字母，在97~122之间的为小写字母，在48~57之间的为数字。

[参考程序]

program ex3_12;

var ch:char;

begin

readln(ch);

if (ch>=’A’) and (ch <=’Z’) //注意不能写成‘A’<=CH<=‘Z’

then writeln(‘DXZM’)

else if (ch>=’a’) and (ch<=’z’)

then writeln(‘XXZM’)

else if (ch>=’0’) and (ch<=’9’) then writeln(‘SHUZI’)

else writeln(‘teshuzifu’);

readln;

end.

3.13、使用CASE语句实现“输入一个年份，判断并输出它是否是闰年”。

[思路点拔]程序设计与应用教材上已经分析过用IF语句求解本题的方法，这儿只是换一种语句实现。

[参考程序]

Program ex3_13;

Var year :integer;

begin

writeln(‘please input year:’);

readln(year);

case year mod 4 of

1,2,3:writeln(‘no’);

0:if (year mod 100<>0) or (year mod 400=0) then writeln(‘yes’)

else writeln(‘no’);

end;

readln;

End.

3.14、了解我国个人所得税的税率，再编程输入一个人的收入，输出他应交纳的个人所得税。

[思路点拔]目前，我国的个人所得税起征点为2000元，也就是说月收入2000元以内是不用交个税的，超过2000元的部分税率如下表：

现在我们把问题简化，只考虑前3级，超过5000就都按20%算，问题就只需要用IF 语句的嵌套解决。

[参考程序]

program ex3_14;

var a:real;

begin

writeln(‘please input shouru:’);

readln(a);

if a<=2000 then writeln(‘0.00’)

else if a<=2500 then writeln((a-2000)*0.05:8:2)

else if a<=4000 then writeln(500*0.05+(a-2500)*0.10:8:2)

else if a<=7000 then

writeln(500*0.05+1500*0.10+3000*0.15+(a-4000)*0.15:8:2)

else

writeln(500*0.05+1500*0.10+3000*0.15+(a-7000)*0.2:8:2);

readln;

end.

3.15、输入一个年和月，输出该年该月的天数。

[思路点拔]某年某月的天数分为以下3种情况：

1、每年的1、3、5、7、8、10、12 这七个月每月都为31天，

2、每年的4，6，9，11这四个月每月都为30天，

3、2月份的情况比较复杂，分为两种情况：闰年为29天，平年为28天。

然后问题就变成了一个CASE语句分3种情况分别进行处理。对于第3种情况，还要用IF语句判断是否为闰年。

[参考程序]

Program ex3_15;

Var year ,month,len :integer;

Begin

Writeln(‘please input year&month: ’);

Readln(year,month);

Case month of

1,3,5,7,8,10,12:len:=31;

4,6,9,11:len:=30;

2:if (year mod 4=0) and (year mod 100<>0) or (year mod 400=0)

Then len:=29

Else len:=28

End;

Writeln(len);

Readlnln;

End.