pascal 小A就是这传说中的养牛人,他的任务是计算出一片草地能够养活自己的牛多长时间.每次小A到达新的草地后,他会数

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/06 08:49:09

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

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.
再问：那么长！？又简单点的么？
再答： var
  n,i,x,y,z,ans:longint;
begin
  readln(n);
  for i:=1 to n do 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; end;
writeln(ans);
end;
  end;
end.

一组割草的人,要把两片草地的草割掉,大的一片草地是小的一片草地的两倍,上午大家在大片草地上割草,下午留一半人继续在大片地一组割草而那,要把2片草地草割完.大的一片草地是小的一片的2倍.上午大家在大片草地上割,下午留意半人如图,一个圆形喷水池周围有一个环形草地,草地的各处宽度相等,小明想知道草地的面积,于是他找来一根长竹竿一组割草人要把两片草地的草割掉.大的一片草地面积是小的2倍.上午大家在大片草地上工作,午后分两组,一 ,大草地的面积比小草地的面积大一一个农场想安排一批工人把两片草地的草锄掉,大的一片草地的面积是小的一片草地的三倍.设想上午让工人们都夸张句!这地方可真吵,小明他爸爸长得好壮,会场真静,草地上的花真多, 如图在小路df右侧是一片草地,紧靠小路建有一正方形小屋abcd,现用一根长为六米的牛绳一端系住牛鼻另一端系在a处.如果小一组割草的人要把两片草地的草割掉，大的一片比小的一片大一倍，全体组员先用半天时间割大的一片草地，到下午他们对半分开，一半（2012•长清区模拟）一组割草的人要把两片草地的草割掉，大的一片比小的一片大一倍，全体组员先用半天时间割大的一片草地，一组割草人要把两片草地的草割完.大草地的面积是小草地面积的两倍.上半天大家都在大草地上割草.下半天有大小草地各一块,大草地是小草地的2倍,有一批同学进行割草,上午全部同学割大草地,下午分一半同学去割小草地,到了傍晚,大