鱼C论坛

 找回密码
 立即注册
查看: 2833|回复: 4

有关矩形法求变上限积分的问题

[复制链接]
发表于 2013-5-13 11:35:35 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
implementation
{$R *.dfm}
function f(x:Real):Real;
begin
f:=2*x;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,x,y,s,b: Real;
n,j:Integer;
const
a=1;
H=99;
m=100;
begin
Button1.Caption:= '积分结果 ';
j:= StrToInt(edit1.Text); //分成j等分,edit1中先输入的值
i:=(b-a)/j;
y:=0;
for n:=1 to j do
begin
x:= a+(n-1)*i ;
y:=y+ f(x); //即f(a)+f(a+i)+f(a+2i)+···的值
end;
s:=y*(b-a)/j ; //总面积的值
for b:= a to m do
begin
If s=H then
break;
end;
If s=H then
b:=b;
end;

edit1.Text:='';
edit1.Text:= floattostr(b);
end;
end.
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
 楼主| 发表于 2013-5-13 11:37:11 | 显示全部楼层
谁能帮忙看下哪里出错了,或者有会矩形法求变上限积分的例子,给我借鉴借鉴,如果矩形法求变上限积分得以解决,必有重谢~~
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-5-13 22:40:42 | 显示全部楼层
没懂你意思,你把要求说一下,重谢不必互相学习
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2013-5-13 22:55:03 | 显示全部楼层
matlab么?
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
 楼主| 发表于 2013-5-15 09:59:08 | 显示全部楼层
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 20:49

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表