第4章程序设计控制结构.ppt

第四章 程序设计控制结构 内 容 导 航 学习提要与目标 熟悉程序控制的基本结构 根据任务选择合适的控制结构 熟悉子程序、参数及作用域 掌握一些常见的算法 本章内容 程序设计的基本结构 子程序与参数传递 综合程序设计范例 4.1 程序设计的基本结构 一、顺序结构（P164） 顺序结构是指程序的执行按其中的命令从上到下逐条 顺序执行。 例3.2：求“学生”表中指定班级（如：951或953）全体学生的奖学金总额。 SE***** P3_2.PRG ***** SET TALK OFF CLEAR USE 学生 ACCEPT 请输入指定的班级(如：951或953)： TO BJ SUM 奖学金 TO JXJ FOR LEFT(学号,3)=BJ ?BJ+班全体学生的奖学金总额为：+STR(JXJ,5,2) USE SET TALK ON 二、选择分支结构（P223） 选择分支结构是根据条件的测试结果执行不同的操作。 选择二路分支结构 多路分支结构 选择二路分支结构 选择二路分支结构由以下语句实现。 格式： IF 条件表达式 [THEN] 语句序列1 [ELSE 语句序列2] ENDIF 例3.3：从键盘输入一个数，说明它是奇数还是偶数。 ***** P3_3.PRG ***** SET TALK OFF CLEAR INPUT 请输入一个数值型数据： TO A IF INT(A/2)=A/2 INT( )舍尾取整函数（也可以用取模运算： A%2=0 或 MOD(A,2)=0） ?A, 是偶数! ELSE ?A, 是奇数! ENDIF SET TALK ON 例3.4：求一元二次方程式ax2+bx+c=0的根，a,b,c的值从键盘输入。 ***** P3_4 .PRG ***** SET TALK OFF CLEAR INPUT a= TO a INPUT b= TO b INPUT c= TO c D=b*b-4*a*c P= -b/(2*a) IF D0 ? 复根！ ELSE IF D=0 ?X1=X2=,P ELSE 　　　 D1=SQRT(D) 将D的平方根赋给D1 ?X1=,(-b+D1)/(2*a) 　　　?X2=,(-b-D1)/(2*a) 　　ENDIF ENDIF SET TALK ON 多路分支结构 多路分支结构由以下语句实现。格式： DO CASE CASE 条件表达式1 语句序列1 CASE 条件表达式2 语句序列2 … CASE 条件表达式n 语句序列n [OTHERWISE 语句序列n+1] END CASE 例3.5：用多路选择分支结构实现例3.4 。 ***** P3_5 .PRG ***** SET TALK OFF CLEAR INPUT a= TO a INPUT b= TO b INPUT c= TO c D=b*b-4*a*c P=-b/(2*a) DO CASE CASE D0 ? “ 复根！” CASE D=0 ?X1=X2=,P CASE D0 或用OTHERWISE D1=SQRT(D) ?X1=,(-b+D1)/(2*a) ?X2=,(-b-D1)/(2*a) ENDCASE SET TALK ON 三、循环结构（p168） DO WHILE ..ENDDO SCAN..ENDSCAN FOR..ENDFOR DO WHILE … ENDDO 格式： DO WHILE条件表达式 语句序列 EXIT LOOP ENDDO 功能：当条件表达式的值为.T.时,重复执行DO…ENDDO 之间的语句序列，直到条件表达式的值为.F.时， 结束循环操作。 例3.7：利用永真循环结构完成例3.6中对多个学生成绩的查询操作。 ***** P_7 .PR