Delhi程序设计实用教程程序控制结构.pptVIP

第4章 程序的控制结构 在程序设计中，常常采用三种流程控制结构，分别是顺序结构，分支结构（又叫选择结构）和循环结构。流程控制结构是结构化程序设计的基本思想。一个复杂的问题一般可以转化为有限个顺序，分支或者循环结构来解决。 顺序结构是使用最为广泛的控制结构，程序从上往下顺序执行，即使是分支结构和选择结构，其内部也往往采用顺序结构。另外各个模块之间也是从上向下顺序执行的。 分支结构是指程序执行到某个地方之后有多个分支，程序需要根据某个条件来决定到底执行哪个分支的一种流程控制结构。正是因为有了分支结构，程序和用户之间的交互能力才得以大大增强。在Delphi中提供了两种分支结构的语句，分别是If语句和Case语句。 如果在程序中需要重复执行某些语句和程序段。这时候往往使用循环结构来解决，循环结构可以避免我们重复书写相同的或者类似的程序代码，使得程序更加清晰明了，极大地简化了程序，提高了效率。在Delphi中提供了三种循环语句，分别是while语句、repeat语句和For语句。 4.1 分支结构 分支结构通过判断条件表达式，再根据结果进行不同的操作。条件表达式一般是逻辑表达式或者关系表达式，类型为Boolean型，其值为true或者false。Boolean类型是顺序型，false的序号为0，true的序号为1。 4.1.1 if语句 if语句是最常见的分支结构的语句，if语句是这样操作的，如果所给条件成立（值为true）则执行语句序列1，否则执行语句序列2，其流程图如图4-1所示。 1．if语句的语法格式 if语句的语法格式为： if 条件 then 语句序列1 [else 语句序列2] 说明： （1）条件是关系表达式或者逻辑表达式，程序是这样判断的，如果条件成立（值为true），则执行语句序列1，如果条件不成立（值为false）则执行语句序列2。 （2）语句序列1和语句序列2都可以省略。 （3）如果语句序列1或者语句序列2是几个语句，则用begin和end括起来形成复合语句的形式。 （4）整个if语句看成一个语句，因此不能在if语句中间加分号。 例如： if ab then writeln(a); //这个分号有错误， else writeln(b); 再看下面： if ab then begin t:=a; a:=b; b:=t; //可以加分号，和Begin、End形成复合语句 end //不可加分号，整个If…Then…Else是一个语句 else begin writeln(‘1111’); writeln(‘2222’); end; 2．if语句的应用 【例4-1】 求3个数的最大值。 分析：可以使用if语句来编写程序，程序比较简单。程序如下： program Project1; {$APPTYPE CONSOLE} uses SysUtils; var ma,a,b,c:real; begin write(a,b,c=?); readln(a,b,c); ma:=a; //假设a最大 if bma then ma:=b; //若bma，则最大为b if cma then ma:=c; //若cma，则最大为c writeln(最大数为,ma); readln; end. 【例4-2】简单的密码程序。 程序设计步骤： （1）添加组件GroupBox、Edit、Button和Panel到窗体，设置组件的属性：GroupBox1的Caption设置为“输入口令”，Edit1的Passwordchar设置为“*”，设置Button1的Caption为“确定[E]”，界面如图4-2（a）和4-2（b）所示。 （2）编写Button1的OnClick事件过程如下： procedure TForm1.Button1Click(Sender: TObject); begin if uppercase(edit1.Text)=ABCDEF //口令是“abcdef”，不分大小写 then panel1.Caption:=欢迎使用本系统 else begin edit1.Text:=; edit1.SetFocus; //清空文本框并置焦点 panel1.Caption:=口令错误; end; end; 另外我们希望输入口令后按回车键也可以判断口令是否正确，因此编写Eidt1的OnKeyPress事件过程如下： procedure TForm1.Edit1KeyPress(Sender: