VFox程序设计电子教案

1、VFox程序设计(专升本)但愿她是你知识大厦的又一块基石。但愿她是开启你智慧的又一把钥匙！电子教案2目 录VFox基本知识控制结构及程序设计应用举例3clears=0for i=1 to 100 s=s+iendfor? “s=”,sreturn 例1 编程求 1+2+3+100第一讲 VFox基本知识初始化部分数据处理(循环)部分输出部分结束语句 程序：是计算机能够分析执行的命令序列的集合。 程序设计：是计算机用户将解决某一实际问题所用的命令按一定的逻辑顺序编制成程序，并以文件的形式存放于磁盘的过程。执行程序时，计算机按顺序自动执行程序文件中的命令。1.1 程序的概念4字符型：英文、汉字、数

2、字、空格和标点符等组成的一串字符 数值型：由数字0-9以及正负号(+和-)和小数点(.)组成。 逻辑型：存入的值为真(T)和假(F)两种状态，长度固定为1位1.2 VFox语言基础数据类型数值型(常数)：如12、3.1345、-6.78、5.87E12 。 字符型(字符串)：其表示方法用定界符将字符串括起来，定界符有、 和 。注意，这些定界符必须配对使用， 逻辑型：用.Y.、.y.或.T.、.t.表示逻辑真值，用.N.、.n.或.F.、.f.表示逻辑假值，逻辑型数据只占一个字节。 常量内存变量：是一种临时变量，是在程序执行中用于存放临时数据(中间结果或最终结果)的内存工作单元。他具有字符型、数

3、值型、日期型、逻辑型和屏幕型5种数据类型。 数组变量：具有相同名称而下标不同的一组有序内存变量。允许定义一维和二维数组，数组在使用之前需要先定义。变量5运算符：用来进行运算的符号；表达式：是指用运算符将变量、数组元素、常量、函数连接组合得到的一组有物理意义的式子。表达式分为算术表达式、字符表达式、关系表达式和逻辑表达式4类。表达式和常量一样，是具有数据类型的数据(求值之后)，因此一个表达式中的各项必须具有相同类型。运算符及表达式算术运算符：( ) *或 % 模数(除法的余数) *、/ +、- 算术表达式：10+3*4-15 12*2 x3/y+a%5 表达式求值时，先按运算符的优先级别高低次序

4、执行. 字符表达式：完全连接“+” 不完全连接“-” 包含运算“$” “I have a ” +“Book” “计算机 ”-“ 世 界 “ABC”$“abcdef” 关系运算符： = = = ,!=,#关系表达式： 1244.33=a(2) abb A B 逻辑运算符: !, NOT 或 .NOT. OR 或 .OR. AND 或 .AND.逻辑表达式： x5 OR y10 .T.或者.F.，取决于x,y的值6取整函数： INT()功能：将数值表达式的值去掉小数部分取其整数(只舍不入)求余函数： MOD(,)功能：返回除以所得的余数。 取子串函数: SUBSTR(，)功能： 从指定表达式值的指

