第三章 Delphi基本程序设计.ppt

第三章 Delphi基本程序设计 本章知识点和基本要求 顺序结构 选择结构 循环结构 过程与函数 掌握顺序结构、选择结构、循环结构的使用方法 掌握过程与函数的定义和使用规则 能够书写简单的程序 顺序结构 顺序结构是程序设计中最简单、最常用的基本结构。在该结构中，各操作块（简称块，对应于程序中的“程序段”）按照出现的先后顺序依次执行。它是任何程序的主体基本结构，即使在选择结构或循环结构中，也常以顺序结构作为其子结构。 在顺序结构中，通常使用基本控件完成输入及输出操作，使用赋值语句等简单的操作语句组成顺序结构即可实现顺序结构程序的编写。 选择结构 分支语句根据用户输入或程序运行的中间结果来确定转向执行哪个分支流程。Object Pascal提供的if语句和case语句用来实现程序的分支结构。 if语句 　(1) if...then 语句 　语法：if 表达式 then 语句 　例：输入半径，计算圆面积。 选择结构 (2) if...then...else语句 　语法：if 表达式 then 语句1 else 语句2; 在else之前不能加分号，因为分号是语句的分隔符，而if…then…else…是一个完整的语句结构。 例：分段函数如教材 例：输入两数比较大小 例：输入三数比较大小 选择结构 procedure TForm1.Button1Click(Sender: TObject); var Score : 0..100; Begin Score := StrtoInt(InputBox(输入, 输入成绩, 57)); //在弹出的消息框中输入成绩 if Score =60 then ShowMessage (你及格了) //弹出“你及格了”的信息框 else ShowMessage (很遗憾，不及格，尚需努力); //弹出“很遗憾不及格”的信息框 end; 选择结构 例：编写一个程序，用于判断输入的年份是不是闰年。 　　注：是闰年的条件必须满足下列条件之一： 　　(1) 能被4整除，但不能被100整除的年份； 　　(2) 能被400整除的年份。 实现步骤 　　(1) 新建应用程序 　　(2) 定制窗体 选择结构 选择结构 嵌套过多的if语句往往分不清if与else的匹配关系，影 响程序的清晰，有碍阅读。对于多分支的结构宜采用 case 语句。 其语法格式如下： case 选择表达式 of 情况常量1: 语句1; 情况常量2: 语句2; …… 情况常量n-1: 语句n-1; [else 语句n;] end; 选择结构 注：选择表达式的值必须是顺序类型（如整型、字符型、布尔型、子界型等）。 情况常量表中的值应该是选择器表达式可能具有的值，各常量之间用逗号分隔。所有常量表中的值必须互不相同。 语句可以是简单语句，也可以是复合语句。 例：输入百分制的考试成绩，按“优秀”、“良好”、“中等”、“及格”和“不及格”等输出。 循环结构 循环语句可以使一个语句块（循环体）重复执行，它是实现复杂程序流程的基础之一。Object Pascal提供了三种循环语句：while语句、repeat语句、for语句。 循环结构 2. repeat语句（“直到”型） 其语义是：重复执行循环体，直到指定的条件为真时 为止，最少循环1次。其语法形式如下： 循环结构 3.For语句 在循环次数已知或可计算的场合，用for语句来实现循环比较简便。和前两种循环不同，for循环中循环变量会随循环次数自动递增或递减，无需在循环体内控制循环变量（循环次数在进入循环前已确定，不受循环体内更改的影响）。for语句分为递增式和递减式两种形式。 语法格式： for 循环变量 = 初值 to 终值 do 循环体 ； 或 for 循环变量 = 初值 downto 终值 do 循环体 ； 　 例：斐波那契（Fibonacci）数列问题 循环的嵌套 对于有规律的复杂问题，嵌套是很好的解决方法。在多重循环中，内循环和外循环是相对的，嵌套的层数是任意的，但算法的时间复杂度会随层数成指数级增长，程序可读性也会降低，一般来说，不宜超过三层。 例：求小于给定数的素数。 例：“百钱百鸡：鸡翁一,值钱五,鸡母一,值钱三,鸡雏三,值钱一,百钱买百鸡,问翁、母、雏各几何? ” break：强制退出循环，一般用在循环体内的if结构中。 continue：短路循环