VF考试 序设计.docVIP

1、从键盘上输入3个不同的数，将他们从大到小排序。请将下列程序填写完整。（提示：利用三个if…endif语句实现，其中交换时用到的临时内存变量为t）。。 set talk off input 请输入第一个数： to a input 请输入第二个数： to b input 请输入第三个数： to c **********Program********** if ab t=a a=b b=t endif if ac t=a a=c c=t endif if bc t=b b=c c=t endif ********** End ********** ?a,b,c Return Set talk on 2、求[1,100]内所有能被3或被5整除的数以及个数。（提示：利用do while语句实现）。 Set talk off clear n=0 i=1 **********Program********** Do while i=100 IF MOD(i,3)=0 .OR. MOD(i,5)=0 **int(i/3) = i/3 .OR. int(i/5) = i/5 ?? i n=n+1 Endif i=i+1 enddo ********** End ********** ? 满足条件的数的个数为:,n Set talk on Return 3、求自然数5的阶乘。请将下列程序填写完整。（用FOR循环语句） SET TALK OFF S = 1 M = 1 **********Program********** FOR M=1 TO 5 S=S*M ENDFOR ********** End ********** ? S SET TALK ON RETURN 4、从键盘上输入一个数n，计算n的阶乘。 Set talk off Input 请输入n的值： to N S=1 **********Program********** For I=1 to N S=S*I Endfor ********** End ********** ?S Set talk on Return 5、求连乘数1*2*3*4*……，当积大于720时退出程序。（提示：利用do while语句实现）。 Set talk off s=1 S表示积 I=1 **********Program********** Do while .T. s=s*i IF S720 EXIT ENDIF I=I+1 Enddo ? s=,s ********** End ********** Set talk on return 6、键盘上任意输入2个数，然后将这2个数从大到小显示输出。（注：中间变量用t，不允许使用max（）函数和min（）函数）。 INPUT 输入第1个数： TO n1 INPUT 输入第2个数： TO n2 **********Program********** IF n1n2 t=n1 n1=n2 n2=t ********** End ********** ENDIF ?n1,n2 RETURN 从键盘上输入5个数，求最大的一个数。 Set talk off Input 请输入第一个数： to x **********Program********** For i=1 to 4 Input 请输入第+str(i+1)+个数：to y If yx x=y endif endfor ********** End ********** ?x Set talk on return 8、为自来水公司计算水费: 如果用户用水量不超过5吨,每吨0.8元；超过5吨时, 超出部分每吨1.4元。请编写完整程序。（要求用input语句接受用水量的输入，最后的水费用变量x输出。) SET TALK OFF INPUT 请输入用水量: TO W **********Program********** IF W5 X=0.8*W ELSE X= 0.8*5 + (W-5) * 1.4 ENDIF ? 应交水费为:+STR(x)+元 SET TALK ON ********** End ********** RETURN 9、求自然数1至100的和并输出。请将下列程序填写完整。（用DO WHILE语句） SET TALK