第2讲程序的结构一.pptVIP

* * 第二讲　程序的三种基本结构 一、顺序结构 二、选择结构 (if 、case) 三、循环结构(for、while、repeat) 例：输入三角形的三条边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 beg