VF程序设计复习资料(12.14)2

第二部分结构化程序设计语句和算法一、顺序结构程序设计的命令：1.变量的赋值变量=表达式2.变量的输入INPUT 提示信息 TO 变量3.表达式的输出？表达式表？？表达式表算法：1.求园的面积ClearInput “请输入园的半径：” to rS=3.14*r^2?”园的面积是：”,sReturn2.交换任意两个变量的值ClearInput “请输入X的值：” to XInput “请输入Y的值：” to YT=XX=YY=T? X,YRETURN二、选择结构程序设计的命令：IF 条件命令序列AELSE命令序列BENDIF如果命令序列B为空，则ELSE与命令序列B可以省略。

算法：1.判断闰年ClearInput “请输入年份：” to yIf (y%4=0 and y%100<>0) or y%400=0?y,”是闰年！”Else?y,”是闰年！”endif2.求3个数的最大值ClearInput “请输入X的值：” to XInput “请输入Y的值：” to YInput “请输入 Z的值：” to ZIF X>YMAX1=XELSEMAX1=YENDIFIF Z>MAX1MAX1=ZENDIF? MAX1RETURN三、循环结构程序设计的命令：1.Do while 条件循环体Enddo2. For 循环变量=初值 TO 终值 STEP 步长循环体Endfor其中步长为1时，STEP 1 可以省略。

并且步长可以为正，也可以为负，步长为正时循环条件时循环变量<=终值，而步长为负时循环条件>=终值。

算法：1. s=1+2+3…+100Cleari=1s=0Do while i<=100s=s+ii=i+1Enddo?”s=”,sreturn2.将上例用for语句实现Clears=0For i=1 to 100s=s+iendfor?”s=”,s3.求1-100奇数的和。

Clears=0For i=1 to 100 step 2s=s+iendfor?”s=”,sreturn4.求1-100偶数的和。

Clears=0For i=2 to 100 step 2s=s+iendfor?”s=”,sReturn5.求N!=1×2×3×4…×NClearInput “请输入n的值” to ns=1For i=1 to ns=s*iendfor?”s=”,sreturn6.求s=1-1/2+1/3-1/4+....+1/100 clears=0d=1for i=1 to100s=s+d*1/id=-dendfor?"s=",sReturn或者clears=0for i=1 to 100s=s+ 1/i*（-1）^ (i+1)?"s=",sReturn7.输出1-100能被3整除的数，要求数据以5个为一组输出。

Clearn=0for i=1 to 100if i%3=0??in=n+1if n%5=0?Endifendifendforreturn8.求fibnocsi数列。

有一个数列第1个数为1，第2个数1，第3个数是第1、2两个数之和，以后的每个数都是其前两个数之和，要求输出这个数列的前20项，并且要求每行输出5个数。

clearf1=1f2=1?? f1,f2for i=3 to 20f=f2+f1??ff1= f2f2= fif i%5=0?endifendforreturn9.求两个数的最大公约数。

采用辗转相除法：m除以n，得余数r；如果r不等于0，则将n赋予m，r赋予n，再用m 除以n，得余数r；依次类推，直到r＝0为止，此时的n就是最大公约数。

Clearinput"输入M:" to minput"输入N" to nr=mod(m,n)do while r<>0n=rr=mod(m,n)enddo?"最大公约数是：",nReturn10.判断某个数是否是素数。

（除了1和它本身之外不能被任何一个整数所整除的自然数叫质数，除去2之外，其它质数都是奇数，又称为素数）设置变量f用于记录是否为素数，f=.t.是素数；f=.f.不是素数。

程序：clearinput "m=" to mf=.T.for i=2 to m-1if m%i=0f=.F.exitendifendforif f=.T.? "yes"else? "no"endifreturn或者clearinput "m=" to mfor i=2 to m-1(此处可以为m/2或者sqrt(m))if m%i=0exitendifendforif i>m-1? "yes"else? "no"endifreturn11.输出100-1000以内的所有素数，并计算这些素数之和。

