Object Pascal语言及语法基础.ppt

　　分析：该题是数学中比较常见的一个分段函数，当x≤－5时，执行x+9；当－5x≤7时，执行x2－5；当x7时，执行3x－8，流程如图2.2.6所示。　　设计步骤如下： 　　1）界面设计（略）。 　　2）单击按钮事件的程序代码如下： 图2.2.6 分段函数流程图 procedure TForm1.Button1Click(Sender: TObject);Var 　x,y:real;begin 　 x:=strtofloat(edit1.text); 　if x=-5 then 　 y:=x+9 　　　else if x7 then 　　　　 y:=3*x-8 　　　 else 　　　　 y:=x*x-5;　　Label1.Caption:=‘y的值为’+floattostr(y);　　end;　　此例是一个较简单的复合条件语句，下面是一个稍微复杂的复合条件语句。 　　例2.25 成绩等级判断，输入成绩判断其等级。90～100分的成绩为“优”；80～89分的成绩为“良”；70～79分的成绩为“中”；60～69分的成绩为“及格”；60分以下的成绩为“不及格”。编写程序实现其功能。运行界面如图2.2.7所示。 图2.2.7 成绩等级判断界面 根据题意画出流程图，如图2.2.8所示。设计步骤如下： 1）界面设计（略）。 2）单击按钮事件的程序代码如下： 图2.2.8 成绩等级判断流程图 procedure TForm1.Button1Click(Sender: TObject);Var 　r:real;begin 　 r:= strtofloat(edit1.Text ); 　if (r=100) and (r=90) then 　　Label1.Caption:= ‘成绩等级结果为优’ else 　if r=80 then 　 Label1.Caption:= ‘成绩等级结果为良’ else 　if r=70 then 　 　Label1.Caption:= ‘成绩等级结果为中’ 　else 　　if r=60 then Label1.Caption:= ‘成绩等级结果为及格’ else Label1.Caption:= ‘成绩等级结果为不及格’;end; 　　2．case语句　　case语句是一种可读性非常强的多分支选择结构语句。if语句一般多应用于双分支、三分支选择结构，但对于多分支结构，if语句十分烦琐，使用case语句可以简化程序的编写。case语句的语法格式如下：　　case 选择表达式 of  　　情况常量1 : 语句1; 　　 情况常量2 : 语句2;　　 … 　　 情况常量n : 语句n;　　[else 　　其他语句;]　　end;　　其中，case，of，else是保留字；选择表达式和情况常量的值是有序类型，如整型、字符型、布尔型和子界型等，但是选择表达式和情况常量的类型要一致，情况常量的值必须不同；语句可以为简单语句也可以为复合语句。 　　执行此语句时，当选择表达式与情况常量1，情况常量2，…，情况常量n相同时，执行情况常量相对应的语句。case语句的结构流程如图2.2.9所示。 图2.2.9 case语句的结构流程图 　　例2.26 用case语句解决例2.25成绩等级判断问题。　　分析：当成绩在90～100分时显示为“优”，当成绩在80～89分时显示为“良”，当成绩在70～79分时显示为“中”，当成绩在60～69分时显示为“及格”，当成绩在60分以下时显示为“不及格”。　　根据分析画出成绩等级判断流程图，如图2.2.10所示。　　设计步骤如下： 　　 1）界面设计（略）。 图2.2.10 case语句成绩等级判定流程图 2）单击按钮事件的程序代码如下：procedure TForm1.Button1Click(Sender: TObject);Var 　i:integer;begin 　i:=strtoint(edit1.Text); 　case i of 　90..100:Label1.Caption:= ‘成绩等级结果为优’; 　80..89:Label1.Caption:= ‘成绩等级结果为良’; 　70..79:Label1.Caption:= ‘成绩等级结果为中’; 　60..69:Label1.Caption:= ‘成绩等级结果为及格’;