程序流程图-循环结构ppt课件

1、1,第三章 程序设计基础,流程控制（顺序，选择，循环结构） 常用函数（asc,%,int,at） 国考笔试题,本 节 要 点,2,条件,A,B,A,B,条件,A,T,F,T,F,选择（分支）结构,循环结构,顺序结构,3,条件,A,B,T,F,选择（分支）结构,if 条件 A else B endif,4,判断X是否为数字,输出09,T,F,读取字符x,开始,结束,判断读入字符为数字 则输出所有数字,accept to x if x是数字字符 输出所有数字字符 endif,if asc(x)在asc(0)和asc(9)之间 输出所有数字字符 endif,if asc(x)=asc(0) and

2、asc(x)= asc(9) 输出所有数字字符 endif,5,accept to x if asc(x)=asc(0) and asc(x)= asc(9) for i = asc(0) to asc(9) ?chr(i) endfor endif,e:yh-vfoyh2010程序程序1.prg,6,s=0+1=s+1=1 s=1+2=s+2=3 s=3+3=s+3=6 s=6+4=s+4=10,计算1+2+3+100,s=0 For i=1 to 100 s=s+i Endfor ?” s=”,s,设为i,累加器：s=0,7,计算1+2+3+100,初始化S,计算S=1+2+3+x,开始,

3、输出S,结束,S=0,开始,输出S,结束,i=100,S=S+i,T,F,8,判断i=终值,语句序列A i=i+步长,T,F,FOR 变量=初值 TO 终值 STEP 步长 语句序列A ENDFOR | NEXT变量,只要变量的值小于等于终值，重复执行循环体中的语句序列,给变量i赋初值,循环结束,FOR 循环,一般知道终值 用for循环,默认为1 可以不写,9,i=100,如果i为奇数， SSi； 否则，SSi,T,F,初始化S,开始,结束,计算1234100,S=0 for i =1 to 100 if i为奇数 SSi else SSi endif endfor,If i%20,注： 判断

4、一个整数M能否被另一个整数N整除，一般采用3种方法： 判断MOD(M,N)是否等于0 INT(M/N)是否等于M/N M%N是否等于0，若等于，则表明M能被N整除,10,i=10,SS*i,T,F,初始化S,开始,结束,计算 10,S=1 for i =1 to 10 SS*i endfor,i=1 Do While i=10 s=s*i i=i+1 enddo,累乘器s 初始值置为1,11,如果在命令窗口输入并执行命令： “LIST 名称”后在主窗口中显示： 记录号 名称 1 电视机 2 计算机 3 电话线 4 电冰箱 5 电线 假定名称字段为字符型、宽度为6， 那么下面程序段的输出结果是,

5、e:yh-vfoyh2010程序2005-9-笔试.prg,国贸6,12,GO 2 SCAN NEXT 4 FOR LEFT(名称,2）=电 IF RIGHT(名称,2）=线 LOOP ENDIF ? 名称 ENDSCAN A）电话线B）电冰箱 C）电冰箱电线D）电视机电冰箱,1 电视机 2 计算机 3 电话线 4 电冰箱 5 电线,e:yh-vfoyh2010程序2005-9-笔试.prg,Scan循环 P68,13,GO 2 SCAN NEXT 4 FOR LEFT(名称, 2) = 电 IF RIGHT(名称, 2) = 线 EXIT ENDIF ENDSCAN ? 名称,1 电视机 2

6、 计算机 3 电话线 4 电冰箱 5 电线,输出结果：电话线,e:yh-vfoyh2010程序2006-9-笔试.prg,14,如下程序显示的结果是【8】。 s=1 i=0 do while i8 s=s+i i=i+2 enddo ?s,s=1i=0 s=s+i=1+0=1 s=1 i=0+2=2 s=S+i=1+2=3 i=i+2=2+2=4,输出结果：13,15,下列程序段的输出结果是 ACCEPT TO A IF A=123456 S=0 ENDIF S=1 ? S RETURN A）0 B）1 C）由A的值决定D）程序出错,16,执行下列程序，显示的结果是【10】 one=WORK

7、two= a=LEN(one) i=a DO WHILE i=1 two=two+SUBSTR(one,i,1) i=i-1 ENDDO ?two,KROW,A=4,TWO=“K,e:yh-vfoyh2010程序2007-4-笔试.prg,营销1,17,下面程序计算一个整数的各位数字之和。在下划线处应填写的语句是 SET TALK OFF INPUT x= TO x s=0 DO WHILE x!=0 s=s+MOD(x,10） _ ENDDO ? s SET TALK ON A)x=int(x/10) B)x=int(x%10) C)x=x-int(x/10) D)x=x-int(x%10,

8、e:yh-vfoyh2010程序2007-9-笔试.prg,x=int(x/10,18,SETEXACTON s=ni+space(2) IFs=ni IFs=ni ?one ELSE ?two ENDIF ELSE IFs=ni ?three ELSE ?four ENDIF ENDIF RETURN,A)one B)two C)threeD)four,下列程序的运行结果是,e:yh-vfoyh2010程序2008-4-笔试.prg,19,下列程序段执行以后，内存变量y的值是 CLEAR x=12345 y=0 DOWHLIEx0 y=y+x%10 x=int(x/10) ENDDO ?y

