背景:                 
[本书目录] [图书首页] [本书讨论区]  
链接地址:http://www.17xie.com/read-6160.html    注册17xie 一起来写书 实现您的出书梦想!

运行结果:

YEARS         VALUES

0              10000

1              11125

            

6              18958.33

IN 7 YEARS IT LL HAS 21091.14

若将条件改为“DO WHILE V2 * P”,将会出现什么结果。请读者自己分析。

[7-13]  猜数游戏。由随机数发生器产生100以内的整数,用户从键盘上猜一个数,计算机会提示大了还是小了,直到猜准为止。

源程序:

'EXAMPLE 13

'Number quesssing game

RANDOMIZE

NUMBER=INT(100*RND+1)

COUNT=0

DO

PRINT  "YOUR  QUESS"

INPUT QUESS

COUNTCOUNT+1

IF QUESSNUMBER THEN

PRINT  "TOO BIG"

ELSE IF QUESS<NUMBER THEN

PRINT  "TOO SMALL"

ELSE

PRINT  "THAT'S RIGHT!"

PRINT  "YOU NEEDED"COUNT"QUESSES"

END IF

LOOP UNTIL QUESS=NUMBER

END

[7-14]  用牛顿迭代法求代数方程e-x-x=0x0=-2附近的一个实根,直到满足│X1-X0<ε=10E-06为止。方程的曲线如图7-11所示。

7-11  方程的曲线算法:

方程f=(x)=0的实根在几何图形上为曲线f(x)x轴的交点x*,可用对f(x)求导的方法,从x0开始,使方程的根逐渐逼近x*,这就是牛顿迭代法的基本思想。

所谓迭代(Iteration)就是重复执行一组指令,如:TT*ISS+T,这组指令每执行一次,变量S就在原来的基础上增加一个T值。这种方法称迭代法。TS为迭代变量。所以,用迭代法解题,其方法是不断用新值去迭代原值,直到满足条件为止。牛顿迭代法解题的步骤如下:

1)求f(x)曲线在x0点处的切线斜率(即f'(x):

x1o f'(x0)x轴的交点

则建立迭代式为:

x1为新的近似根。

2判断条件│X1-X0<ε?,从前一个近似根可以推出下一个近似根,直到

X1-X0<ε为止。

变量设置:

FFx=e-x-x

F1=f'(x)=-e-x-1

X0-2

X1X0-F/F1

NN+1

Ee1E-6

源程序:

EXAMPLE 14

INPUT  "X0.E="X0E

DO

X0X1

NN+1

FEXP-X0-X0

F1-EXP-X0-1

X1X0-F/F1

PRINT  "X"N")="X1

LOOP UNTIL ABS X1-X0)<=E

END

运行结果:

X0E=? -21E-06

X1)=-.80791

X5)=.5671433

X6)=.567143

7.5  本章小结

1.本章介绍的主要内容

1WHILE-WEND语句

2FOR-NEXT语句

3DO{WHILEUNTIL}-LOOP语句

     DOLOOP{WHILEUNTIL}语句

同时还介绍了两种中途退出循环的语句:

1EXIT FOR语句

2EXIT DO语句

23种循环结构的使用比较

13种循环结构的共同点是完成数据的重复计算和重复处理。

23种循环结构的区别在于:

FOR循环结构用于循环次数已知的情况。以指定的次数重复执行FORNEXT之间的循环体。

WHILE循环和DO循环为条件循环结构。以某一条件是否成立来控制是否重复执行循环体。

WHILE循环语句用法较为单一,当条件为真时,执行循环体,当条件为假时,退出循环。而DO循环的功能更强,用法更灵活。DO循环有当型和直到型两种:

当型DO WHILE-LOOP:当条件成立时,执行循环体,否则退出循环。

直到型DO UNTIL-LOOP:当条件不成立时,执行循环体,否则退出循环。

读者可根据不同情况选用不同的循环类型,以满足实际应用的需要。

 

1.写出下列程序的运行结果:

1                                                                                   2

A3                                                                                              N1

B6                                                                                     FOR K1 TO N

FOR YB-A TO A+B  STEP  B/A                               PRINT  " * ";

PRINT A,B                                                                          NEXT K

NEXT Y                                                                               PRINT

END                                                                                     N=N+1

                                                                                                       IF N<=5  THEN  20

                                                                                                       END

2.打印出3~100之间的所有奇数,奇数之和。

3.任意输入若于个非零,分别统计其中正、负的个数,并分别求出它们的和,输入零则结束程序。

4.编制程序打印下面的图案。

           *

        ***

       *****

      *******

   *********

5.编制程序,打印输出下面的图形。

* * * * * *

* * * * *

* * * *

* * *

* *

*

6.编制程序,打印输出下面的图形。

    *

   * * *

  * * * * *

 * * * * * * *

  * * * * *

   * * *

    *

7.猴子吃桃问题。猴子第一天摘下若于个桃子,当即吃了一半,还不过瘾,又多吃了一个。第二天早上又将剩下的桃子吃掉一半,又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第10天早上想再吃时,见剩下一个桃子了。试求第一天共摘多少桃子?

8.我国古代数学家张丘建“算经”里提出一个世界数学史上有名的百鸡问题:鸡翁一,值钱五,鸡母一,值钱三,鸡雏三,值钱一,百钱买百鸡,问鸡翁、母、雏各几何?

9.找出1~100之间的所有,“同构数”是这样的数:它出现在它的平方数的右端。例如5的平方数是25525右端的数,5就是同构数;25的平方数是625,因此25也是一个同构数。

10.编一程序,输出斐波那(Fibonaccii)数例11235813,…前20项。


字数:7692    最后更新:1年以前 [08-24 10:28]我爱钱 修改
本页编辑者:我爱钱  
[前一页]:第七章  [后一页]:第八章 数组
[在本页中加入书签] [收藏本书] [推荐本书]
  17xie论坛 > 本书讨论区 > 本页评论   (共0条)
发表评论

用户名称 匿名发表
评论内容
验证码

关于我们 | 版权声明 | 免责声明 | 诚聘英才 | 联系我们 | 合作伙伴 | 友情链接 | 广告合作 | 提交意见
Copyright © 2007 17xie.com 互联网协同写书平台 京ICP备08002671号