锻炼计划 NDK1023 题解

题目网址：http://221.192.240.23:9088/showproblem?problem_id=1023

//一开始想复杂了，以为是DP，后来仔细阅读后才发现是道非常水的模拟。可恶的是数据竟然不对啊。。 program NDK1023; var n,m:longint; a:array [1..1500] of longint; b:array [1..1500] of boolean; procedure init; var i,j,start,eend,cost:longint; ch:char; begin fillchar(b,sizeof(b),false); readln(n,m); for i:=1 to m do begin read(ch); while ch<>' ' do read(ch); readln(start,eend,cost); for j:=start to eend do begin b[j]:=true; a[j]:=cost; end; end; end; procedure main; var i,ans:longint; begin ans:=n; for i:=1 to 1440 do begin if b[i] then dec(ans,a[i]); inc(ans); if ans<=0 then begin writeln('Runtime Error'); writeln(i); exit; end; end; writeln('Accepted'); writeln(ans); end; begin assign(input,'NDK1023.in'); reset(input); assign(output,'NDK1023.out'); rewrite(output); init; main; close(input); close(output); end.