(程序设计练习例题.doc

结构化程序的基本结构 顺序结构 按语句排列的先后顺序逐条执行语句 选择结构 选择结构只有一个入口和一个出口，但在结构内部根据条件有两条或者多条路径可供选择。 1、二分支选择结构（IF—ENDIF语句） 格式：IF条件 语句序列1 [ELSE 语句序列2 ENDIF 功能：若条件为真，则执行语句序列1，然后执行ENDIF的后继语句；若条件为假，则执行语句序列2，然后执行ENDIF的后继语句。 2、多分支选择结构格式（DO CASE—ENDCASE语句） 格式：DO CASE CASE条件1 语句序列1 CASE条件2 语句序列2 ...... CASE条件n 语句序列n [OTHERWISE 语句序列] ENDCASE 功能：逐个检查条件，若条件为真则执行相应的语句序列；否则检查下一个条件；若条件都不满足，则执行OTHERWISE的语句序列，然后执行ENDCASE的后继语句。 3、循环结构 在结构的内部，重复执行某些语句序列。 (1) 当型循环（DO　WHILE—ENDDO语句） 格式：DO　WHILE 条件 语句序列1 [LOOP] 语句序列2 [EXIT] 语句序列3 ENDDO 功能：先判断循环条件，若为.T.，则执行一遍循环语句，遇到循环终端句ENDDO时，转向循环起始句DO　WHILE，重新判断循环条件，如此往复，直至循环条件为.F.，结束循环，执行ENDDO的后继语句。 说明：在循环体中，若遇到跳出循环语句EXIT，则无条件结束循环，执行ENDDO的后继语句。若遇到短路语句LOOP，则不执行本次循环余下语句，而返回循环起始语句DO　WHILE，重新判断下一次循环的条件。 （2）计数循环（FOR—ENDFOR语句） 格式：FOR 循环变量=初值 TO 终值 [STEP 步长] 循环体 ENDFOR|NEXT 功能：执行时先将初值赋给循环变量，判断其是否超过终值，若是，则退出循环，否则，执行一遍循环体，遇到循环终端语句ENDFOR时，循环变量增加一个步长，然后返回循环起始FOR语句，重新判断循环变量是否超过终值，如此反复，直至循环变量超过终值，则结束循环，执行ENDFOR的后继语句。 （3）扫描循环（SCAN—ENDSCAN语句） 格式：SCAN [范围] [FOR|WHILE条件] 循环体 ENDSCAN 功能：记录指针自动在当前表的指定范围内满足条件的记录中依次移动，对每一条记录执行循环体中的语句。 说明：该语句只对表文件操作；缺省范围子句，则默认ALL （4）循环嵌套 当一个循环的循环体本身也是一个循环时就构成了循环嵌套，但不能交叉。外循环每走一步，内循环要遍历循环变量所有的值。 一、顺序结构 实例:设2001年我国的国民经济产值为一个单位,若每年增长8%,求2010年的产值? 程序: clear n=2010-2001 v=1*(1+0.08)^n ? “2010年产值为:”,v Return 示例1：试在表文件中查看某学生的有关情况。 *L3.PRG SET TALK OFF CLEAR USE 学生表.DBF LOCATE FOR 姓名=“林天力” DISPLAY USE SET TALK ON 示例2：编程，根据输入的半径值，计算出相应的圆的周长。 SET TALK OFF CLEAR INPUT “请输入圆的半径：” TO R L=2*3.1416*R @10,10 SAY “圆的周长是：”+STR(L,6,3) SET TALK ON 二、二分支选择结构 单向分支 实例：从键盘输入任意两个数，然后按从大到小顺序输出。 程序： clear input “X=” to X input “X=” to y if XY T=X X=Y Y=T Endif ? “X=”,X ? “Y=”,Y 例：在“学生表”中查看“李尚清”的基本情况。 SET TALK OFF CLEAR USE 学生表 LOCATE FOR 姓名=”李尚清” IF FOUND() DISP ENDIF USE SET