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

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

【程序设计】 *------------------------------------------------------*题目：编程求对某一正数的值保留 3 位小数，并对第 4 位 * 进行四舍五入。 * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------

SET TALK ON

SET LOGERRORS ON

? \输入一个正数：h=234.5367\

OUT=-1

**********Program********** i=0

i=int((h*10000))

if i>=5

out=int(h*1000+1)/1000 else

out=int(h*1000)/1000

Endif

? Out

********** End **********

DO YZJ WITH OUT

SET LOGERRORS OFF

SET TALK OFF

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

【程序设计】 *------------------------------------------------------*题目：编程已知下列各项：

a1=1,a2=1/(1+a1),a3=1/(1+a2), * ......an=1/(1+a(n-1))。当 n=10 时，计算如下表达式的值 * s=a1+a2+...+a10。 * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------

SET TALK ON

SET LOGERRORS ON

OUT=-1

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

for i=1 to 9

a=1.0/(1+a)

s=s+a

endfor

out=a

? Out

********** End **********

DO YZJ WITH OUT

SET LOGERRORS OFF

SET TALK OFF

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

【程序设计】 *------------------------------------------------------*题目：编程已知下列各项：a1=1,a2=1/(1+a1),a3=1/(1+a2), * ......an=1/(1+a(n-1))。当 n=10 时，计算如下表达式的值 * s=a1-a2+a3-a4...-a10。 * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------

SET TALK ON

SET LOGERRORS ON

OUT=-1

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

for i=1 to 9

a=1.0/(1+a)

s=s+a*(-1)^i

endfor

out=a

? Out

********** End **********

DO YZJ WITH OUT

SET LOGERRORS OFF

SET TALK OFF

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

【程序设计】 *------------------------------------------------------*题目：编程求序列 s=2/1-3/2+5/3-8/5+13/8-21/13+34/21 的值。 * 要求使用 for...endfor 语句来完成。 * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------

SET TALK ON

SET LOGERRORS ON

OUT=-1

**********Program********** f1=1 f2=1 s=0

for i=1 to 7

f3=f1+f2

f1=f2

f2=f3

s=s+((-1)^(i+1))*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

f=f1+f2

for i=3 to 27

f1=f2 f2=f

f=f1+f2 endf

out=f

? Out

********** End **********

DO YZJ WITH OUT

SET LOGERRORS OFF

SET TALK OFF

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

【程序设计】 *------------------------------------------------------*题目：编程求 sum=1/3+1/33+1/333+1/3333+1/33333 的值。 * (要求使用循环语句求解) * 将结果存入变量 OUT 中。 * 请按照题目要求，在下面编写程序代码。 *------------------------------------------------------

SET TALK ON

SET LOGERRORS ON

OUT=-1

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

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