《学生自己看--选择结构程序设计》由会员分享，可在线阅读，更多相关《学生自己看--选择结构程序设计（17页珍藏版）》请在金锄头文库上搜索。
1、程序设计初步（二）,选择结构程序设计,二、Pascal 语言的关系表达式、逻辑表达式 1 关系符号： = 、 = 、= 、 、 2 逻辑运算符： NOT 、 AND 、 OR 3 关系运算逻辑运算的结果 ：布尔值，false , true 4 计算下列关系表达式的值： （1）a := 4 ; b:= -6 ; ch1:= e ; ch2:= y ; t : = a+b5 ; h:=a=b ; b1:=ch1ch2 ; b2:=ch1ch2 ; writeln( t:6 , h:6 , b1:6, b2:6) ;,（2）d:= 5 ; f := -8 ; x:=-3 ; y:= 4 ; b1:=
2、 ( d -4) ; b2 : = ( x 0) ; writeln( b1:10,b2:10 ) ; 5 求下列表达式的值： x:=4 ; y:=5 ; z:=6 ; b1:=true ; b2:=false ; b3:=true ; (1) x+3*y -6*2 ; (2) ( x 6 ) or (y y ) ;,选择结构程序设计 一、复习： 用计算机解决问题的步骤： （1） 分析问题求解要求 （2） 数据输入的要求：变量类型、变量个数等 （3） 数据输出要求：哪些变量、形式 （4） 问题求解中数据处理的方法：算法,例如：输入a, b 两个数，并输出；然后交换两个变量的值，再输出。 问题分
3、析： （1） 输入什么：两个数 a , b : integer ; （2） read ( a, b ) ; （3） 输出什么：writeln( a= , a , b= , b ) ; （4） 交换的方法 （5）输出什么：交换后的a , b 的值 程序：,program exp5_2 ; var a, b , t : integer ; begin write( input a , b ) ; read ( a , b ) ; writeln ; writeln( a= : 5 , a : 5 , b= : 5 , b : 5 ) ; T:=a ; a := b ; b:= T ; writel
4、n( a= : 5 , a : 5 , b= : 5 , b : 5 ); end.,问题提出：输入两个数，按从大到小的顺序输出。 二、IF 语句 （ 条件语句 ） （1） IF 语句的简单结构 IF 条件THEN 命令1 ELSE 命令2 ； （2） IF 语句的复合结构： IF 条件 THEN 一组命令 ELSE 另一组命令 ； 例如： （1） IF X= 0 THEN Y:= Y+1 ELSE B:=B-1 ;,（2） 输入一个数，统计大于零的个数，程序段： read(x) ; if x 0 then n:=n+1 ; （3）判断一个数是正数、负数，程序段： read(x) ; if x
5、0 then writeln( x , 0 ) else writeln( x , 0 ) ; 三、条件语句中条件表示方法： （1） 用关系表达式：，=，=， （2） 用逻辑运算符：NOT、AND、OR （3） 运算的结果：逻辑值true , false,四、 条件语句的执行过程： IF THEN ELSE ；,IF 条件 THEN 语句 ； 其执行过程如下：,五、条件语句的应用： 例题3 火车托运行李，根据行李的重量按不同标准收费： 不超过50kg ，每公斤按0.35元收费，若超过50kg，其中50kg按每公斤0.35元收费，其余超过的部分按每公斤0.50元收费，请编写一个程序，要求输入行李
6、重量，计算并输出应付的托运费。 分析： （1）首先需要输入行李的重量 ，设为W ； （2）根据题意，列出计算的表达式，设托运费为 y ，则： y= 0.35 * w w 50 ; （3）输出行李重量和应付的款,Program exp5_3 ; 程序首部 var w :integer ; y : real ; 说明部分 begin write( input weight w : ) ; read( w) ; 数据输入 writeln ; if w=50 then y:= w*0.35 else y:= 50*0.35 +(w-50)* 0.5 ; 计算处理 writeln( w= , w , y
7、= , y ) ; 输出 end.,例题4 输入一个数，判断它是负数还是非负数 讨论分析，写出程序 例题5 输入两个字符，按字典顺序排列 例题6 输入一个数，如果是负数则求它的绝对值，否则求它的平方根 例题7 输入三个数，按照从大到小的顺序排列 六、复合语句： 如果 THEN 或 ELSE 后的语句不止一条，这时必须要用复合语句来完成。 复合语句格式： begin 语句1； 语句2 ； end ;,起着括号作用,例题6 求一元二次方程的根 ax2+bx+c =0 如：X 2+ 3X+ 2= 0 该题的根是 X1= -1 ，X2= -2 其方法是： （1）输入a , b , c （a 0 ) （
8、2） 计算 d:= b*b 4*a*c （3）判断 d=0 求 X1， X2 X1：= （-b + sqrt( d) )/(2*a) ; X2：= （ -b- sqrt(d)/(2*a) ; 否则输出无解 （4）程序 ：,七、作业： 1 输入a , b 两个数，输出它们中的最小数 2 输入三个数，输出最小数 3 编一个程序，判断一个数是奇数还是偶数 4 设一元一次方程的标准形式为： ax + b =0 , 编写一个程序求一元一次方程的根（即求x的值 ） 5 求一元二次方程的根 ax2+bx+c =0 6 输入三个数 ，求它们的和及平均值 （ 设三个数为实数 ，输出时小数保留2位） 输入三个字符，按字典顺序排列 8 输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。,二、pascal语言程序输入、编译、运行、保存的一些技巧 新建文件 程序输入中的技巧和问题 ： （1）注意语法和符号； （2）复制和粘贴 （3）移动处理 （4）加入注解 （5）程序输入的结构 程序编译时出错调式：语法错误 程序运行时出错调式：数据输入错误、公式应用出错、无限循环错误等 保存文件的方式：保存、另存,编译的作用以及如何生成EXE文件 使用“操作菜单”、“窗口菜单” 如何使用“帮助菜单” 屏幕切换、窗口切换,
