课件pascal语言讲选择结构.pdfVIP

一、顺序结构

例：输入三角形的三条边a，b，c，输出三角形的

面积。（a，b，c是正整数100，满足三角形条件）

a+b+c

p

2

sp(p−a)(p−b)(p−c)

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，如果能构成三

角形则输出三角形的面积;如果不能构成三角形则输

出提示信息”Noanswer”.

a+b+c

p

2

sp(p−a)(p−b)(p−c)

Readln(a,b,c)

读入边长

NOYES

A,b,c能否

构成三角形?

输出：求p，s，

‘Noanswer’输出面积

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

无“；”

elsewriteln(‘Noanswer);

end.

二、选择结构if/case

选择结构：if语句布尔表达式：由关系运算符

和逻辑运算符连接成的表达

有两种形式的IF语句：式(判断)。结果是布尔类型：