回复:请教一个数学问题-技术论坛-工业支持中心-西门子中国

回复:请教一个数学问题

gxdy

帖子

110
精华

0
被关注

2

论坛等级：游士

注册时间：2003-06-06

普通如何晋级?

发布于 2005-12-13 14:16:31

0楼

我用程序算了一下，需要（20+1330）*0.3=405秒，程序如下：

procedure TForm1.Button1Click(Sender: TObject);
var
A,B,C:Integer;
m,n:Integer;
begin
n:=0;
A:=2540;
B:=2300;
C:=0;
while C<4800 do
begin
Inc(C,A-B);//C:=C+(A-B);
Inc(n);
end;

m:=0;
while B begin
B:=(C div 160)+180;
Inc(C,A-B);//C:=C+(A-B);
Inc(m);
end;

Edit1.Text:=IntToStr(n);
Edit2.Text:=IntToStr(m);

end;

结果
n=20
m=1330

由于随着B,C的增大，每次的增量逐渐减小，所以当B接近于A时，同样的增量次数就越多。

编辑推荐：关闭

请填写推广理由：

活动公告查看全部公告>

AI 小西智伴登场，7×24 小时权威支援，让技术支持告别等待！

热门视频，猜你喜欢

本版热门话题

SIMATIC S7-200

共有33257条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜，你发布的帖子

被评为精华帖！

快扫描右侧二维码晒一晒吧！

再发帖或跟帖交流2条，就能晋升VIP啦！开启更多专属权限！

分享
只看
楼主

您收到0封站内信：

×

×

信息提示

很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。