KeyFC欢迎致辞,点击播放
资源、介绍、历史、Q群等新人必读
KeyFC 社区总索引
如果你找到这个笔记本,请把它邮寄给我们的回忆
KeyFC 漂流瓶传递活动 Since 2011
 

[生活] pascal求助= =

[ 4550 查看 / 2 回复 ]

如需要修改悬赏筹码,或自行解决后关闭求助,请联系版主处理。(现为试行期间,请PM联系Roc-Dark处理。)
好吧。。咱是刚开始学PASCAL的新手(拓展课)之前都没啥问题。。现在卡了一道题。。求解。。。
题目:一小球从100米处落下,每次弹起原来一半的高度。。要求输入弹地的次数。输出球经过的总距离(最后一次碰地后弹起的距离不算)。。
恩。。就这样。。。求解。。。



看看会不会又是水羊第一个给答案= =
啦啦啦。。。。
2

评分次数

    请稍侯...
本主题由 管理员 水羊 于 2011/1/30 14:47:22 执行 关闭主题/取消 操作
分享 转发

合理分配自己手中的好人卡,把它们灵活地使用在关键的刀刃上。
TOP
 完成求助后请自觉结帖。好人卡是发帖时扣除的,与结帖无关。如逾期不操作的,将予以警告甚至处罚。
 牡丹仓库帮助你解决常见问题,告诉你如何进行求助~  为求助区的建设出一份力,有好人卡奖励哦~

http://wenwen.soso.com/z/q210338113.htm

program pp(input,output);

var

i:integer;

sum,k:real;

begin

k:=50;

sum=100;

for i:=1 to 19do

begin

sum:=sum+2*k;

k:=k / 2;

end;

write(sum);

end.

好像一开始的错了。这个是对的。忘了路程是两倍了。
=====================================
好吧.....我無力了......
網路上沒有......OTL
1

评分次数

    请稍侯...
水羊不可一日無牡丹!!!
你今天膜拜牡丹神了沒??
已经有很多好人卡的话,就应把更多的机会让给更需要它们的人。
TOP

(参考数学等比数列
S(n) = 100 * 2 ^ (n-1)
纯粹是数学问题,手算完毕就是上面的式子,对于n = 1 也成立。
最后编辑004307ec 最后编辑于 2010-10-26 23:19:21
咱的blog
QmFzZTY0 (?
平时多留心各个分区置顶帖和规则的话,可能会有些不小的收获。
TOP