第三讲、程序的基本结构

输入一个整数ａ，判断他的奇偶性。 例1:输入一个整数ａ，判断他的奇偶性。 输入一个整数ａ，判断他的奇偶性 是偶数输出“ｙｅｓ” 奇数输出“ｎｏ” （是偶数输出“ｙｅｓ”，奇数输出“ｎｏ”）。
方法一： 方法一： Var a:integer; Begin readln(a); If a mod 2 =0 then writeln(‘yes’) ； if a mod 2 <>0 then writeln(‘no’); End. 方法二： 方法二： 无“；” Var a:integer; Begin readln(a); If a mod 2 =0 then writeln(‘yes’) else writeln(‘no’); End.
例1：计算 ：计算1+2+3+……+99+100 i:循环控制变量 循环控制变量 var i,s:integer; 循环体： 循环体：重复执行 begin s:=0; for i:=1 to 100 do s:=s+i; writeln(s); end. 初值 终值
循环结构程序通常由三种循环语句来实 现。它们分别为 1）、FOR 循环 ）、FOR 2）、当循环 while ）、当循环 3）、直到 repeat循环。 循环。 ）、直到 repeat循环
一）、for语句 ）、 语句
1、for语句的一般格式： 、 语句的一般格式 语句的一般格式： for <控制变量 控制变量>:=<表达式 to <表达式 do <语句 表达式1> 表达式2> 语句>; 控制变量 表达式 表达式 语句 for <控制变量 控制变量>:=<表达式 downto <表达式 do <语句 表达式1> 表达式2> 语句>; 控制变量 表达式 表达式 语句 其中for、to、downto和do是Pascal保留字 保留字。 其中for、to、downto和do是Pascal保留字。 表达式1 与表达式2的值也称为控制变量的初值和终值。 表达式 与表达式 的值也称为控制变量的初值和终值。 的值也称为控制变量的初值和终值
数据类型： 数据类型：布尔型 （boolean） ） 一个布尔型数据用来存放逻辑值（布尔值）。布尔型的值 一个布尔型数据用来存放逻辑值（布尔值）。布尔型的值 ）。 只有两个： 错误)和 ），并且 的序号是0， 只有两个：false(错误 和true（正确），并且 错误 （正确），并且false的序号是 ， 的序号是 true的序号是 。false 和true都是预定义常数标识符，分别表 的序号是1。 都是预定义常数标识符， 的序号是 都是预定义常数标识符 示逻辑假和逻辑真。并且true>false。boolean是布尔型的标 示逻辑假和逻辑真。并且 。 是布尔型的标 识符。 识符。 如： var a，b：boolean； ， ： ； 如：a:=1;b:=2; 则表达式：a<=b的值是 则表达式： 的值是TRUE；a>b的值是 ； 的值是FALSE； ； 的值是 的值是 a+1=b的值是 的值是TRUE； 的值是 ； Var f：boolean； ： ； f：=a>b; ： Write（f）; 输出：FALSE （ ） 输出：
a+b+c p= 2
Readln(a,b,c) 读入边长
NO
A,b,c能否 能否 构成三角形? 构成三角形
YES
输出： 输出：
‘No answer’
求p，s， ， ， 输出面积
var a,b,c:integer; p,s:real; begin readln(a,b,c); if (a+b>c)and(a+c>b)and(b+c>a) 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.
输入两个数（均不为零）及一个算术运算符，输出其运算的结果 输入两个数（均不为零）及一个算术运算符， 程序代码： 程序代码： program ex3(input,output); var x,y,s:real; ch:char; begin writeln(‘input x & y & ch:’); readln(x,y); readln(ch); case ch of ‘+’:s:=x+y; ‘-‘:s:=x-y; ‘*’:s:=x*y; ‘/’:s:=x/y end; writeln(x,ch,y,’=’,s) end.
var x:real; begin readln(x); if x<0 then writeln(x*x:0:2) else if x=0 then writeln(0) else writeln(sqrt(x):0:2); end.
IF语句的嵌套 IF语句的嵌套 if语句中 如果then子句或else子句仍是一个if 语句中， then子句或else子句仍是一个if语 在if语句中，如果then子句或else子句仍是一个if语 则称为if语句的嵌套。 if语句的嵌套 句， 则称为if语句的嵌套。
布尔表达式：由关系运算符 布尔表达式： 和逻辑运算符连接成的表达 结果是布尔类型： 式。结果是布尔类型： TRUE或FALSE 或
Xor:异或其实就是对应的位, 不同就取1,想同就取0 21 二进制码: 0001 0101 2 二进制码: 0000 0010 xor: 0001 0111 (23)
（二）、选择结构：if 语句 ）、选择结构： 选择结构
三、循环结构
引例： 引例： 键入一个自然数N（ ），求这个自然数 键入一个自然数 （<10000），求这个自然数 ）， 的所有约数之和S （不包含1和n）。 的所有约数之和 不包含 和 ）。 如： 输入： 输入： 6 输出： s:longint; begin readln(n); s:=0; for i:=2 to n-1 do if n mod i=0 then s:=s+i; writeln(s); end.
无“；”
二、选择结构
(一)关系运算、逻辑运算及布尔表达式 一 关系运算 关系运算、 1.关系运算符（表示数值大小关系的运算符号） 关系运算符（表示数值大小关系的运算符号） 关系运算符
运算符 = <> < > <= >= 运算 等于 不等于 小于 大于 小于等于 大于等于 结果类型 布尔型 布尔型 布尔型 布尔型 布尔型 布尔型
有两种形式的IF语句： 有两种形式的 语句： 语句 <布尔表达式 布尔表达式> <语句 语句> (1) if <布尔表达式> then <语句>； (2) if <布尔表达式> then <语句1> else <语句2>； <布尔表达式> <语句1> 语句2>； 布尔表达式 语句 2> IF语句是由一个布尔表达式和一个或两个供选择的操作序列 语句是由一个布尔表达式和一个或两个供选择的操作序列 组成。运行时根据布尔表达式的求值结果， 组成。运行时根据布尔表达式的求值结果，选取其中之一的操 作序列执行。 作序列执行。 当布尔表达式的值为TRUE，则执行then后面的语句，值为 ，则执行 后面的语句， 当布尔表达式的值为 后面的语句 FALSE 时有两种情况： 时有两种情况： ；（2）执行else后面的语句。 后面的语句。 （1）什么也不做；（ ）执行 ）什么也不做；（ 后面的语句 注意: 注意 1、else前面的语句不能有分号；2：如果语句部分是复合语 前面的语句不能有分号； ： 、 前面的语句不能有分号 多于一条语句），则必须用begin与end括起来。 ），则必须用 括起来。 句（多于一条语句），则必须用 与 括起来
第三讲 程序的三种基本结构
王桐林 寿光现代中学
一、顺序结构 二、选择结构 (if 、case) 三、循环结构(for、while、repeat) 循环结构(for、while、
一、顺序结构
例：输入三角形的三条边a，b，c，输出三角形的 输入三角形的三条边 ， ， ， 面积。（ ，b，c是正整数 面积。（a， ， 是正整数<100，满足三角形条件） ，满足三角形条件） 。（ 是正整数
布尔运算) 2、逻辑运算 (布尔运算)
运算符 not and or xor 运算 逻辑非（取反） 逻辑非（取反） 逻辑与（并且） 逻辑与（并且） 逻辑或（或者） 逻辑或（或者） 逻辑异或 运算对象 布尔型 布尔型 布尔型 布尔型 结果类型 布尔型 布尔型 布尔型 布尔型
如：a：=1；b：=2；c:=3; ： ； ： ； 1）、 ）、Not(a>b) ）、 2）、（ ）、（a<b）and （b<c） ）、（ ） ） 3）、（ ）、（a<b）and （b>c） ）、（ ） ） 4）、（ ）、（a<b）or （b<c） ）、（ ） ） 5）、（ ）、（a<b）or（b>c） ）、（ ） （ ） 6）、（ ）、（a<b）xor（b<c） ）、（ ） （ ） 7）、（ ）、（a<b）xor（b>c） ）、（ ） （ ）
var a,b,c:integer; d,x1,x2:real; begin readln(a,b,c); d:=b*b-4*a*c; if d<0 then writeln('no answer'); if d=0 then writeln('x=',-b/(2*a):0:2); if d>0 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.