[其它]VF典型题例.ppt

VF编程典型题例 复习 1、顺序结构 8.2.1 简单分支语句 语句格式： IF 〈条件表达式〉 〈语句组〉 ENDIF 语句功能： 当条件为真时，执行IF和ENDIF之间的语句组 当条件为假时，执行ENDIF后面的语句 二、选择分支语句(IF－ELSE－ENDIF) 语句格式： IF〈条件表达式〉 〈语句组1〉 ELSE 〈语句组2〉 ENDIF 语句功能： 当条件为真时，先执行〈语句组1〉,然后再去执行ENDIF后面的语句 当条件为假时，先执行〈语句组2〉,然后再转去执行ENDIF后面的语句 【例】铁路托运慢件行李,假设每张火车票托运行李在50公斤以内时，按每公斤0.5元收费；超过50公斤时,超过的部分按每公斤加价0.3元计费. CLEAR INPUT 请输入行李的重量为： TO G IF F=0.5*G ELSE F=0.5*50+0.8*(G-50) ENDIF ? “行李的重量为:”，G,公斤，其运费为：“,F,元 DO WHILE—ENDDO循环 语句格式： DO WHILE 〈条件表达式〉 〈循环语句组〉 修正循环条件 ENDDO 语句功能： 当条件表达式的值为真时，执行循环语句组 否则执行ENDDO后面的语句 3.循环体内的两类特殊语句 3.1 EXIT语句 3.循环体内的两类特殊语句 3.1 EXIT语句 条件循环应用举例 例2：已知S=1*2*3*…*N 当S800时退出，求此时最小的S值 3.循环体内的两类特殊语句 3.2 LOOP语句 初值 循环体内 求和：s=0 s=s+i 求积：s=1 s=s*i 求个数：n=0 n=n+1 VF典型题（改错OR填空） 1、能被整除的 求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。 set talk off clear s=0 for x=10 to 1000 if mod(x,7)=0 or mod(x,9)=0 n=n+1 endif endfor ? n set talk on return 2、求和、求积、求开方、求阶乘等 求100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。 clear s=0 for n=1 to 100 s=s+1/n if s=3.5 exit endif endfor ? n return 此类题还有： 1、求100以内最大的自然数n，使得从1开始的连续n个自然数的立方和小于20000。 2、求出100以内使得算式1*2+2*3+…+n*(n+1)的值小于5000的最大的自然数n 3、求出100以内使得算式1/(1*1)+1/(2*3)+…+1/(n*(2n-1)的值大于1.35的最小的自然数n 4、求s=1/1!+1/2!+1/3!+……+1/10!的值 a=1 s=0 for n=1 to 10 a=a*n s=s+1/a endfor ?s 3、求各位数字（判定水仙花数、回文数等） 设某四位数的各位数字的平方和等于100，问共有多少个这 种四位数？ clea n=0 for x=1000 to 9999 a=int(x/1000) b=int(x/100)%10 c=int(x/10)%10 d=mod(x,10) if a*a+b*b+c*c+d*d=100 n=n+1 endif endfor ? n return 4、求最大公约数、最小公倍数 求出20677和42067的最大公约数。 set talk off clear a=20677 b=42067 for d=1 to a if mod(a,d)=0 and mod(b,d)=0 max=d endif endfor ? max set talk on 5、数列（斐波那契数列）(改错） 已知数列{f(n)}：f(1)=1，f(2)=1，当n=3,4,5,…时，f(n)=f(n-1)+f(n-2)。试求出100以内最小的自然数n使得此数列的第n项大于87654。 clear dimension f(100) f(1)=1 f(2)=4 for n=3 to 100 f(n)=3*f(n-1)-f(n-2) if f(n)=87654 exit endif endfor ? n-1 set talk on return 已知一个由分数组成的数列：1/2，3/5，8/13，21/34，…，其特