: Begin 语句1 〈语句1〉; … ; 语句n 〈语句n〉; End ;
5.3.2 常见声明语句
凡是程序要用到的标号、常量、变量、类型、 凡是程序要用到的标号、常量、变量、类型、过 函数等都要先在程序的Type Type区域或子程序的 程、函数等都要先在程序的Type区域或子程序的 Begin语句之前声明 这就要用到声明语句。 语句之前声明, Begin语句之前声明,这就要用到声明语句。常 用的声明
语句有: 用的声明语句有: 1.标号声明语句 1.标号声明语句 2.类型声明语句 2.类型声明语句 3.过程声明语句 3.过程声明语句 4.函数声明语句 4.函数声明语句
5.3.3 赋值语句和程序的顺序结构
1.赋值语句 1.赋值语句 : {〈变量名〉|〈属性名〉} :=〈表达式〉; 变量名〉 属性名〉 :=〈表达式〉 2.顺序结构 2.顺序结构 顺序结构是程序设计中最简单、最常用的结构。 顺序结构是程序设计中最简单、最
常用的结构。 在该结构中,各程序段按照出现的先后顺序依次 在该结构中, 执行,不产生程序流程的其他转移。 执行,不产生程序流程的其他转移。它是所有程 序的主体结构,即使在选择结构或循环结构中, 序的主体结构,即使在选择结构或循环结构中, 也常以顺序结构作为其子结构。 也常以顺序结构作为其子结构。
【例5.1】 求一个任意三角形的面积。 5.1】 求一个任意三角形的面积。
(1)界面
设计 (1)界面设计 使用Button Edit、Label组件和showmessage消息框 Button、 组件和showmessage 使用Button、Edit、Label组件和showmessage消息框 即可完成界面设计,用户界面如图所示。 即可完成界面设计,用户界面如图所示。
(2)属性设置 (2)属性设置
(3)程序设计 (3)程序设计
procedure TForm1.Button1Click(Sender: TObject); var a,b,c,s,area:real; str1:string; begin procedure a:=strtofloat(edit1.Text); TForm2.Button2Click(Sen b:=strtofloat(edit2.Text); der: TObject); c:=strtofloat(edit3.Text); begin s:=(a+b+c)/2; edit1.Text:=''; area:=sqrt(s*(s-a)*(s-b)*(s-c)); str(area:8:3,str1); edit2.Text:=''; showmessage('面积为:'+str1); 面积为: 面积为 edit3.Text:=''; end; end;
5.3.4 条件语句和程序的选择结构
1.IF语句 语句 功能: 语句通过条件判断的结果来选择程序的执行路径 语句通过条件判断的结果来选择程序的执行路径。 功能:IF语句通过条件判断的结果来选择程序的执行路径。 语法格式为: 语法格式为: IF <条件 Then <语句 条件> 语句1>[Else <语句 语句2>]; 条件 语句 语句 ; 分类: 分类: (1)简单条件语句 If语句的 语句1>或<语句2>中不包 简单条件语句: 语句的 语句1 或 语句 语句的<语句 语句2 中不包 简单条件语句 含其他的条件语句 (2)复合条件语句 如果在If语句中的 语句1>或<语句2 复合条件语句: 如果在 语句中的<语句1 或 语句2 复合条件语句 语句中的 语句 语句 >又包含另一个 语句,则称为 语句的嵌套,又被称为 又包含另一个If语句 语句的嵌套, 又包含另一个 语句,则称为If语句的嵌套 复合条件语句。 复合条件语句。
【 例 5 -2 】
铁路托运行李,从甲地到乙地,规定每张客票托运费计算方法是: 铁路托运行李,从甲地到乙地,规定每张
客票托运费计算方法是:行 李重量不超过50kg时 每公斤0 25元 超过50Kg而不超过 50kg 50Kg而不超过10 李重量不超过50kg时,每公斤0.25元,超过50Kg而不超过10 Kg时 其超过部分0 35元 Kg,超过100Kg时 其超过部分0 100Kg 0Kg时,其超过部分0.35元/Kg,超过100Kg时,其超过部分0. 45元 Kg。试编写程序,输入行李重量,计算并输出托运的费用。 45元/Kg。试编写程序,输入行李重量,计算并输出托运的费用。 (1)界面设计 (1)界面设计 使用Button Edit、Label组件即可完成界面设计 Button、 组件即可完成界面设计。 使用Button、Edit、Label组件即可完成界面设计。 (2)属