程序设计实例(专升本).pptVIP

VFP程序设计实例 三、程序三种基本的控制结构 结构分支举例 计算分段函数的值： 计算各阶乘之和的程序代码之二(方法二)： S=0 FOR n=1 TO 100 T=1 FOR m=1 TO n t=t*m ENDFOR S=s+t ENDFOR ？”!+2!+3!+…+100!＝”,S 典型的过程程序设计 1、累加： 如：S=1+2+3+4+……+n S=2+4+6……+2n S=1+3+5+……+2n-1 2、累乘（阶乘）： 如：P=1*2*3*……*n=n! P=1*3*5*7……*(2n-1) 3、找出最大的数和最小数。 4、分段函数的求解。 练习： 1、从键盘输入10个数，然后找出其中之一最大值和最小值。 2、党费收取是按工资收入标准确定，假设基本工资500元以下，按1%缴；基本工资在500-1200元，按1.5%缴；基本工资在1200-1800元，按1.8%缴；基本工资在1800-2400元，按2.0%缴；基本工资在2400元及其以上，按2.5%缴。编写程序实现自动计算缴费金额。 下面的循环嵌套是正确的: 注意：循环不能交叉！ 注意：下面的循环嵌套交叉，是错误的: 例9：显示九九乘法表。 N=1 DO WHILE N=9 M=1 DO WHILE M=9 ? N,*,M,=, N*M M=M+1 ENDDO N=N+1 ENDDO 四、多重循环 (循环嵌套) 例10：计算1!+2!+3!+…+n! S=0 INPUT N= TO N FOR I=1 TO N K=1 FOR J=1 TO I K=K*J NEXT S=S+K NEXT ? 1!+2!+3!+...++LTRIM(STR(N))+!=+LTRIM(STR(S)) RETURN 四、多重循环 (循环嵌套) S=0 K=1 INPUT N= TO N FOR I=1 TO N K=K*I S=S+K NEXT ? 1!+2!+3!+...++LTRIM(STR(N))+!=+LTRIM(STR(S)) RETURN 例11：求出3至100之间的所有素数。 CLEAR FOR N=3 TO 100 STEP 2 M=INT(SQRT(N)) FOR I=3 TO M IF MOD(N,I)=0 EXIT ENDIF ENDFOR IF IM ?N ENDIF ENDFOR RETURN 判断一个数n是否为素数的方法是：用3到(n-1)的各个整数依次去除n，如果除不尽，n就是素数。如果讲究效率,只需除到INT(SQRT(n))即可 。 素数:除了1和它本身外不能被任何一个整数所整除的自然数 * * * * 2009年专升本辅导 1、计算S=1+2+…+100的值。（求和、统计） 程序设计二：set talk off s=0 I=1 Do while I=100  S=s+I I=I+1  Enddo ? ‘累加和s=’, sset talk onreturn 程序设计一：set talk off s=0 Do while I=100  S=s+I I=I+1  Enddo ? ‘累加和s=’, sset talk onreturn 1．INPUT命令 格式: INPUT [提示信息] TO 内存变量 功能: 显示提示信息, 暂停程序运行, 等待用户从键盘输入除备注型、屏幕型以外的任何类型数据, 以回车键结束输入。 字符型数据必须用定界符括起来; 逻辑型数据必须用圆点定界符括起来; 日期型数据按 CTOD(MM/DD/YY)格式或{^YYYY-MM-DD}格式; 数值型数据不需要任何定界符。 二、VFP交互式的输入语句 1．INPUT命令 例： INPUT命令使用示例 INPUT 请输入姓名: TO aa 请输入姓名: “夏天” 或 ’夏天’ 或 [夏天] INPUT 请输入出生日期: TO bb 请输入出生日期: CTOD(09/12/85)