作业帮pascal 小A就是这传说中的养牛人,他的任务是计算出一片草地能够养活自己的牛多长时间.每次小A到达新的草地后,他会数出自己目前有多少头牛,并且精确估计出目前的草地拥有多少草.小A用来
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/17 20:46:55
pascal 小A就是这传说中的养牛人,他的任务是计算出一片草地能够养活自己的牛多长时间.每次小A到达新的草地后,他会数出自己目前有多少头牛,并且精确估计出目前的草地拥有多少草.小A用来
pascal
小A就是这传说中的养牛人,他的任务是计算出一片草地能够养活自己的牛多长时间.
每次小A到达新的草地后,他会数出自己目前有多少头牛,并且精确估计出目前的草地拥有多少草.小A用来计算的单位是牛天,就是说一个单位的草可以支持他任意一头牛吃一天.
然后小A会估算草地的长草速度,即测得每天牛吃草前,草地会生长出多少单位的草.
输入
第一行输入一个整数N,表示传说中小A曾经去过N块草地.
接下来N行,每行三个整数x,y,z,表示小A到达第i块草地后拥有的牛的数量,这块草地中草的数量,以及草的生长速度.
输出
输出N行,表示这些草地可以保证前多少天,所有的牛都有草吃.如果牛可以永远在这片草地上生活,那么输出‘forever’.
样例输入
2
2 2 1
2 2 3
样例输出
2
forever
pascal 小A就是这传说中的养牛人,他的任务是计算出一片草地能够养活自己的牛多长时间.每次小A到达新的草地后,他会数出自己目前有多少头牛,并且精确估计出目前的草地拥有多少草.小A用来
var
n,i,x,y,z,ans:longint;
begin
assign(input,'a.in'); reset(input);
assign(output,'a.out'); rewrite(output);
readln(n);
for i:=1 to n do//处理n块草地
begin
readln(x,y,z);
if z>=x then writeln('forever')//如果新长出的草比牛每天吃的草数,则永远够吃
else begin
ans:=0;
y:=y+z-x;
while y>=0 do
begin
inc(ans);
y:=y+z-x;//已有草数y+每天长出的新草z-所有牛每天吃的草数,如果够吃,则多加一天
end;
writeln(ans);
end;
end;
close(input); close(output);
end.