苏科版初中信息技术选修《选择结构》课件ppt.pptVIP

第二讲 选择结构 程序的三种基本结构： 顺序结构 选择结构（if 、case） 循环结构（for、while、repeat） 例4： 输入两个运正算数[0..30000]和一个运算符号（+、-、*、/）。/的结果小数点后保留3位小数。 输出运算结果。 样例输入： 10 20 + 样例输出： 30 var a,b:integer; k:char; begin readln(a,b); readln(k); if k=+ then writeln(a+b); if k=-‘ then writeln(a-b); if k=*‘ then writeln(a*b); if k=/ then writeln(a/b:0:2); end. var a,b:integer; k:char; begin readln(a,b); readln(k); case k of +: writeln(a+b); -: writeln(a-b); *: writeln(a*b); /: writeln(a/b:0:2); end; end. case语句（分情况语句） 格式： case 表达式 of 情况1:语句1； 情况2:语句2； …… 情况n:语句n； else 语句n+1； end； var a,b:integer; k:char; begin readln(a,b); readln(k); case k of +:writeln(a+b); -:writeln(a-b); *:writeln(a*b); /:if b=0 then writeln(error) else writeln(a/b:0:2); else writeln(error); end; end. 快捷键： 保存F2； 编译F9；运行ctrl+F9； 看结果Alt+F5. 程序的书写格式： 缩2个格 begin end的配对 工作目录的设置 * 例：输入三角形的三条边a，b，c，输出三角形的面积。（a，b，c是正整数100，满足三角形条件） 一、顺序结构 var a,b,c:integer; p,s:real; begin readln(a,b,c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s:0:2); end. 程序从第一句开始，依次顺序执行语句直到结束，中间无分支和循环，这种程序结构称为顺序结构 Readln(a,b,c) 读入边长 求p 求s 输出面积s 流程图 改进： 输入三角形的三条边a，b，c，如果能构成三角形则输出三角形的面积;如果不能构成三角形则输出提示信息”No answer”. Readln(a,b,c) 读入边长 A,b,c能否 构成三角形? 求p，s， 输出面积 输出： ‘No answer’ YES NO var a,b,c:integer; p,s:real; begin readln(a,b,c); if (a+bc)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. 无“；” 选择结构：if 语句　　有两种形式的IF语句：　　(1) if 布尔表达式 then 语句；　　(2) if 布尔表达式 then 语句1 else 语句2； IF语句是由一个布尔表达式和一个或两个供选择的操作序列组成。运行时根据布尔表达式的求值结果，选取其中之一的操作序列执行。 　　当布尔表达式的值为TRUE，则执行then后面的语句，值为FALSE 时有两种情况： （1）什么也不做；（2）执行else后面的语句。 注意: 1、else前面的语句不能有分号；2：如果语句部分是