结构化程序设计教学讲义.pptVIP

store 0 to x1,x2,x3 dime a(20) for i=1 to 20 input 请输入数据 to a(i) endfor for i=1 to 20 endfor ?x1,x2,x3 练习1：任意输入20个数，统计其中正数、负数、零的个数。 do case case a(i)0 x1=x1+1 case a(i)=0 x2=x2+1 case a(i)0 x3=x3+1 endcase 练习2： 编写程序，利用公式计算Л的值。 Л/4=1-1/3+1/5-1/7…+1/(4*n-3)-1/(4*n-1) (n=1000) s=0 for n=1 to 1000 s=s+(1/(4*n-3)-1/(4*n-1)) endfor ?4*s 练习3：求一个数的阶层。 J=1 Input “请输入一个数n:” to n For I=1 to n j=j*I Endfor ?j 4、改错（两处）统计xsda表中女同学的个数。 Clear Use xsda.dbf exclusive Go top rc=1 Do while .not. bof() If 性别=“女” rc=rc+1 Endif Skip Enddo @2,30 say 男同学的个数为： @2,60 say rc use 5、在屏幕上输出倒三角。 clear input “请输入行数：” to n m=n*2-1 for i=1 to n for j=1 to m ??* next j m=m-2 ?space(i) next i ********* ******* ***** *** * 6、打印n行三角形。 input 请输入要打印的行数 to n for i=1 to n ?space(n-i) for j=1 to 2*i-1 ??* endfor endfor * *** ***** ******* ********* 6.4多模块程序 6.4.4 变量的作用域 见书186页。 本章结束,谢谢! * 功能:先计算条件表达式的值,当条件表达式的值为真时,执行命令行序列,否则,执行ENDIF后面的命令. * 功能: 计算条件表达式的值,当某一条件表达式的值为真时,执行该命令行序列,当所有的条件表达式的值都是假时,如有OTHWISE项,则执行命令行序列n+1,再执行ENDCASE后面的命令,否则直接执行ENDCASE后面的命令. 例如 编写一个程序，打开并显示数据 * 执行过程: 计算条件表达式的值,若为真,执行DO WHILE 和ENDDO之间的命令序列,重复上述过程,直到条件表达式为假,执行ENDDO后面的第一个命令. 双分支选择结构流程图 条件？ 语句序列1 语句序列2 ENDIF后续语句 YES NO 例6.3：任意查询一个教师，找到则显示其信息，找不到则显示无此人. Clear Use 教师 Accept “请输入教师姓名： to cname locate for 姓名=cname If found( ) Disp 编号,姓名,工作时间 Else ?无此人 endif Use return 双分支结构 课堂练习: 任意地输入一个数,如果这个数大于零则在屏幕上显示同学们好,否则在屏幕上显示同学们再见。 首先进行算法分析,然后再编写程序. 例6.4：根据输入的X值，计算下面分段函数的值，并显示结果。 input 请输入X的值 TO X IF X1 Y=2*X-5 ELSE IF X10 Y=2*X ELSE Y=2*X+5 ENDIF ENDIF ?Y IF语句嵌套 Y=2*X-5 x1 Y=2*X x10 Y=2*X+5 x=10 分段函数: DO CASE CASE 条件表达式1 命令行序列1 CASE 条件表达式2 命令行序列2 …… CASE 条件表达式N 命令行序列N [OTHERWISE 命令行序列N+1] EN