9、A)54321B)12345C)51D)15,20,下列程序段执行后，内存变量s1的值是 s1=”network” s1=stuff(s1,4,4,”BIOS”) ?s1 A)networkB)netBIOSC)netD)BIOS,e:yh-vfoyh2010程序2008-4-笔试-28.prg,21,练习2：任意给定一个年份，判断该年是否为闰年。 闰年的条件是：能被4整除但不能被100整除； 或者能被100和400整除的数就是闰年。 clear input 请输入日期： to a if (int(a/4)=a/4 and int(a/100)a/100) or ； (int(a/100)=a

10、/100 and int(a/400)=a/400) ?a,年是闰年 else ?a,年不是闰年 endif return,提示：判断一个整数M能否被另一个整数N整除，一般采用3种 方法，即：判断MOD(M,N)是否等于0或INT(M/N)是否等 于M/N或M%N是否等于0，若等于，则表明M能被N整除,22,例：编写一名为“查找1”的程序，从student表中查 找姓名为“王五”的学生信息,clear use student locate for 姓名=王五 if found() display else ?查无此人 endif use Return,e:yh-vfoyh2010程序if-查找

11、.prg,select * from student where 姓名=李一,23,82套 综合应用,24,1.建立一个文件名和表单名均为oneform的表单，表单中一个页框Pageframe1和两个命令按钮Command1(生成)和Command2(退出)，Pageframe1中有两个页面(Page1和Page2)，标题分别为为系名和计算方法，Page1中有一个组合框(Combo1),Page2中有一个选项组(Optiongroup1),选项组(Optiongroup1)中有两个选项按钮，标题分别为平均工资和总工资如图所示。 2. 将学院表添加到表单的数据环境中，然后手工设置组合框(Comb

12、o1)的RowSourceType属性为6、RowSource属性为学院表.系名，使得程序开始运行时，组合框中有可供选择的来源于学院表的所有系名,25,3.为生成命令按钮编写程序。程序的功能是：表单运行时，根据选项组和组合框中选定的系名和计算方法，将相应系的平均工资或总工资存入自由表salary.dbf中，表中包括系名、系号以及平均工资或总工资三个字段。 4.为退出命令按钮编写程序。程序的功能是：释放表单。 5.运行表单，在选项组中选择总工资，在组合框中选择通信，单击生成命令按钮进行计算。最后，单击退出命令按钮结束,e:yh-vfoyh2010列表框.scx,26,习题： 1、编写名为“打开表”的程序文件，程序功能为：打 开student表，并在浏览窗口中显示。 2、编写名为“替换”的程序文件，程序功能为:打开 student表，将所有会计系的学生的入学成绩增加 10分。 3、编写名为“转换”的程序文件，程序的功能为：将 输入的大写英文字母转换称小写字母。 4、编写名为“倒序输出”的程序文件，程序的功能为： 将输入的三位数倒序输出,2