2007年的编程"守望者的逃离”用pascal怎么编？？

Question

哪为高人用pascal编程厉害的，给我传受答案吧！！！在下感激不尽！

Answer 1

用贪心算法编过一次，但找不到程序了，下面是查到的。
如果魔法值>=10，肯定用魔法，不用说
如果>=8并且剩余时间>=2，恢复魔法
当前剩余magic>=6 and 剩余time>=3，恢复
magic>=2 and time>=4，恢复
time>=7，恢复
其余情况走路，至于为什么，动笔算算，例如当magic=6时
如果回魔，3秒内走60米，不回，则走51米，不合算，而如果只剩2秒，那么直接走，因为不够回魔的。特别注明一下magic=0或1，要7秒，因为这种情况要经过2次跳跃才能翻盘。
这样可以求出一定时间内最多走的路程。
如果不够，则直接输出，如果够，则二分时间，查找最大的时间能逃离，输出。二分查找用上了。
program p1431;
var
m,s,t,dis,i,l,r,mid,m1:longint;
begin
readln(m,s,t);m1:=m;
dis:=0;
for i:=1 to t do
begin
if (m>=10) or (m>=6) and (t-i>=1) or
(m>=2) and (t-i>=2) or (t-i>=6) then
begin
if m>=10 then begin m:=m-10;dis:=dis+60;end else m:=m+4;
end
else dis:=dis+17;
end;
m:=m1;
if dis<s then begin writeln('No');writeln(dis);end
else
begin
writeln('Yes');
l:=1;r:=t;
while l<r do
begin
mid:=(l+r) div 2;
dis:=0;m1:=m;t:=mid;
for i:=1 to t do
begin
if (m>=10) or (m>=6) and (t-i>=1) or
(m>=2) and (t-i>=2) or (t-i>=6) then
begin
if m>=10 then begin m:=m-10;dis:=dis+60;end else m:=m+4;
end
else dis:=dis+17;
end;
m:=m1;
if dis>=s then r:=mid else l:=mid+1;
end;
writeln(l);
end;
end.

参考资料：http://zhidao.baidu.com/question/334026522.html

Answer 2

贪心即可。
核心代码（切勿抄袭）
readln(m,s,t);
n:=s;
while (s>0)and(tt<t) do
begin
if m>=10 then
begin
s:=s-60;
inc(tt);
m:=m-10;
if s<=0 then break;
if tt=t then break;
end
else begin
k:=find(m);
if (tt+k>=t)or(s-(k+1)*17<=0) then
for j:=1 to k do
begin
s:=s-17;
inc(tt);
if s<=0 then break;
if tt=t then break;
end
else begin
m:=m+k*4-10;
s:=s-60;
tt:=tt+k+1;
if s<=0 then break;
if tt=t then break;
end;
end;
end;

Answer 3

贪心水题