VFP程序设计填空改错试题及答案(2)

SET LOGERRORS OFF SET TALK OFF

*------------------------------------------------------*

【程序设计】 *------------------------------------------------------*题目：编程求自然数 345 各位数字的积。 * (要求使用循环语句求解，使用 Do While 语句实现。) * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------ SET TALK ON

SET LOGERRORS ON n=345 OUT=-1

**********Program********** s=1

do while n>0 d=n s=s*d

n=int(n/10) enddo out=s ? Out

********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF

*------------------------------------------------------*

【程序设计】 *------------------------------------------------------*题目：编程当 n=10 时，计算如下表达式 a10 的值。 * a1=1,a2=1/(1+a1),a3=1/(1+a2), * ......an=1/(1+a(n-1))。 * 将结果存入变量 OUT 中，要求用 For 循环语句实现。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------ SET TALK ON

SET LOGERRORS ON OUT=-1

**********Program********** a=1

for i=1 to 9 a=1.0/(1+a) endfor out=a ? Out

********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF

*------------------------------------------------------*

【程序设计】 *------------------------------------------------------- *题目：编程求自然数 345 各位

数字的积。 * (要求使用循环语句求解，使用 Do While 语句实现。) * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------SET TALK ON SET LOGERRORS ON n=345 OUT=-1 **********Program********** s=1 do while n>0 d=n s=s*d n=int(n/10) enddo out=s ? Out ********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF *------------------------------------------------------*

【程序设计】 *------------------------------------------------------*题目：编程将两个两位数的正整数 a、b 合并形成一个整数放在 c 中。 * 合并的方式是：将 a 数的十位和个位数依次放在 c 数的百位和 * 个位上，b 数的十位和个位数依次放在 c 数的十位和千位上。 * 将 c 结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------ SET TALK ON

SET LOGERRORS ON a=45 b=12 OUT=-1

**********Program**********

c=int(a/10)*100+a+int(b/10)*10+b*1000 out=c ? Out

********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF

*------------------------------------------------------*

【程序设计】 *------------------------------------------------------*题目：编程判断整数 x 是否是同构数。若是同构数，结果返回 1； * 否则返回 0。(x 的值要求不大于 100) * 所谓“同构数”是指这样的数，这个数出现在它的平方数的右边。 * 例如：输入整数 5，5 的平方数是 25，5 是 25 中右侧的数，所以 5 是 * 同构数。 。 * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------ SET TALK ON

SET LOGERRORS ON

? \输入整数 x=25 进行判断\OUT=-1

**********Program********** k=x*x

if k=x or k0=x out=1 else out=0 endif ? Out

********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF

SET TALK OFF

*------------------------------------------------------*

【程序设计】 *------------------------------------------------------*题目：编程计算如下表达式的值： * y=1-1/3＋1/5-1/7＋1/9。 * 要求使用 for...endfor 语句来完成。 * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------ SET TALK ON

SET LOGERRORS ON OUT=-1

**********Program********** s=1

for i=1 to 4

s=s+(-1)^i/(2*i+1) endfor out=s ? Out

********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF

*------------------------------------------------------*

【程序设计】 *------------------------------------------------------*题目：编程计算如下表达式的值： * y=1-1/2+1/4-1/6+1/8-1/10。 * 要求使用 for...endfor 语句来完成。 * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------ SET TALK ON

SET LOGERRORS ON OUT=-1

**********Program********** s=1

for i=1 to 5 s=s+(-1)^i/(2*i) endfor out=s ? Out

********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OF

*------------------------------------------------------*

【程序设计】 *------------------------------------------------------*题目：编程求一分数序列 2/1,3/2,5/3,8/5,13/8, * 21/13?的前 20 项之和,将结果存入变量 OUT 中, * 要求用 For 循环语句实现。 *------------------------------------------------------ SET TALK ON

SET LOGERRORS ON OUT=-1

**********Program**********

f1=1 f2=1 s=0

for i=1 to 20 f3=f1+f2 f1=f2 f2=f3 s=s+f2/f1 endf out=s ? Out

********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF

*------------------------------------------------------*

【程序设计】 *------------------------------------------------------*题目：编程求 fibonacci 数列前 28 项的和。 * 已知数列的第一项值为 1，第二项值也为 1，从第三项开始， * 每一项均为其前面相邻两项的和。 * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------SET TALK ON SET LOGERRORS ON OUT=-1 **********Program********** store 1 to f1,f2 k=f1+f2 for i=3 to 28 f=f1+f2 k=k+f f1=f2 f2=f endf out=k ? Out ********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF *------------------------------------------------------*

【程序设计】 *------------------------------------------------------- *题目：已知变量 x 为正整数，编程求变量 x 的位数。 * (请用 do case...case...endcase 语句完成。) * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------ SET TALK ON

SET LOGERRORS ON x=4764 OUT=-1

**********Program********** do case case x>9999 place=5 case x>999 place=4 case x>99 place=3 case x>9 place=2 othe place=1 endcase out=place

? Out

********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF

*------------------------------------------------------*

【程序设计】 *------------------------------------------------------*题目：编程求 sum=3+33+333+3333+33333 的值。 * 要求使用 for...endfor 语句来完成。 * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------ SET TALK ON

SET LOGERRORS ON OUT=-1

**********Program********** s=0 t=0 d=3

for i=1 to 5 t=t+d s=s+t d=d*10 endf out=s ? Out

********** End ********** DO YZJ WITH OUT SET LOGERRORS OFF SET TALK OFF

*------------------------------------------------------*

【程序设计】 *------------------------------------------------------*题目：编程计算正整数 num 的各位上的数字之和。 * 将结果存入变量 OUT 中，要求用 Do While 语句实现。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------ SET TALK ON

SET LOGERRORS ON

?\输入正整数 num=434\OUT=-1

**********Program********** s=0

do while num<>0 s=s+num num=int(num/10) endd ? Out

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VFP程序设计填空改错试题及答案(2)在线全文阅读。