Tyvj 1599 鍛鍊計劃

題目：	鍛鍊計劃
來源：	Tyvj 1599
題目大意：	給定M個計劃和初始體力N，每項計劃中會損耗體力，每秒會增加1體力，求是否會  累死，輸出何時累死，若沒事則輸出最後的體力。一天1440分鐘
數據範圍：	0<=m<=500
樣例：	10 1  Basketball 1 10 1	Accepted 1440
做題思路：	一分鐘一分鐘的模擬，知道死或者沒有計劃或者這一天結束了爲止
知識點：	模擬、枚舉

var
 a,b,s:array[0..510]of longint;
 n,m,i,j:longint;
 ch:char;
begin
 readln(n,m);
 fori:=1 to m do
  begin
  read(ch);
  while ch<>' ' do read(ch);
  readln(a[i],b[i],s[i]);
  end;
 j:=1;
 fori:=1 to 1440 do
  begin
  inc(n);
   if(i>=a[j])and(i<=b[j]) then{<在計劃中減體力>}
   begin
    dec(n,s[j]);
   end;
   ifi>=b[j] then{<已經結束計劃了>}
   begin
    inc(j);
   end;
   ifn<=0 then{<累死了>}
   begin
    writeln('Runtime Error');
    writeln(i);
    halt;
   end;
   ifj>m then{<沒有計劃了>}
   begin
    inc(n,1440-i);
    writeln('Accepted');
    writeln(n);
    halt;
   end;
  end;
 writeln('Accepted'); {<這一天結束了>}
 writeln(n);
end.

題目來源：http://www.tyvj.cn:8080/Problem_Show.asp?id=1599