Visual FoxPro程序设计算法基础1

重庆贝思马克教育考试培训中心Visual FoxPro程序设计常用算法常用算法有8个方面1、递推算法（级数、数列求和、二分法、梯形法、穷举法等）2、排序算法（选择法排序、冒泡法）3、查找算法（顺序查找、折半查找、统计、求和、计数）4、有序数列的插入、删除操作5、求解算法（最大数、最小数、素数、最大公约数、最小公倍数）6、矩阵的处理（生成矩阵、交换和基本运算）7、递归算法（求阶乘、最大公约数）8、字符串处理（插入、删除、连接和比较）简单算法举例例求1 ×2 ×3 ×4 ×5可以用最原始的方法进行。

步骤1 : 先求1 ×2 ，得到结果2 。

步骤2 :将步骤1 得到的乘积2 再乘以3 ，得到结果6 。

步骤3 : 将6 再乘以4 ，得24 。

步骤4 : 将24 再乘以5 ，得120 。

这就是最后的结果。

这样的算法虽然是正确的，但太繁琐。

如果要求1 ×2 ×… ×1000 ，则要写999 个步骤，显然是不可取的。

而且每次都直接使用上一步骤的数值结果( 如2 ，6 ，24 等) ，也不方便。

应当找到一种通用的表示方法。

重庆贝思马克教育考试培训中心可以设两个变量，一个变量代表被乘数，一个变量代表乘数。

不另设变量存放乘积结果，而直接将每一步骤的乘积放在被乘数变量中。

今设p 为被乘数，i 为乘数。

用循环算法来求结果。

可以将算法改写如下：S1 ：使p=1S2 ：使i=2S3 ：使p ×i ，乘积仍放在变量p 中，可表示为p = p×iS4 ：使i 的值加1 ，即i=i +1S5 ：如果i 不大于5 ，返回重新执行步骤S3以及其后的步骤S4 和S5 ；否则，算法结束。

最后得到p 的值就是5! 的值。

上面的S1 代表步骤1重庆贝思马克教育考试培训中心•i<=5P=p*ii=i+1初始化p=1i=2YN输出pclearp=1for i=2 to 5p=p*iendfor?"1*2*3*4*5=",p cancel如果题目改为求1 ×3 ×5 ×7 ×9 ×11 。

算法只需作很少的改动即可：S1 ：p = 1S2 ：i = 3S3 ：p =p ×iS4 ：i=i+2S5 ：若i ≤ 11 ，返回S3 ；否则，结束。

clearp=1for i=3 to 11 step 2 p=p*iendfor?"1*2*3*……*11=",p cancel判定2000 —2500 年中的每一年是否闰年，将结果输出。

闰年的条件是：①能被4 整除，但不能被100 整除的年份都是闰年，如1996 年，2004 年是闰年；②能被100 整除，又能被400 整除的年份是闰年。

如1600 年、2000 年是闰年。

不符合这两个条件的年份不是闰年。

S1 ：y = 2000S2 ：y 不能被4 整除，则输出y “ 不是闰年”。

然后转到S6S3 ：若y 能被4 整除，不能被100 整除，则输出y “ 是闰年”。

然后转到S6S4 ：若y 能被100 整除，又能被400 整除，输出y “ 是闰年”；否则输出“不是闰年”。

然后转到S6S5 ：输出y “ 不是闰年”S6 ：y+1=>yS7 ：当y ≤ 2500 时，转S2 继续执行，如y ＞2500 ，算法停止。

clear重庆贝思马克教育考试培训中心input"请输入判断的开始年：" to n input"请输入判断的结束年：" to m for i=n to mdo casecase i%4!=0? str(i,4),"不是闰年！"case i%4=0.and.i%100!=0?str(i,4),"是闰年！"case i%100=0.and.i%400=0?str(i,4),"是闰年！"otherwise?str(i,4),"不是闰年！"重庆贝思马克教育考试培训中心例输入任意数，判断它是否为素数质数又称素数。

指在一个大于1的自然数中，除了1和此整数自身外，没法被其他自然数整除的数。

换句话说，只有两个正因数（1和自己）的自然数即为素数。

比1大但不是素数的数称为合数。

1和0既非素数也非合数算法可以表示如下：重庆贝思马克教育考试培训中心S1 ：输入n 的值S2 ：i =2 （i 作为除数）S3 ：n 被i 除，得余数rS4 ：如果r=0 ，表示n 能被i 整除，则打印“n不是素数”，算法结束；否则执行S5S5 ：i= i+1S6 ：如果i ≤ n-1 ，返回S3 ；否则打印n “ 是素数”，然后结束。

实际上n 不必被2 到(n-1) 的整数除，只需被2到n 的开方间整数除即可，甚至只需被2 到n 之间的整数除即可。

例如，判断13 是否素数，只需将13 被2 、3 除即可，如都除不尽，n 必为素数。

S6 步骤可改为：S6 ：如果i ≤sqrt（n），返回S3 ；否则算法结束。

