《VFP程序设计.doc》由会员分享，可在线阅读，更多相关《VFP程序设计.doc（24页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第六章 程序设计21 * *工 总 性 性 工* * -。代写下在目按 表 .存资汇按内 表已：-计设- * * ) , + = =* *-= ,为 ：符主 -。代序下，目请 现句 用中 入果将应,： 符字 ：字输， 数的串个一符为个统：-计序- * *= / )+ =* *-= -。代序下，题请 中 变果结 成来语 求 0/ /+- 值式达计编-计序- * * (? - -( =* * -。码程面求要 量入第 形图程用-计设-* *= =0 =0 ( 00( =* * -中 量存将数-数整0大一- * *= *=00 =0%( 0 =* * -= -现现 使 变存。位 数位的于求- 计* *
2、 = + + * 0 )+ )0 00 =* *-=-中中变入将多数问平个又 再方全一后加数一编- 计设* *=, *= 0 % - * *-= -中中量存将）与（子所数给并计编- * *= - = = - * * 数给-=-中 量果结的整这整于一找编- 计设* *=,= + 0 - , * *-= -中 变果将 应时为的如身与不之有 定出计编- * * = = ( =* *-= ( (-0回则 数数是)整和能(数数判- 计 * * + 数数= / = =* *-。码程面在目按。变之有将的整 能数数的间 - 计* * = =0 0* *- 断行 整-中 量果。同以，侧 ，是平 整： 边方它出个
3、的是构同00求值。返否 结同若构是数判- * * =000 ( 0 00 * *-= -中 变存结上千数放依和十数个位数在数位数将方合 放个形合整数个程- 计* * = = = = = * *-= -中 量果结完语 . 请数的求，正量已- * * 汇汇 工 . 别 别 资工* *-表 存成总别容的 工据根- 设 * * 秀秀 等 笔( * * -写句 . 请优中级应者0到成和凡, 表试级计- 设* * = + + ( = - =* *- ：符 ：符字- 现 用中 入结 输 为字 ：符入输例次出符一在字为个计- 计设 * *= 名+, +师 + ( 师师称职 * *-。程下在目请 入数）现环 （
4、人的称表. 出）， ，）（学结 表- 计* * = , +, - = *=* *= =-中 量果。* 输， 入如出”“字字数换转成字由一- * * ,= +, +- ( =* *= =-现句循 要 存结格示( 应 输出输的有间个换串组个个一- 计设* *=,= += = , ) , , = = * *) = -中 量串字成将数的串新并字母中只内 变字存- 计 * * - ( )( * * (试算-码码写在求目。环 用算为，算入： 入向将量入串汉入输- 设 * *= += += ? = = = * *-。码写面在要请 定出字行第现 要等计输上在- 计* * = )*+ 0 =* *-=- 。 变
5、入，的0-.- 算时 。) =.,) = ( , 各列程- 设* * = ( =* *-=-现句环 用 量变果)- ( .) +=, (/, 值 达下， 当程- 计* * ( * *-= =( ( )( =(= =) =(=)(0( -中 量果。的最整正程- 计* * = ( * *-= ( )( ) =( ) = ) = = = 00 -。代写面句环 要照按 存。的的数正找- 计设* * =% 0=* *-= ( )( = ( =) ) = = (=) 00 -。代程面语 用求照按中变果。的最整批程- 计* * = = = * *-= ) =( )( = =)( )(= =) = 0 -中
6、量果。的数整找- 计* * * ( ) * *-= ) ( = =( ) =) =) =) ) 0 -中 量果将值最最批程- * * + ( = = / =* *-= )( ) )( ) )(=) =(= = =)(0( -中 存将 , , , 数定给数个均于组- 计* * = /+= = =* *-= -中 量果将完 .用使的/+/+/ / 序- 计设* * = = = = =* *-=-现句环 要 存将, 的/ ,/, 序- 计* * = = += * *-=-中中 果将项邻面均，项三为项，为项的已项前 - 计* * = = , * *-=-中 量存。的两其项，项第为项二值第数。的第数 -
7、 * *=,= =+ =* *-=-现实循 求 量存结个第此求 程和数两数的，数前数 0数列一序- 设* * + + *+ ,* + ( , = = * * -。实 用，+后开 输隔用量变开顺、数三- 计 * * = = 0= 0/ =0%( =* * -=-现现 要中 存果0返 则整 整被和字位 整- 设* * = 0/ 0% =* *-= -中 存将实 循求字位 然- 计* * = = )( += =* *-=-中 量果将来 用求值 + +- - 计设* * = * /+ += =* *-=-中 变存)求语 用。 / / /+ /= - 计* * = += += =* *-=-中 变存。完
8、句 . 用使的 +=- * * + = * = =* *=-码序编面求题请实循 用 存阶整整 之出- 计 * *= *= *= = = =* *- ( :数一请 -。代程下求要请。 . 用。 变将，由) ( (- 计 * *=,是 ！ + *= = = =* *-=-。码写下在题照。 . 用中量存将的 显- 计 * *= * = =* *- -。码序编，目请实环用求 量入将方数整能间 - * * - *+0 =* *-= -。实语 求要 变果，大件足0 +.* - 计 * * + =% 0 * *= -。环 求中变果结出则入例（的除能本数整所，个输- * *=,= + ) += =* *-现句
9、 要 量存结)(/ ) /) - 计* * = */)( =* *-=-中 变存。来 .用要0- + /值式达- * * = +(/ =* *-=中 变存。完 . 使/ - /值式下如- 计设* *=, + ( = =* -整各例输结入 句- *% * * -、开量 + - * ()*计-形语句 * *程代符中-* = * 设-环形 存题下。-*= - *, * 计-出 变面。- * * * -。下 . . 存用 - * =,(+*+ *设-列 前数和 第量 实-*= + ,* * - 数的第项项其存量-=-* =*计- 前项项三邻果中-* * *-序, , 环句-=* *= *计-序/的用
10、果量- *= +=* *-均定 存 - ( (= )-*= + *设 -值值 - 0)=) * , * -批值结中- ( =) * = * *计-程个合合数在位和数结 - * *0 0= * -是同返求同构个边整 ，同果-整行 - * = *-数能将有按在。- *= = * * -判和) 0- =* * =* -编有不如应果 - * , 0 ,* -找整的果- * = =* * -出整。 - - * *-计所与存中-* - * =* * -编数全 平多变中- *= 0 ) 0 * 计-于数。使 - *=0(0= = * -整-量-*= 0 * *-用 第 要码- * - ? * -序-计 -
11、/求 成结中题下。- * + =* -序计-：符个 ，字 ,入用 句 ，代- 符,=* = * * -：表汇资 在代- * 性 * * 设程程序设计1*-从键盘输入三角形的边长，输入边长满足两边之和大于第三边，且为正值。计算并输出三角形的面积S；若不满足以上条件，显示输出不能构成三角形。其中面积公式请参看(图1)。将面积值存入变量AREA中。请按照题目要求，在下面编写程序代码。 *-INPUT TO AINPUT TO BINPUT TO C? 三角形面积为,FUN(A,B,C)RETURNFUNCTION FUN(a,b,c)AREA=-1*Program* End *RETURN AREA
12、程序设计2*-从键盘任意输入的三个数按从大到小排序。排序后存入变量A，B，C中请按照题目要求，在下面编写程序代码。 *-A=-1B=-1C=-1input x= to xinput y= to yinput z= to zFUN(X,Y,Z)RETURNFUNCTION FUN(X,Y,Z)*Program* End *RETURNDO YZJ10 WITH OUT程序设计3*-从键盘输入一个数，如果该数字大于0，通过子程序输出该数字作为半径的圆面积；如果该数字小于等于0，则输出不能作为圆的半径。(PI=3.14)将结果存入变量OUT中，请按照题目要求，在下面编写程序代码。 *-INPUT T
13、O A?FUN(A)FUNCTION FUN(R)OUT=-1*Program* End *RETURN OUT程序设计4*-从键盘输入3个数，然后找出其中最大值和最小值。最大值存入中，最小值存入中。本题使用IF.EndIf 语句完成。*-INPUT 请输入一个数： TO AINPUT 请输入一个数： TO BINPUT 请输入一个数： TO CMa=-1Mi=-1FUN(A,B,C)?MA,MIFUNC FUN(A,B,C)*Program* End *RETURN程序设计5*-计算下列分段函数：如下图当输入任意X值时，显示输出Y值，要求用Do Case语句实现。*-INPUT TO X?F
14、UN(X)RETURNFUNCTION FUN(X)Y=-1*Program* End *RETURN Y程序设计6*-判断一个三位数是否为水仙花数，并输出判断结果，是为1，否为0。所谓水仙花数是指一个3位数，其各位数字立方和等于该数本身。将结果存入变量OUT中。*-OUT=-1n=153*Program* End *程序设计7*-编程求对某一正数的值保留2位小数，并对第三位进行四舍五入。将结果存入变量OUT中。*-h=234.5367OUT=-1*Program* End *程序设计8*-编程求对某一正数的值保留3位小数，并对第4位进行四舍五入。将结果存入变量OUT中。*-h=234.536
15、7OUT=-1*Program* End *11程序设计9*-输出10到50之间所有能被7整除的数。(用do while enddo语句实现)并将这些数的和存入所给变量OUT中。请按照题目要求，在下面编写程序代码。 *-OUT=-1*Program* End *DO YZJ4 WITH OUT程序设计10*-求1-200间的所有偶数的和，结果输入变量OUT中，要求用For循环语句实现。*-OUT=-1*Program* End *程序设计11*-编程求P=1+1/(2x2)+1/(3x3)+ 1/(10x10)。将结果存入变量OUT中，要求用Do While语句实现。*-OUT=-1*Prog
16、ram*P=0M=1DO WHILE M=10P=P+1/(M*M)M=M+1ENDDO? P=,POUT=P* End *程序设计12*-编程计算如下表达式的值：y=1-1/31/5-1/71/9，要求使用for.endfor语句来完成。将结果存入变量OUT中。OUT=-1*-*Program*s=1for i=1 to 4s=s+(-1)i/(2*i+1)endforout=s? out* End *程序设计13*-编程计算如下表达式的值：y=1-1/2+1/4-1/6+1/8-1/10，要求使用for.endfor语句来完成。将结果存入变量OUT中。*-OUT=-1*Program*s=
17、1for i=1 to 5s=s+(-1)i/(2*i)endforout=s? out* End *程序设计14*-编程求P=1-1/(22)+1/(33)-1/(44)+1/(55)。将结果存入变量OUT中，要求用Do While语句实现。*-OUT=-1*Program*P=0M=1I=0DO WHILE M=5P=P+(-1)(M+1)/(M*M)M=M+1ENDDO? P=,POUT=P* End *程序设计15*-从键盘输入一个整数，输出所有能整除该数，并且本身也能被3整除的数的和。（例如：输入6，则输出3，6）结果存于变量x中，要求用For循环语句实现。*-INPUT TO N?
18、FUN(N)FUNCTI FUN(A)X=0*Program*FOR N=1 TO A IF A%N=0.AND.N%3=0 ? N x=x+N ENDIFENDFOR* End *RETURN X程序设计16*-编程求出1*1+2*2+.+n*n=1000中满足条件的最大的n，将结果存入变量OUT中。要求用Do While语句实现。 *-OUT=-1*Program*s=0n=1do while s=1000n=n+1s=s+n*nenddoout=n-1? out* End *程序设计17*-用子程序求出115 之间的能被3整除的整数的平方和。将结果存入变量OUT中，要求用For循环实现。
19、请按照题目要求，在下面编写程序代码。 *-OUT=-1*Program*N=1S=0FOR N=1 TO 15 IF N%3=0 S=S+N*N ENDIF ENDFOR ? SSET TALK ONOut=S* End *DO YZJ10 WITH OUT程序设计18*-编程求出并显示 3!+4!+5! 的值，将结果存入变量OUT中。要求用For.EndFor编程。请按照题目要求，在下面编写程序代码。 *-OUT=-1*Program*S=0For I=3 to 5p=1For j=1 to I p=p*j endfor s=s+pendfor?3！+4！+5！的值是:,sOut=S* End *DO YZJ2 WITH OUT程序设计19*-编程求P=1x(1x2)x(1x2x3)x x(1x2x xN)，N由键盘输入，将结果存入变量OUT中。要求用For.EndFor编程。请按照题目要求，在下面编写程序代码。 *-INPUT 请任意输入一个数字: TO N?FUN(N)FUNCTION FUN(N)OUT=-