码迷,mamicode.com
首页 > 其他好文 > 详细

二分法求函数值的Pascal实现

时间:2014-07-14 10:17:21      阅读:157      评论:0      收藏:0      [点我收藏+]

标签:http   os   cti   io   div   re   

 

第八行的表达式可更改,第三行的kexi决定的精度,小数值计算可将第五行的extended更为real或double

PROGRAM EQUANTION (input,output);

CONST

  kexi=0.0000001;

VAR

  a,b,c:extended;

FUNCTION fx(x:extended):extended;

  BEGIN

    fx:=ln(x)/ln(2);

  END;

BEGIN

  writeln(‘Please input a and b’,‘    Produced BY Chaos‘)

  read(a,b);

  c:=(a+b)/2;

  IF fx(c)=0

  THEN writeln(‘x=‘,c)

  ELSE Repeat

       IF fx(a)*fx(c)<0

       THEN b:=c

       ELSE a:=c;

       UNTIL abs(a-b)<kexi;

  IF fx(c)<>0

  THEN writeln(‘x=‘,a);

END.

二分法求函数值的Pascal实现,布布扣,bubuko.com

二分法求函数值的Pascal实现

标签:http   os   cti   io   div   re   

原文地址:http://www.cnblogs.com/Chaobs/p/3837469.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!