pascal垃圾陷阱卡门——农夫约翰极其珍视的一条Holsteins奶牛——已经落了到“垃圾井”中。“垃圾井”是农夫们扔

首页/题库/279℃/2024-05-16 07:49:15

pascal垃圾陷阱

卡门——农夫约翰极其珍视的一条Holsteins奶牛——已经落了到“垃圾井”中。“垃圾井”是农夫们扔垃圾的地方，它的深度为D (2

优质解答：

运行你的程序，结果正确，但不易读懂。下面用数组模拟二叉树的方法求解，相当于暴力，只是规模比题中的要求大大缩小了。

uses math;

label 999;

var

inn:array[0..10,1..3] of integer;

{垃圾数组，扔垃圾时间、维持寿命长度、堆积高度}

bi:array[0..10,1..1024,1..2] of integer;

{三维模拟二叉树数组} {第3维：距地面深度、存活时间}

{因为列数是行数的2^i，所以本方法g=0 then bi[i,j,2]:=t+inn[i,2] else bi[i,j,2]:=-999;

end

else begin

bi[i,j,1]:=bi[i-1,(j+1) div 2,1]-inn[i,3];

bi[i,j,2]:=bi[i-1,(j+1) div 2,2]-(inn[i,1]-inn[i-1,1]);

end;

write(bi[i,j,1]:5, bi[i,j,2]:5);

write(ff,bi[i,j,1]:5, bi[i,j,2]:5);

if (bi[i,j,1]=0) then begin

solution:=inn[i,1];

goto 999;

end;

end;

writeln;

writeln(ff);

end;

999:

writeln(ff,solution);

close(ff);

writeln;

writeln(solution);

if solution=0 then begin

for i:=1 to g do solution:=solution+inn[i,2];

writeln('存活时间＝',solution+10);

end;

end.

我来回答修改/报错/举报内容！

猜你喜欢