第6章结构化程序设计基础_教学_VF.pptVIP

第6章 结构化程序设计基础;6.1 样本程序分析;6.2 程序的建立与执行;6.2.1 VFP专用程序编辑器;6.2.1 VFP专用程序编辑器;6.2.1 VFP专用程序编辑器;6.2.2 打开源程序文件;6.2.3 程序的编译与执行;6.2.3 程序的编译与执行;6.2.3 程序的编译与执行;6.2.3 程序的编译与执行;6.2.3 程序的编译与执行;6.2.3 程序的编译与执行;6.3.1 输入字符串语句;6.3.2 等待语句;6.3.2 等待语句;6.3.2 等待语句;6.3.3 输入表达式语句 ;6.4.1 If 分支语句 ;6.4.1 If 分支语句;6.4.1 If 分支语句;6.4.1 If 分支语句;6.4.2 If语句的嵌套;6.4.2 If语句的嵌套;6.4.2 If语句的嵌套;6.4.2 If语句的嵌套;6.4.3 条件函数 ;6.4.4 多分支语句 ;6.4.4 多分支语句;6.4.4 多分支语句;6.4.4 多分支语句;6.5 循环结构程序设计 ;6.5.1 Do While(当型)循环语句 ;6.5.1 Do While(当型)循环语句;例:P174-6.15 N=2 S=1 Do While N=5 S=S*N N=N+1 Enddo ?”5!等于:”,S ;例:P174-例6.17 Use CJB N=0 Do while !Eof() If 重修 ?”重修学号:”,学号,Space(4),”重修课程码:”,课程码 N=N+1 Endif Skip Enddo ?”共有:”+Str(N,4)+”人次重修” Use;6.5.1 Do While(当型)循环语句;6.5.1 Do While(当型)循环语句;开始; 例: 计算1~100的奇数和。 *Ex3.prg store 0 to i, t do while i100 i=i+1 if int(i/2)=i/2 loop endif t=t+i enddo ? ’1~100奇数和为：’ , t;开始;例：P174_【例6.16】 *E6_16.prg DO WHILE .T. CLEAR INPUT “请输入一个数：” TO X IF Vartype(X)!=’N’ WAIT ‘不是数值型数据’ LOOP ENDIF IF X 0 EXIT ENDIF ? X, ‘的算术平方根为：’, SQRT(X) WAIT ENDDO ?’输入的数不大于0,结束程序!’;6.5.2 For(步长型)循环语句;6.5.2 For(步长型)循环语句;6.5.3 Scan(扫描)循环语句;6.5.3 Scan(扫描)循环语句;6.5.4 结构嵌套;*Ex5.prg clear input ‘请输入数据个数：’ to n dimension X(n) store 1 to k do while k=n input ‘请输入数据’+str(k,1)+’：’ to X(k) k=k+1 enddo for i=1 to n-1 for j=i+1 to n if X(i)X(j) W=X(i) X(i)=X(j) X(j)=W endif endfor ?X(i) endfor ?X(n) return;练习题：试编写“从前有座山…”的故事，使其分 别完成下列要求： 1、将故事重复显示5次。 2、故事每重复显示5次后暂停，并询问是否