VisualFoxPro数值图形程序.pptVIP

* 求100个1到50之间的随机整数,求它们的和。 SET TALK OFF S=0 FOR I=1 TO 100 M=INT(50*RAND( ))+1 ?？M S=S+M ENDFOR ?“S=”，S SET TALK ON RETU 数值类举例： 复习本章的所有数值类题目，包括书上题目及课后习题。 说明:rand()为求随机数函数,返回0到1之间的随机数。乘上50后扩大了50倍，取整后，范围为0到49之间的整数，所以最后要再加上1。 S=1+2+3+……+100 法一: SET TALK OFF S=0 FOR I=1 to 100 S=S+I ENDFOR ?S SET TALK ON 求100以内的偶数之和 SET TALK OFF S=0 FOR I=2 to 100 STEP 2 S=S+I ENDFOR ?S SET TALK ON 法二: SET TALK OFF I=1 S=0 DO WHILE I=100 S=S+I I=I+1 ENDDO ?S SET TALK ON SET TALK OFF S=0 FOR I=1 to 100 IF INT(I/2)=I/2 S=S+I ENDIF ENDFOR ?S SET TALK ON 计算1-3+5-…+（2*n-1）-（2*n+1） 的值。 分析：1、循环控制变量，假设为I=1；计算结果变量，假设为S=0； 2、输入 所求项数N，I=N；3、每项前面的符号（+或-）由循环控制变量控制，则为： （-1）^（I+1），那么，求和S=S+（-1）^(I+1)*(2*I-1)。 开始 I=1 S=0 N I=N S=S+(-1)^ (I+1)*(2*I-1) I=I+1 S 结束 .T. .F. SET TALK OFF I=1 S=0 INPUT “输入所求项数N:” TO N DO WHILE I=N S=S+(-1)^(I+1)*(2*I-1) I=I+1 ENDDO ?S SET TALK ON RETURN 例：求1+(1+3)+(1+3+5)+… SET TALK OFF CLEAR S=0 M=0 I=1 INPUT “请输入一个正整数：” TO N DO WHILE I=2*N-1 S=S+I M=M+S I=I+2 ENDDO ?”M=“,M SET TALK ON RETURN 比如：输入4 则 I=7 第一次循环： S=0+1 M=0+1 I=1+2 第二次： S=1+3 M=1+(1+3) I=3+2 第三次： S=1+3+5 M=1+(1+3)+(1+3+5) I=5+2 第四次：…… SET TALK OFF I=1 S=1 DO WHILE I=10 S=S*I I=I+1 ENDDO ?“10!=”，S SET TALK ON RETURN SET TALK OFF S=1 FOR I= 1 TO 10 S=S*I ENDFOR ?“10!=”，S SET TALK ON RETURN 例:求10! SET TALK OFF S=1 INPUT “N=” TO N FOR I=1 TO N S=S*I ENDFOR ?“N!=”，S SET TALK ON RETURN SET TALK OFF I=1 S=1 INPUT “N=” TO N DO WHILE I=N S=S*I I=I+1 ENDDO ?“N!=”，S SET TALK ON RETURN 例:求N! 1!+2!+…….+10! SET TALK ON S=0 P=1 FOR I=1 TO 10