5、始位置取指定长度的字符串作为函数值。字符串转换为数值函数： VAL()功能： 将数字字符串(包括正负号、小数点)转换为相应的数值型数据。数值转换成字符串函数： STR(,)功能： 将的值转换成字符串，转换时根据需要自动四舍五入。常用函数7补充:随机函数RAND 格式：RAND(N) 功能：系统产生一个纯小数(01) N=0每次产生一个不同的纯小数，默认为0 0N=1每次产生一个相同的纯小数 例：随机生成一个60到250内的整数。 ? Int(60+rand()*190) 随机生成两个两位整数，并相减。 a=(10+Int(rand()*90) b= (10+Int(rand()*90) ? a

6、-b81.3 Vfox程序设计基本语句赋值语句格式： STORE TO | 或：|=赋值语句格式 ：DIME (),(，) 如：DIME A(2), B(2,2) 表示数组A有两个元素，分别是A(1)和A(2)。数组B有4个元素，分别为B(1,1)，B(1,2)，B(2,1)，B(2,2)。引用：数组中每个有序变量构成数组的成员，称之为数组元素。数组元素的名称使用数组名和用括号括起来的下标组成。数组下标可以是常量、变量和表达式，如A(l)，A(b1)，A(a+b)；数组的第一个下标是1，也就是说数组下标是从1开始的；数组定义语句格式：?|? 功能：先计算各表达式值(逗号间隔)并按标准格式输出结

7、果.？ 表示先显示输出，后回车换行；? 表示不回车换行输出；显示输出语句9格式：INPUT TO |功能：在屏幕上显示，并等待用户从键盘上输入表达式，再把表达式的值赋给指定的。说明： 可接受任何类型的表达式的值。 选项省略时，屏幕上无提示信息而直接等待用户的输入。例如：PName=“张三”INPUT “请输入姓名为”+Pname+“的学生成绩:” TO SCORE若接收字符型常量，则需要把该常量两边的定界符同时输入。若接收表达式，则得到的值为该表达式计算后的值。 INPUT输入语句格式：ACCEPT TO |功能：在屏幕上显示，等待用户从键盘上输入，再把输入内容作为字符串常量赋值给指定的变量。

8、只能接受字符型数据。接受的字符型数据在输入时不需要加定界符。 ACCEPT输入语句 其它语句 clear 清屏 retrun返回 cancel 终止10第二讲 控制结构及程序设计应用举例程序流程图:以特定的图形符号加上说明，表示算法的图，称为流程图或框图。规则：从上到下，从左到右。符号及其意义：流程线处理框判断框I/O框顺序结构：就是计算机要按照程序中语句出现的先后次序依次执行各条语句的结构。顺序结构是程序设计中最常见、使用最多的结构。 2.1 顺序结构clearinput “请输入圆的半径：” to r s=3.14159*r*r? “圆面积s=”, sreturn 例2 编程求圆面积AB入

9、口出口112.2 选择结构条件判断 双(单)分支选择格式：IF THEN ELSE EDNIF条件真序列1假序列2入口出口说明：IF和ENDIF必须成对出现，否则程序将无法执行。在IFELSEENDIF中，还可嵌套IFELSEENDIF命令。例3 判断某一年是否是润年。clearinput “请输入年份:” to yif y/4=int(y/4) .and. y/100int(y/100) .or. y/400=int(y/400) ?y,”是闰年”else ?y,”不是闰年”endifcancel润年条件:如是润年则能被4整除但不能被100整除，或能被400整除。 12多分支选择格式：DO

10、CASE CASE 逻辑表达式1 命令序列1 CASE 逻辑表达式2 命令序列2 CASE 逻辑表达式n 命令序列N OTHERWISE 命令序列ENDCASE逻1真序列1假逻2真序列2出口假逻n真序列N假序列说明：从第一个条件开始，当找到一个逻辑表达式的值为.T.时，就执行紧跟其后的命令序列，直到下一个CASE或者ENDCASE语句为止，并跳出DO CASE语句。如果所有CASE语句后的逻辑表达式的值都为.F.，此时，如果有OTHERWISE子句，则执行OTHERWISE后面的命令序列。如果没有OTHERWISE子句，就退出该结构执行EDNCASE语句后面的语句，如图所示。13例4 输入一个

11、成绩，将百分制转化为五分制。 CLEARINPUT “请输入学生成绩：” TO scDO CASE CASE sc=90 ? “优秀” CASE sc=80 ? “良好” CASE sc=70 ? “中等” CASE sc=60 ? “及格” OTHERWISE ? “不及格”ENDCASEcancel142.3 循环结构程序经常会重复执行某些相同的操作，如：求：s=1+2+3+4+100算法描述：s=0;i=1;s+=i; i+;判断i是否小于等于100 如果i小于等于100，重复； 否则，结束。 此类根据某个条件重复执行相同算法的结构，称为循环。初始化部分循环体,含有趋假的语句循环条件，循

12、环应在有限次完成clears=0for i=1 to 100 s=s+iendfor? “s=”,sreturn 程序:15当循环DO WHILE LOOP EXITENDDO功能：根据的值决定是否执行DO WHILEENDDO之间的命令序列（这个序列称为循环体），如果逻辑表达式的值为.T.，则执行循环体，否则退出循环，如图所示。条件真循环体语句LOOPEXIT假含有使条件趋假的语句cleari=1s=0do while i=100 s=s+i i=i+1enddo? “s=”, sreturn 用当循环改写例1程序16FOR循环FOR TO STEP EXIT &无条件退出循环 LOOP &

13、无条件返回到FOR循环体的开始位置ENDFOR|NEXTii超过终值否循环体loopexiti=i+步长是功能：当FOR后的在和之间时，执行FOR与ENDFOR之间的循环体，如果的值超过时退出循环;STEP后的步长为的增加幅度，每执行一次循环，的值就自动增加一个步长，当STEP省略时，默认步长为1。当在执行FOR循环体中的语句遇到LOOP时，无条件回到FOR循环的开始位置，遇到EXIT时，无条件退出循环，执行ENDFOR后面的语句。 17例5 输入10个自然数，统计其中偶数的个数及偶数值。clearis=0ic=0For i=1 to 10 input “请输入第”+str(i,2)+“个数:

14、” to x if i%2=0 is=is+x ic=ic+1 endifendfor?”偶数个数为：”, ic?”偶数之和为：”, iscancel18例6 求100到200之间的所有素数(只能被1和自身整除的数)。clear?“100200间的素数有:“ for k=101 to 200 step 2 f=0 for j=2 to int(sqrt(k) if k % j=0 f=1 exit endif endfor if f=0 ? k endifendfor如：设置变量f用于记录是否为素数， f=0是素数； f=1不是素数。在程序设计中，经常要记录一些状态，作为判断的条件。因此需要在

15、程序中设置一些标志，通常标志是整型变量。多重循环结构多重循环结构：是指循环体中又包含其它循环的复杂程序结构。 19排序算法例7 选择排序程序(降序)：clearinput “请输入数据个数： to ndime x(n)for k=1 to n input “请输入第”+str(k,2)+“个数据: to x(k)endfor for i=1 to n-1 for j=i+1 to n if x(i)x(j) temp=x(i) x(i)=x(j) x(j)=temp endif endfor endfor ? ”排序后数据:”for i=1 to n ? x(i), endfor 外层循环i变

16、化内层循环j变化比较交换排序是将一组随机排放的数按从大到小或从小到大重新排列。20选择排序的改进 选择排序改进算法的基本思路，每轮排序将x(i)假定为极，每次在x(i)到 x(max)中找出其极值，记录其位置，最后让极值位置的元素与x(i)交换。保证每轮排序只有一次交换，且为有效的交换！clearinput “请输入数据个数： to ndime x(n)for k=1 to n input “请输入第”+str(k,2)+“个数据: to x(k)endfor for i=1 to n-1 k=i for j=i+1 to n if x(k)x(j) k=j endif endfor if ki temp=x(i) x(i)=x(k) x(k)=temp endif endfor ? ”排序后数据:”for i=1 to n ? x(i), endfor 排序循环假定最大值位置循环比较找出最大值位置与本次比较的第一个元素交换21cleastore 0 to max,mininput