《《编写程序实例》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《编写程序实例》PPT课件.ppt（42页珍藏版）》请在三一办公上搜索。
1、第十章 10.9 编写程序实例,例:使用结构化编程，求 S=1+2+3+100 clear s=0For i=1 to 100 step 1 s=s+iendfor?s=,s,求和：S=1+2+3+100 过程中的重要式子 S=0 求和初值 应为零。S=S+i 每次在 S中加一个 i。i=i+1 每次在 i 中加一个 1。,求累加和的式子,s=s+i,S 现在的值,S 原有的值,i 的值,+,求积：P=1*2*100 过程中的重要式子 P=1 求积时初值 应为1。P=P*i 每次在 P中乘一个 i。i=i+1 每次在 i 中加一个 1。,求连乘积的式子,P=P*i,P 现在的值,P 原有的值,
2、i 的值,*,例求 S=Sin(1)+Sin(2)+Sin(100)clear s=0For i=1 to 100 step 1 S=S+Sin(i)endfor?S=,S,例10.15：输入任意 5个数要放在数组X中,求出最大数。解题分三个步骤：1、输入数放在X数组中。2、求出最大数。3、显示出来。,步骤1：输入数据放在X数组中。clear DIMENSION X(5)For i=1 to 10 INPUT X(i)=TO X(i)endfor,步骤2：求出最大数。For i=2 to 5 if X(1)X(i)X(1)=X(i)&使A(1)保存大的数 endif Endfor,这样，使A(
3、1)保存大的数 X(1)X(2)X(3)X(4)X(5),3,15,12,16,23,23,15,12,16,23,4次比较,结果：,步骤2：求出最大数。（第二种方法）For i=2 to 5 if X(1)X(i)T=X(1)X(1)=X(i)&X(i)和X(1)交换 X(i)=T endif Endfor,交换后，使A(1)保存大的数 X(1)X(2)X(3)X(4)X(5),3,15,12,16,23,15,3,12,16,23,4次比较,结果：,步骤3：显示最大数。？10个数中最大数是：，X(1),例2：用双重循环显示如下数字矩阵：1 1 1 1 1 2 2 2 2 2 3 3 3 3
4、 3 4 4 4 4 4,解：For i=1 to 4&外循环控制打印4行 For j=1 to 5&内循环控制打印5个数?？i&双问号表示不换行 Endfor?&没有显示项表示换行 Endfor,例3：用双重循环打印 大“九九表”：11=1 12=2 13=3 19=9 21=2 22=4 23=6 29=18 31=3 32=6 33=9 39=27 41=4 42=8 43=12 49=36 91=9 92=18 93=27 99=81,解：For i=1 to 9&外循环控制打印 9 行 For j=1 to 9&内循环控制打 9 个式子?STR(i,1)+“”+STR(j,1)+“=
5、”+STR(i*j,2)+“”Endfor？&单问号表示换行 Endfor,例4：用双重循环打印 小“九九表”：11=1 21=2 22=4 31=3 32=6 33=9 41=4 42=8 43=12 91=9 92=18 93=27 99=81,解：For i=1 to 9&外循环控制打印 9 行 For j=1 to i?STR(i,1)+“”+STR(j,1)+“=”+STR(i*j,2)+“”Endfor？&单问号表示换行 Endfor,例10.16：输入任意 5个数要放在X数组中,并按从大到小顺序输出。解题分三个步骤：1、输入数放在X数组中。2、将X数组由大到小排序。3、显示出来。
6、,步骤1：输入数据放在X数组中。clear DIMENSION X(5)For i=1 to 5 INPUT 请输入 X(i):TO X(i)Endfor,步骤2：由大到小排序For i=1 to 4 For j=i+1 to 5 if X(i)X(j)T=X(i)X(i)=X(j)&X(i)和X(j)交换 X(j)=T endif EndforEndfor*使用选择排序法,比较交换后，使A(1)保存最大的数 X(1)X(2)X(3)X(4)X(5),3,15,12,16,23,23,3,12,15,16,第一次比较,结果：,比较交换，使A(2)保存第2大的数 X(1)X(2)X(3)X(4)
7、X(5),3,12,15,16,23,16,3,12,15,第二次比较,结果：,23,比较交换，使A(3)保存第3大的数 X(1)X(2)X(3)X(4)X(5),3,12,15,23,16,15,3,12,第三次比较,结果：,16,23,比较交换，使A(4)保存第4大的数 X(1)X(2)X(3)X(4)X(5),3,12,23,16,15,12,3,第四次比较,结果：,16,23,15,步骤3：按排序后顺序显示。For i=1 to 5？X(i)Endfor,例：输入任意10个数要放在X数组中然后由大到小排序并显示出来。*使用冒泡排序法 分三个步骤：1、输入数放在X数组中。2、将X数组由大
8、到小排序。3、显示出来。,步骤1、输入数据放在X数组中。clear DIMENSION X(10)For i=1 to 10 INPUT 请输入 X(i):TO X(i)Endfor,步骤2、由大到小排序For i=1 to 9 For j=10 to i-1 if X(j-1)X(j)T=X(j)X(j)=X(j-1)&X(j)和X(j-1)交换 X(j-1)=T endif EndforEndfor*使用冒泡排序法,步骤3、按排序后顺序显示。For i=1 to 10？X(i)Endfor,求 S=Sin(1)+Sin(2)+Sin(100)s=0i=1 Do While i=100 S=
9、S+Sin(i)i=i+1enddo?S=,S,例:对学生.DBF,输入10条新记录(补充),use D:教学管理学生i=1 Do While i=10 APPEND BLANK 5,10 Say 学号:get 学号 7,10 Say 姓名:get 姓名 9,10 Say 专业:get 专业 11,10 Say 入学成绩:get 入学成绩 READEndDo USE,例10.17 编写一个程序，创建表xscj.dbf，它的结构可以按下表定义：1、输入10 名学生的 3 门课程的成绩，显示表的内容；2、计算平均分，显示表的内容；3、计算名次，显示表的内容。,CLEAR CREATE TABLE
10、xscj(语文 N(6,2),数学 N(6,2),英语 N(6,2),平均分 N(6,2),名次 I)FOR i=1 TO 10APPEND BLANK i+2,10 SAY“语文:”GET 语文 i+2,30 SAY“数学:”GET 数学 i+2,50 SAY“英语:”GET 英语READ ENDFOR BROWSE,REPLACE ALL 平均分 WITH(语文+数学+英语)/3 BROWSE FOR i=1 TO 10GO i pj=平均分mc=1GO TOP,DO WHILE.not.eof()IF 平均分=pj mc=mc+1 ENDIF SKIPENDDOGO iREPLACE 名
11、次 WITH mcENDFORBrowseUSE,例 10.18有4个具独立功能的过程，分别是 Sub1、Sub2、Sub3、Sub4，编写一个程序，可以在不同选择下调用这些过程。,SET PROCEDURE TO AA.prgDO WHILE.T.INOUT“请输入您的选择(1-5)：”TO NDO CASECASE N=1DO Sub1CASE N=2DO Sub2CASE N=3DO Sub3CASE N=4DO Sub5OTHERWISERETURNENDCASEENDDOCLOSE PROCEDURE,提示：先编写过程程序文件再编写主程序文件,例1:打印100以内的能被7整除的奇数F
12、OR n=1 TO 100 STEP 2 IF n%7=0?n,Space(1)ENDIFENDFOR说明：？输出在当前行当前位置上，未到行尾不会换行；？输出表达式结果后换行，如用？输出多项，各 项表达式间用“，”分隔；,例2:请打开D:DJKSVBCP3000005文件夹下的MAIN.PRG,按要求完成以下程序:编程序实现从键盘上输入20个字符串，输出这20个字符串中最长的那个字符串。（10.0分）（试题 F42）,ACCEPT“请输入一个字符串:”TO MS=Len(M)For k=1 to 19 ACCEPT“输入一串字符:”TO X if LEN(X)S S=LEN(X)M=X endifENDDO?“最长的字符串为:”,M,
