资源描述
1,目录,VFP基本知识控制结构及程序设计应用举例,2,clears=0fori=1to100s=s+iendfor?“s=”,sreturn,例1编程求1+2+3+100,第一讲VFP基本知识,初始化部分,数据处理(循环)部分,输出部分,结束语句,3,1.1程序的概念,程序设计：是计算机用户将解决某一实际问题所用的命令按一定的逻辑顺序编制成程序，并以文件的形式存放于磁盘的过程。执行程序时，计算机按顺序自动执行程序文件中的命令。,程序是为解决某一特定问题而编写的一组命令的有序集合。这些命令是按一定的逻辑顺序有机地结合在一起，并以文本文件的形式存储在外存上，称为程序文件或命令文件，可以被多反复调和执行。VFP系统的程序文件扩展名为.prg。在高级语言中，由于这些命令与我们日常生活中使用的自然语言和数学语言类似，所以，习惯地将程序文件中的命令称为语句。当程序运行时，计算机系统是从头开始、按逻辑顺序自动地逐条执行程序中的语句的。,4,1.2VFP语言基础,1.常量,处理过程中其值不发生变化的量称为常量。常量用来表示一个具体的、不变的值。,字符型C字符型常量也称字符串，通常用来表示文本类型信息。由中英文字符、数字、空格和特殊符号组成，其表示方法是用定界符将字符串括起来，定界符规定只能使用：一对双引号（）、一对单引号（或一对方括号（）。,一个字符型常量中字符的个数称为其长度。一个西文字符长度为1，一个中文字符长度为2，如字符串VisualFoxPro的长度为13、重庆沙坪坝的长度为10。不包含任何字符的字符串()叫空串，其长度为0。,5,数值型N数值型常量也就是数学上的常数，用来表示一个数量的大小。由数字09、小数点和正负号组成，如12、3.1345、-6.78、8.5678E-10（科学计数形式，表示8.567810-10）等。,逻辑型L逻辑型常量只有两个值：逻辑真和逻辑假，用来表示逻辑判断（运算）的结果。用.T.、.t.或.Y.、.y.表示逻辑真，用.F.、.f.或.N.、.n.表示逻辑假。逻辑型数据在内存中只占一个字节，长度为固定1。,比如：在命令窗口中输入如下命令：?123200,重庆=90?“优秀”CASEsc=80?“良好”CASEsc=70?“中等”CASEsc=60?“及格”OTHERWISE?“不及格”ENDCASEreturn,34,2.3循环结构,程序经常会重复执行某些相同的操作，如：求：s=1+2+3+4+100,此类根据某个条件重复执行相同算法的结构，称为循环。,clears=0fori=1to100s=s+iendfor?“s=”,sreturn,程序:,算法描述：s=0i=1s=s+ii=i+1判断i是否小于等于100如果i小于等于100，重复否则，结束。,初始化部分,循环体,含有趋假的语句,循环条件，循环应在有限次完成,35,当循环,DOWHILELOOPEXITENDDO,条件,真,循环体语句LOOPEXIT,假,含有使条件趋假的语句,功能：执行过程描述如下：当程序执行到DOWhile时，先计算的值；对的值进行判断，即判断条件是否成立；若值为.F.，则退出循环，执行enddo的后继语句；若值为.T.，则执行循环体；执行循环体时，当遇到LOOP语句，则结束本次循环，转到继续执行；执行循环体时，当遇到EXIT语句，则结束本层循环，执行ENDDO的后继语句。,36,例12用DOWHILE循环结构编程求：1+2+3+100,CLEARs=0i=1DOWHILEi=100s=s+ii=i+1ENDDO?1+2+3+100=,sRETURN,分析：本问题可按以下步骤实现：步骤一：初始化求和变量s和循环变量i。s用来保存每次累加的结果，初值为0；i既是被累加的数据，也是控制循环的变量，初值为1；,程序:,步骤二：每循环一次，s的值增加i，i的值增加1，直到i的值超过100；步骤三：循环结束，输出结果。,37,FOR循环,FORTOSTEPEXITLOOPENDFOR|NEXT,i=,i超过终值,否,循环体loopexit,i=i+步长,是,循环体,CLEARs=0input“请输入n的值”tonFORi=1TOns=s+iENDFOR?1+2+3+n=,sRETURN,38,功能：执行过程描述如下：当程序执行到FOR时，先将赋给循环变量；判断循环变量的值是否超过；若循环变量的值超过则转到，若循环变量的值没有超过则执行循环体；执行循环体时，当遇到LOOP语句，则结束本次循环，转到继续执行；执行循环体时，当遇到EXIT语句，则结束本层循环，执行ENDFOR的后继语句；循环体执行完毕，循环变量自动增加一个步长，自动转到继续执行；结束循环，执行ENDFOR的后继语句。,说明：当STEP省略时，默认为1；“循环变量的值超过”的含义是：大于等于0则增加，小于0则减少；结束语句ENDFOR也可用NEXT代替。,39,例13输入10个自然数，统计其中偶数的个数及偶数值。,clearis=0ic=0Fori=1to10input“请输入第”+str(i,2)+“个数:”toxifi%2=0is=is+xic=ic+1endifendfor?”偶数个数为：”,ic?”偶数之和为：”,iscancel,40,例14编程实现：请输出右下图所示的任意行数的三角形。,程序：,CLEARINPUT请输入三角形的行数：TOnFORi=1TOn?REPL(*,2*i-1)AT51-iENDFORRETURN,分析：要编程输出该图形，主要需确定两个方面的问题：一是行数与“*”个数的关系（第i行的“*”个数为2*i-1）；二是各行输出的起始位置（若第1行为50，则第2行为49，以此类推，每行递减1）。,*,41,例15编程实现：先随机产生30个100500之间的整数，放在一个一维数组中并输出。然后，统计其中奇数和偶数的个数。,CLEARDIMEx(30)?随机产生的30个100500间的整数为：?FORi=1TO30 x(i)=100+INT(RAND()*400)?STR(x(i),5)ENDFORg=0h=0FORi=1TO30IFx(i)%2=0g=g+1ELSEh=h+1ENDIFENDFOR?奇数个数为：,h?偶数个数为：,gRETURN,程序：,42,例16求100到200之间的所有素数(只能被1和自身整除的数)。,clear?“100200间的素数有:“fork=101to200step2f=0forj=2toint(sqrt(k)ifk%j=0f=1exitendifendforiff=0?kendifendfor,如：设置变量f用于记录是否为素数，f=0是素数；f=1不是素数。,在程序设计中，经常要记录一些状态，作为判断的条件。因此需要在程序中设置一些标志，通常标志是整型变量。,多重循环结构,多重循环结构：是指循环体中又包含其它循环的复杂程序结构。,43,排序算法,例17选择排序程序(降序)：,clearinput“请输入数据个数：tondimex(n)fork=1toninput“请输入第”+str(k,2)+“个数据:tox(k)endforfori=1ton-1forj=i+1tonifx(i)x(j)temp=x(i)x(i)=x(j)x(j)=tempendifendforendfor?”排序后数据:”fori=1ton?x(i),endfor,外层循环i变化,内层循环j变化,比较交换,排序是将一组随机排放的数按从大到小或从小到大重新排列。,44,选择排序的改进,选择排序改进算法的基本思路，每轮排序将x(i)假定为极，每次在x(i)到x(max)中找出其极值，记录其位置，最后让极值位置的元素与x(i)交换。保证每轮排序只有一次交换，且为有效的交换！,clearinput“请输入数据个数：tondimex(n)fork=1toninput“请输入第”+str(k,2)+“个数据:tox(k)endforfori=1ton-1k=iforj=i+1tonifx(k)itemp=x(i)x(i)=x(k)x(k)=tempendifendfor?”排序后数据:”fori=1ton?x(i),endfor,排序循环,假定最大值位置,循环比较找出最大值位置,与本次比较的第一个元素交换,45,结束,分析：若被除数用K、除数为M、余数为N，数学方法，用这一次的M作下一次的被除数、余数N作下一次的除数进行求运算，直到余数N为0为止，则除数M为两数的最大公约数。假设两数分别为75、350，分析过程和流程图如下：,例18求两个自然数的最大公约数。,CLEARINPUT请输入第一个整数：TOkINPUT请输入第二个整数：TOm?ALLTRIM(STR(k)+和ALLTRIM(STR(m)+的最大公约数是：n=k%mDOWHILEn0k=mm=nn=k%mENDDO?mRETURN,程序:,
展开阅读全文