草莓铃铃吧 关注:2贴子:665
  • 4回复贴,共1
zju1494 爬虫 Climbing Worm

  一条一英寸长的小虫在深n英寸的井底。它有足够的力量
让它在每分钟内爬u英寸,但是在再爬之前要休息一分钟。在
这一分钟内,它会向下滑d英寸。这个过程不断不断不断重复。
几分钟之后它会爬出井?我们把不到一分钟算成一分钟。假如
小虫在某分钟的最后爬到井的顶部,我们假设它能够在这分钟
内爬出来。
  
Input
  输入包括多个输入数据,每行有三个整数:n,u,d。
我们假设u>d,n<100。三个0表示结束。

Output
  每个输入数据应输出一个答案,一个一行。
  表示小虫爬出井的时间。

Sample Input

10 2 1
20 3 1
0 0 0


Sample Output

17
19


1楼2007-04-21 11:14回复
    var 
     n,u,d,m,t:integer; 
    begin 
     while not eof do begin 
     readln(n,u,d); 
     m:=0;t:=0; 
     repeat 
     if m>0 then m:=m-d; 
     t:=t+1; 
     m:=m+u; 
     t:=t+1; 
     until n+1-m<=u; 
     writeln(t+1); 
     end; 
    end.


    4楼2007-05-12 08:58
    回复
      • 59.41.70.*
      =神经


      5楼2007-05-12 15:44
      回复
        • 219.136.90.*
        WA了N次总算过了吧,OI之路的痛苦莫过于


        6楼2007-08-23 22:50
        回复
          唉 初始化啊~~


          7楼2007-12-18 21:32
          回复