二分法求函数值的Pascal实现
2014-07-11 12:24
162 查看
用二分法求在(a,b)上单调的函数近似值
第八行的表达式可更改,第三行的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.
第八行的表达式可更改,第三行的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.
相关文章推荐
- 二分法和牛顿迭代实现开根号函数:OC的实现
- 实现sqrt函数功能,之前也是常见的面试题,本文两种解法,二分法,牛顿迭代法
- 用java实现DB2的自定义函数
- 在Delphi与C++之间实现函数与对象共享
- 利用一组宏定义实现类成员函数的回调
- C#实现的根据年月日计算星期几的函数
- C#实现的根据年月日计算星期几的函数 选择自 fanz2000 的 Blog
- C#实现的根据年月日计算星期几的函数(专)
- Delphi与C++之间通过实现函数与对象共享
- 使用"函数递归"实现的树型菜单 (转)
- EGL--延时函数实现文件 DELAY.INC
- 实现.net框架带有无限参数的WriteLine()函数
- 实现不需要辅助函数实现回调非静态类成员函数
- 在VB中实现向函数传递不定个数参数
- 日期验证函数脚本的实现
- 不用判断性语句实现求两数中最大数的函数
- 用C语言实现参数个数可变的函数
- 参数可变函数的实现(上)
- 使用"函数递归"实现的树型菜单
- 利用KERNEL32 API函数实现的通用延时函数DELAY