（输出时按照每行5个数据方式输出）。

clearcount=0s=0for m=100 to 1000for i=2 to m-1if m%i=0exitendifendforif i>m-1?? mcount=count+1if count%5=0?endifs=s+mendifendfor?"s=",sreturn13.输出100—999之间的所有的水仙花数。

所谓水仙花数是指一个3位数，其每位数字的立方和等于它本身。

clearfor m=100 to 999x=int(m/100)y=int((m%100)/10)或者 y=int(m/10)%10z=m%10if x^3+y^3+z^3=m?mendifendforreturn14.求s=1!+2!+……+n! （即求阶乘之和）clearinput "n=" to ns=0t=1for i=1 to nt=t*is=s+tendfor?"s=",sReturn15.计算 s=1!+1/2!+1/3!……+1/n! （即求阶乘之和）clearinput "n=" to ns=0t=1for i=1 to nt=t*is=s+1/tendfor?"s",sreturn16.计算 s=1!+1/2!+1/3!……+1/n!(要求1/n!<10-6为止)clears=0t=1i=1do while 1/t>=1e-6s=s+1/ti=i+1t=t*iendfor?"s",sreturn17.计算 s=x/1!-x2/2!+x3/3!……±x n/n!( 要求x n/n!<10-6为止)ClearInput “x=” to xs=0t=1i=1do while abs(x^i/t)>=1e-6s=s+x^i/t*(-1)^(i+1)i=i+1t=t*iendfor?"s",sreturn18.穷举法：百钱买百鸡问题。

clearfor x=1 to 19for y=1 to 33z=100-x-yif z%3=0if 5*x+3*y+z/3=100?x,y,zendifendifendforendforreturn19.设计1个程序，要求是：(1)在键盘上输入1个不小于3的自然数N（例输入10），求出其不到第N个自然数中奇数之和，并输出结果(2)输出1到第N自然数中所有质数的个数clearinput "n=" to ns=0x=0if n<3 then?"请输入大于等于3的数"elsefor i=3 to n step 2s=s+iendforfor m=2 to nf=.T.for i=2 to m/2if m%i=0f=.F.exitendifendforif f=.T.x=x+1endifendfor?"奇数和为：",s?"质数个数为：",xendifreturn四、一维数组1、定义：Dimension 数组名(长度)2、引用：数组名（下标）下标从1开始引用，并且下标可以是常量、变量和表达式。

3、一维数组的赋值和输出*利用键盘输入数据值dimen a(10)for i=1 to 10input "输入数据：" to a(i)endforfor i=1 to 10??a(i)Endforreturn*利用rand（）函数随机产生10-99的随机整数dimen a(10)for i=1 to 10a(i)=int(rand()*(80))+10??a(i)endfor例子：1、从键盘上输入10个数，求其平均值。

ClearDime x(10)S=0For i=1 to 10S=s+x(i)Endfor? s/10Return2、将具有n个元素的一维数组的值按逆序重新存放。

clearinput "请输入元素个数：" to ndimen a(n)*数组元素赋初值for i=1 to ninput "输入数据：" to a(i)endfor*输出数组元素值for i=1 to n??a(i)endforfor i=1 to int(n/2)temp=a(i)a(i)=a(n-i+1)a(n-i+1)=tempendfor*换行?for i=1 to n??a(i)endforreturn3、从键盘输入10个数，从中找出最大和最小的数，以及它们的位置。

求最小数和其位置：cleardimen a(10)for i=1 to 10input "输入数据：" to a(i)endforminx=a(1)minp=1for i=2 to 10if minx >a(i)minx =a(i)minp=iendifendfor?"min=", minx?"position=",minpReturn求最大数和其位置：cleardimen a(10)for i=1 to 10input "输入数据：" to a(i)endformaxx=a(1)maxp=1for i=2 to 10if maxx <a(i)maxx =a(i)maxp=iendifendfor?"max=", maxx?"position=",maxpReturn4、随机产生10个两位整数，按由小到大的顺序排列并显示输出。