Vf练习1-5.doc

Vf练习1—5 1、任意一个数，若能被7或3整除，则输出该数，最后释放所有的内存变量 SET TALK OFF INPUT “输入一个数”TO X IF [23] ？[24] ENDIF [25] RETURN 1、下面程序的功能是计算1——100之间所有整数的平方和并输出结果 S=0 [1] DO WHILE X100 [2] [3] ENDDO ?S RETURN 1、编程求1——1000之间被3整除又被5整除的个数及其和。 N=0 S=0 K=1 DO WHILE [1] IF [2] AND[3] [4] S=S+K ENDIF K=K+1 ENDDO ？N，S RETURN 3、从键盘上连续输入10组数，分别输出每数和，对输入进行规定，每组数的结束标志为“0” K=1 DO WHILE [7] ?”请输入第”+[8] +“组数” S=0 X=1 DO WHILE[9] INPUT “请输入下一个数：”TO X [10] ENDDO ？”第”+[11] +“组数之和”，S K=K+1 ENDDO RETURN 4、编写程序，要求从键盘输入9个数，按从小到大的顺序排列并显示出来。 CLEAR [12] I=1 DO WHILE[13] INPUT TO K（I） I=I+1 ENDDO I= 1 DO WHILE[14] J=[15] DO WHILE[16] IF[17] T=K（I） K（I）=K（J） K（J）=T ENDIF [18] ENDDO I=I+1 ENDDO I=1 DO WHILE I10 [19] I=I+1 ENDDO RETURN 3、键盘输入10个数，输入最小数 SET TALK OFF CLEAR K=1 INPUT “请输入第1个数：” TO A DO WHILE[12] INPUT “请输入第2个数：” TO B IF[13] [14] ENDIF [15] [16] ？“最小数”，A SET TALK ON RETURN 4、从键盘输入10个数，按从小到大的顺序输出 SET TALK OFF CLEAR [17] I=1 DO WHILE I=10 INPUT TO M(I) ENDDO I=1 DO WHILE [18] J=1 DO WHILE[19] IF [20] T=M(J) M(J)=M(J+1) M(J+1)=T ENDIF [21] ENDDO I=I+1 ENDDO I=1 DO WHILE I=10 [22] I=I+1 ENDDO SET TALK ON RETURN 4、计算10！+15！+20！+25！ CLEAR I=10 T=0 DO WHILE[14] S=0 DO PRO1 WITH [15] T=[16] I=[17] ENDDO ？T ENDDO RETURN 子程序功能计算P=N！ *子程序PRO1.PRG PARAMETERS P，N STORE[18] TOL，P DO WHILE[19] P=[20] L=L+1 ENDDO 6、编写一个子程序计算N的阶乘，在主程序中计算3！+5！+7！+9！+11！。 *主程序JCS.PRG SE