程序的结构一1.ppt

第二讲 程序的三种基本结构 一、顺序结构 二、选择结构 (if 、case) 三、循环结构(for、while、repeat) 例：输入三角形的三条边a，b，c，输出三角形的 面积。（a，b，c是正整数c)and(a+cb)and(b+ca) then begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c); writeln(s:0:2); end else writeln(No answer); end. 无“；” 二、选择结构 (一)关系运算、逻辑运算及布尔表达式 1.关系运算符（表示数值大小关系的运算符号） 运算符 运算 结果类型 = 等于 布尔型 b; Write（f）; 输出：FALSE 数据类型：布尔型 （boolean） 一个布尔型数据用来存放逻辑值（布尔值）。布尔型的值 只有两个：false(错误)和true（正确），并且false的序号是0 ，true的序号是1。false 和true都是预定义常数标识符，分别 表示逻辑假和逻辑真。并且truefalse。boolean是布尔型的 标识符。 如： var a，b：boolean； 2、逻辑运算 (布尔运算) 运算符 运算 运算对象 结果类型 not 逻辑非（取反） 布尔型 布尔型 and 逻辑与（并且） 布尔型 布尔型 or 逻辑或（或者） 布尔型 布尔型 xor 逻辑异或 布尔型 布尔型 如：a：=1；b：=2；c:=3; 1）、Not(ab) 2）、（ac） 4）、（ac） 6）、（ac） 布尔表达式：由关系运算符 和逻辑运算符连接成的表达 式。结果是布尔类型： TRUE或FALSE （二）、选择结构：if 语句 有两种形式的IF语句： (1) if then ； (2) if then else ； IF语句是由一个布尔表达式和一个或两个供选择的操作序列 组成。运行时根据布尔表达式的求值结果，选取其中之一的操 作序列执行。 当布尔表达式的值为TRUE，则执行then后面的语句，值为 FALSE 时有两种情况： （1）什么也不做；（2）执行else后面的语句。 注意: 1、else前面的语句不能有分号；2：如果语句部分是复合语 句（多于一条语句），则必须用begin与end括起来。 例1:输入一个整数，判断他的奇偶性。 （是偶数输出“”，奇数输出“”）。 方法一： Var a:integer; Begin readln(a); If a mod 2 =0 then writeln(yes) ； if a mod 2 =0，再区分x=0，还 是x0。 var x:real; begin readln(x); if x0,输出方程的解(考虑各种情况)。保留两位小 数。 (1):如果无实数解输出：no answer; (2):相同的实数解：输出一个即可。 (3):两个不同的实数解：分别输出。 如： 输入： 1 3 2 输出： X1=-1.00 X2=-2.00 输入: 1 2 1 输出: X=-1.00 var a,b,c:integer; d,x1,x2:real; begin readln(a,b,c); d:=b*b-4*a*c; if d0 then begin x1:=(-b+sqrt(d)/(2*a); x2:=(-b-sqrt(d)/(2*a); writeln(x1=,x1:0:2); writeln(x2=,x2:0:2); end; end. 引例： 键入一个自然数N（:= to do ; for := downto do ; 其中for、to、downto和do是Pascal保留字。 表达式1 与表达式2的值也称为控制变量的初值和终值。 例1：计算1+2+3+99+100 var i,s:integer; begin s:=0; for i:=1 to 100 do s:=s+i; writeln(s); end. For语句执行过程 先将初值赋给左边的变量i（称为循环控制变量）； 判断循环控制变量的值是否已“超过”终值，如已超过，则跳到 步骤； 如果末超过终值，则执行do后面的那个语句（称为循环体）； 循环变量自动递增（对to）； 返回步骤； 循环结束，执行循环下面的一个语句。 循环体：重复执行 初值 i:循环控制变量 终值 1）、通常将一组重复执行的语句称 为循环体，而控制重复执行或终止执行 由重复终止条件决定。 2）、 重复语句是由循环体及重复 终止条件两部分组成。 例2、求100-999中的水仙数。 （若三位数abc，a3+b3+c3=abc，则称abc为水仙数 。如153，13+53+33=1+125+27=153，则153称为 水仙数）。 var n,a,b,c:integer; begin for n:=100 to 999 do begin a:=n div 100; b:=(n div 10) mod 10; c:=n mod 10; if n=a*a*a+b*b*b+c*c*c then