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

[生活] pascal求助= =

[ 3834 查看 / 2 回复 ]

好吧。。咱是刚开始学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