重庆贝思马克教育考试培训中心例输入任意数，判断它是否为素数clearn=0input “n: “ to nj=sqrt(n)for i=2 to jif n%i=0exitendifendforif i>j?n, “是素数”else?n, “不是素数”endif•在考虑算法时，应当仔细分析所需判断的条件，如何一步一步缩小被判断的范围。

•有的问题，判断的先后次序是无所谓的，•有的问题，判断条件的先后次序是不能任意颠倒的，•可根据具体问题决定其逻辑。

一递推算法•级数、数列求和、•二分法、梯形法、•穷举法重庆贝思马克教育考试培训中心用数组求fibonacci数列的前20个数clearset talk offdime f(20)f(1)=1f(2)=1for i=3 to 20f(i)=f(i-1)+f(i-2)endforfor i=1 to 20?"f("+str(i,2)+")=",str(f(i),4) endforset talk on f[20]i=3F[3]= F[1]+ F[2i=4F[4]= F[3]+ F[2重庆贝思马克教育考试培训中心•i<=20f(i)=f(i-1)+f(i-2)初始化f(1)=1f(2)=1YN for i=3 to 20重庆贝思马克教育考试培训中心求级数*s=1+1/2-1/3+1/4+....Clears=1d=1input "输入N："to n for i=2 to ns=s+d*1/id=-dendfor?"s=",scancel Clears=1input "输入N："to n for i=2 to nif (i%2=0)s=s+1/ielses=s-1/iendifendfor?"s=",s重庆贝思马克教育考试培训中心求n！t=1i=1input “n: “ to ndo while i<=nt=t*ii=i+1enddo?treturn重庆贝思马克教育考试培训中心输入10个自然数，统计其中偶数的个数及偶数和,奇数的个数和奇数的和clearis=0ic=0jc=0js=0For i=1 to 10input “请输入第”+str(i,2)+“个数:” to xif x%2=0is=is+xic=ic+1elsejs=js+xjc=jc+1endifendfor?”偶数个数为：”, ic, ”奇数个数为：”, jc选择法排序排序算法冒泡法排序的基本概念•将一组杂乱无序的数据按一定的规律顺次排列起来叫做排序(sort)。

•假定要排序的记录均已存储在一个一维数组中。

选择排序选择排序的主要操作是选择，其主要思想是:每趟排序在当前待排序序列中选出关键码最小的记录，添加到有序序列中。

用选择排序法对6个数进行排序(从小到大)97254 1a[1]a[2]a[3]a[4]a[5]a[6]选择排序方法: 第1轮比较时,用a[1]依次与a[2]到a[6]进行比较,如果a[1]较大则进行交换,第1轮结束后,a[1]中为最小数. 以后各轮比较过程与第1论类似.19754 212975 47957452412497 512457 979574597254 1729712初始状态第1轮第2轮第3轮第4轮第5轮7957clear input "请输入数组的个数：" to ndimension a(n)for i=1 to ninput "请输入数值数据：" to a(i) &&输入数组的元素endforfor i=1 to n-1 for j=i+1 to n if a(i)>a(j) temp=a(i)a(i)=a(j)a(j)=tempendifendfor endforfor i=1 to n &&输出排序以后的数组??a(i)endfor i=1 时, 要进行n-1次比较, a[1]与a[2]比, a[1]与a[3]比… a[1]与a[n]比, 最后a[1]中为最小数i=1 时, 要进行n-2次比较, a[2]与a[3]比, a[2]与a[4]比… a[2]与a[n]比, 最后a[2]中为第2小的数i=2 时, 要进行n-3次比较, a[3]与a[4]比, a[3]与a[5]比, a[3]与a[n]比, 最后a[3]中为第3小的数内层循环j变化外层循环i变化比较交换分析排序过程我们发现,在每一轮的比较中交换次数太多,我们可以尽量减少交换次数,实际上每轮比较只要一次交换就能完成排序.对选择排序进行改进,其方法如下:先从要排序的n个数中找出最小的数,把它放在第一个位置,再从剩下的n-1个数中找出最小的数,把它放在第二个位置,这样重复做下去改进后的选择排序方法数据进行比较的次数并没有减少，但每一轮只进行一次交换，加快了程序运行速度97254 1a[1]a[2]a[3]a[4]a[5]a[6]1k231917254 96!=0a[1]和a[6]换6k23273!=1a[2]和a[3]换12754 95!=2a[3]和a[5]换k34547设置变量k 用以存储当前最小数的下标clearinput "请输入数组的个数：" to n &&定义数组的个数dime a(n)for i=1 to ninput "请输入数值数据：" to a(i) endforfor i=1to n-1 &&选择排序算法k=ifor j=i+1to n if a(j)<a(k)k=j if k!=itemp=a(i)a(i)=a(k)a(k)=temp endif endif endfor endforfor i=1 to n &&输出排序以后的数组??a(i)endforfor i=1 to n-1k=ifor j=i+1 to nif a(j)<a(k)k=jif k!=itemp=a(i)a(i)=a(j)a(j)=tempendifendifendforendfor内层循环j变化外层循环i变化比较交换重庆贝思马克教育考试培训中心冒泡排序•冒泡排序是一种简单而且容易理解的排序方法，它和气泡从水中不断往上冒的情况有些类似。